R Shiny 问题 - 在一张图上绘制多条线答案

【问题标题】：An R Shiny issue - plotting multiple lines on one graphR Shiny 问题 - 在一张图上绘制多条线
【发布时间】：2012-10-30 17:56:01
【问题描述】：

目前，我的代码最初允许用户选择他们想要的数据集（二选一）。然后根据他们的选择，出现数据集各自子集的其他绘图变量。这很好用，除了我希望这些图全部覆盖在一个图上，而不是像默认情况下那样分开。

我有一个默认图，plot_Total，数据集中的其他选项正在查看它的特定子集。所以只有一个散点是有意义的。

 output$plot_Total <- reactivePlot(function() { 
  plot.new()
   plot.window(xlim=c(1850,2020), ylim = c(0,5000000))
   axis(1)
   axis(2)
   title(main="Numbers over the years")
   title(xlab="Year")
   title(ylab="Number of people")
   box()
   points(dat$Year, dat$Total, col="red")
   lines(dat$Year, dat$Total, col="red")
   })

 output$plot_subset1 <- reactivePlot(function() { lines(dat$Year, dat$subset1) })
 output$plot_subset2 <- reactivePlot(function() { lines(dat$Year, dat$subset2) })

为什么这段代码 sn-p 不起作用？它只是为每个（不需要的）图形创建空白空间，在其下方显示“错误：尚未调用 plot.new”。如何指定将这些线添加到默认 (plot_Total) 图中？

【问题讨论】：

你看过主页上的示例是否闪亮？通过向现有绘图添加低级绘图命令似乎可以满足您的需求：rstudio.com/shiny

标签： r shiny

【解决方案1】：

更新：通过玩弄闪亮主页上的图形代码，我意识到我必须这样做：

 output$plot_Total <- reactivePlot(function() { 
  plot.new()
   plot.window(xlim=c(1850,2020), ylim = c(0,5000000))
   axis(1)
   axis(2)
   title(main="Numbers over the years")
   title(xlab="Year")
   title(ylab="Number of people")
   box()
   points(dat$Year, dat$Total, col="red")
   lines(dat$Year, dat$Total, col="red")
  if (input$RC) {   lines(dat$Year, dat$dat)}
  })

这在两个方面与我的原始代码不同。首先，条件被添加为同一反应绘图函数中的一行。其次，我创建了一个仅包含子集 RC 的新 data.frame。这最初不是作为 input$dat$RC 工作的，但是当 RC 是它自己的数据框时，它作为 input$RC 工作。

指向 Chase 引导我朝着正确的方向前进！

【讨论】：