【发布时间】:2023-03-13 00:04:02
【问题描述】:
我得到这个错误我错了
library(RJDBC)
library(dplyr)
library(shiny)
library(ggplot2)
library(scales)
library(shinydashboard)
library(gridExtra)
library(DT)
ggplotly 不工作我做错了什么无法得到它
output$plot1 <- renderPlotly({
if (is.null(input$sector) ){return()
} else if(input$sector == "pick one") { return()
} else p1 <-**ggplotly**(ggplot(data = subdata1() ,aes(x=SaleDate,y=Total))+ geom_point(stat='summary', fun.y=sum) +
geom_line(colour = "red")+geom_hline(aes(yintercept = mean(Total)),colour = "blue")+ geom_text(data = subdata1(), aes(label = Total),
position=position_jitter(width=1,height=0.8), size=3)))+ scale_y_continuous(labels = scales::comma)
labs(x = "SaleDate",
y = "Total")
print(p1 + theme(axis.text.x =
element_text(size = 10,angle = 45,hjust = 1,vjust = 1)))
})
【问题讨论】: