閃亮的滑塊輸入從csv文件讀取行

Question

我是R和Shiny包的新手。我有一個csv文件，4 col和600行，我想用ggplot2繪製一些圖。

我的UI和服務器代碼是這樣的：

dt<-read.csv('file.csv') 
server <- function(input, output) { 
    output$aPlot <- renderPlot({ 
    ggplot(data = dt, aes(x = Col1, y = Col2, group = 'Col3', color = 'Col4')) + geom_point() 
    }) 
} 
ui <- fluidPage(sidebarLayout(
sidebarPanel(
    sliderInput("Obs", "Log FC", min = 1, max = 600, value = 100) 
), 
mainPanel(plotOutput("aPlot")) )) 

在這裏，我可以得到ggplot輸出，但我不知道如何使用此滑塊輸入來控制的行數被讀取，即，我想要這個"Obs"輸入來定義要在圖中使用的Col1的大小。

Answer 1

嘗試這樣的事情，例如這裏是mtcars數據集：

library(shiny) 
library(ggplot2) 

dt <- mtcars[,1:4] 

ui <- fluidPage(
    sidebarPanel(
    sliderInput("Obs", "Log FC", min = 1, max = nrow(dt), value = nrow(dt)-10) 
), 
    mainPanel(plotOutput("aPlot")) 
) 

server <- function(input, output) { 

    mydata <- reactive({ 
    dt[1:as.numeric(input$Obs),] 
    }) 

    output$aPlot <- renderPlot({ 
    test <- mydata() 
    ggplot(data = test, aes(x = test[,1], y = test[,2], group = names(test)[3], color = names(test)[4])) + geom_point() 
    }) 
} 

shinyApp(ui = ui, server = server) 

Answer 2

服務器更改爲：

server <- function(input, output) { 
    observe({ 
    dt_plot <- dt[1:input$Obs,] 

    output$aPlot <- renderPlot({ 
ggplot(data = dt_plot, aes(x = Col1, y = Col2, group = 'Col3', color = 'Col4')) + geom_point() 
    }) 
}) 
}