Я пытаюсь построить линию, используя geom_line из пакета ggplot.Эта строка должна быть интерактивной и зависит от выбранного состояния и макропеременной в течение выбранного временного ряда.Хотя большинство из них, кажется, работает нормально, я не могу заставить geom_line () что-либо строить.
Я попытался сгруппировать данные, а также использовать функцию as.numeric () для переменной 'year', но, похоже, ничего не работает.
Спасибо заранее!
Сервер:
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)