ggplot和闪亮，为什么下面的语法不起作用

Question

以下几行适用于普通的ggplot r工作室，但在使用Shiny进行试用时，这并不起作用。

p <- ggplot(v_data, aes(x=v_data$date, y=v_data$Val1, colour=v_data$category)) + 
                                                                              geom_line()

但以下语法适用于Shiny + ggplot

p <- ggplot(v_data, aes(x=date, y=Val1, colour=category)) + geom_line()
   print(p)

Answer 1

将其放入For Each TDelement In elems If TDelement.className = "data-display-field" And InStr(TDelement.innerText, "Estimated Delivery:") Then Range("B" & x).value = TDelement.NextSibling.innerText i = i + 1 End If Next ：

server.R

这在您的output$plot <- renderPlot({ ggplot(v_data, aes(x=date, y=Val1, colour=category)) + geom_line() }) ：

中

ui.R