Question

采用非常基本的闪亮脚本，并能够围绕通用数据集。当我试图自己运行并运行ggplot时，我遇到了几个错误。最近出现在我在Rstudio的闪亮应用和控制台的主面板中 ... ＆＃34; ggplot2不知道如何处理类反应的数据＆＃34; ... 一般来说，我将我的ggplot剥离到最基本的元素，但仍然不确定ggplot在闪亮时调用数据的位置。我猜测反应功能，老实说，我迷路了。

以下是脚本

_____ ui.R ________

shinyUI(pageWithSidebar(
  headerPanel('Mock Risk Scorecard'),
  sidebarPanel(
    selectInput('xcol', 'X Axis', names(RandomRiskCard)),
    selectInput('ycol', 'Y Axis', names(RandomRiskCard),
                selected=names(RandomRiskCard)[[2]]),
                 min = 1, max = 9),
  mainPanel(
    plotOutput('plot1')
  )
)
)

_____ server.R ____

palette(c("#E41A1C", "#377EB8"))
shinyServer(function(input, output, session) { 
  # Combine the selected variables into a new data frame
  selectedData <- reactive({
    RandomRiskCard[, c(RandomRiskCard$xcol, RandomRiskCard$ycol)]
  }) 
  output$plot1 <- renderPlot({
    p <- ggplot(selectedData, aes(x = RandomRiskCard$xcol, y = RandomRiskCard$ycol))
  p <- p + geom_point()
  })
})

我还在不同的脚本窗口中加载了我的数据和Run Shiny，如下所示

install.packages("shiny")
library(shiny)
library(ggplot2)
runApp("U:/App-1")

以及

RandomRiskCard = read.csv("U:/App-1/RandomRiskCard.csv")

我最终希望将因子函数和注释与我原来的ggplot中的颜色结合起来。如果它不是很明显我就是这个新手了，但闪亮让我彻底扭曲了。

Answer 1

应该以与无参数函数相同的方式调用反应式表达式，并使用以下括号：ggplot(selectedData(),...
xcol和ycol应通过input获得：
p <- ggplot(selectedData(), aes(x = input$xcol, y = input$ycol))中的
output$plot和
RandomRiskCard[, c(input$xcol, input$ycol)]

selectedData

在渲染图中运行ggplot时会出现许多错误信号（一般闪亮）

1 个答案: