geom_line 没有显示线

Question

我想用绘制一条线geom_line从ggplot包。 该行应该是交互式的，并且取决于所选时间序列中的所选状态和宏变量。 虽然其中大部分似乎运行良好，但我似乎无法让geom_line()绘制任何内容。

我曾尝试对数据进行分组，以及对“年份”变量使用as.numeric()函数，但似乎没有任何效果。

服务器：

server <- function(input, output){


  output$plot1 <- renderPlot({

 ggplot(data = filter(c1, state == input$state1), 
        aes_string(x = as.numeric("year"), y = input$macroVar, group = 1)) +
   geom_line() +
   scale_x_continuous(limits = input$years) +
   labs(title = paste(col_alias(input$state1)),
        x = paste("Year"),
        y = paste(col_alias2(input$macroVar))) +
        theme_bw()})
  output$plot2 <- renderPlot({

ggplot(data = filter(c1, state == input$state2),  
       aes_string(x = as.numeric("year"), y = input$macroVar, group = 1)) +
  geom_line() +
  scale_x_continuous(limits = input$years) +
  labs(title = paste(col_alias(input$state2)),
       x = paste("Year"),
       y = paste(col_alias2(input$macroVar))) +
      theme_bw() })  
}   

shinyApp(ui = ui, server = server)

Answer 1

您不能在aes_string混合使用字符串和非字符串调用。 您可以使用as.numeric("year")执行此操作，将as.numeric()函数与字符串列名称混合。 看看这个可重现的例子：

# does not work
ggplot(mtcars, aes_string('mpg', as.factor('cyl'))) +
  geom_point()

# works
ggplot(mtcars, aes_string('mpg', 'as.factor(cyl)')) +
  geom_point()

因此，您可以将代码更改为'as.numeric(year)'作为快速修复。 我也不太喜欢那样，当您开始将命令放在引号中时， aes_string会变得丑陋。 相反，我建议 (a) 通过在绘图之前将year列转换为数字来解决上游问题，或者 (b) 使用现代技术更新您的代码。 请参阅?aes帮助页面上的Quasiquotation部分，帮助页面底部提供示例，链接的dplyr插图中提供更多dplyr 。

如果这不能解决您的问题或您需要其他帮助，请制作一个可重现的示例并将其包含在您的问题中。