Question

我在R shiny（在Server.R中）中使用以下代码来获取直方图输出。

 output$distPlot1 <- renderPlot({
       newdata <- subset(indooriv,seris_id=='2')
     ggplot(newdata, aes(x=isc),environment = environment()) + geom_histogram()

          })

但它一直给我以下错误。

Error in exists(name, envir = env, mode = mode) : 
  argument "env" is missing, with no default

有什么想法吗？

Answer 1

我无法重现您的错误，这对我来说很好：

library(shiny)
data(iris)

u.n <-  as.character(unique(iris$Species))
names(u.n) <- u.n

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput('species','Species',choices =u.n)
    ),
    mainPanel(
      plotOutput('distPlot')  
    )
  )
))

server <- shinyServer(function(input,output,session){
  output$distPlot <- renderPlot({
    newdata <- subset(iris, iris$Species==input$species)
    ggplot(newdata, aes(x=Sepal.Width),environment = environment()) + geom_histogram()
  })
})

shinyApp(ui=ui,server = server)

如果没有特别的理由呼叫环境，我就不会这样做。

ggplot Shiny中的直方图问题

1 个答案: