У меня блестящее приложение с server.R и ui.R.
Это код в server.R:
library(shiny)
library(ggplot2)
library(plotly)
server <- shinyServer(function(input, output, session) {
dat=data.frame(mycolA=c(1,2,3,4), mycolB=c(12,13,16,10), mycolC=c(330,510,290,530))
p=ggplot(dat,aes(x=mycolB, y=mycolC)) +
geom_path(aes(colour=mycolA)) # <----------------------------------
#geom_path()
output$myggplotwithplotly=renderPlotly({
p
})
output$myggplotonly=renderPlot({
p
})
})
Это код в ui.R:
library(shiny)
library(ggplot2)
library(plotly)
ui <- shinyUI(fillPage(
fillRow(
plotlyOutput("myggplotwithplotly", height="100%"), plotOutput("myggplotonly", height="100%")
)
))
Возвращает:
Как видите, на графике слева нет линии.
Если я использую geom_path() вместо geom_path(aes(colour=mycolA)) в server.R, тогда я получу:
Мой вопрос: Почему цветная линия не отображается на графике и как мне нужно изменить код для ее отображения?