为什么与geop_path一起使用时，geom_path不能着色？

Question

我有一个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，则会得到：

我的问题：为什么彩线未在绘图中显示，我需要如何更改代码才能显示它？