Как совместить гистограмму и линейный график из разных данных в блестящем ggplot2 и плотно? - PullRequest
Новая
       10

Как совместить гистограмму и линейный график из разных данных в блестящем ggplot2 и плотно?

0 голосов
/ 02 июля 2019

мой код не работает.Я не знаю, почему.

Эта линейная диаграмма является данными формы df, а эта гистограмма взята из данных df после ее расплавления.гистограмма y - это «SavedDemandCharge» и «NewDemandCharge», линейная диаграмма y - «Demand_KW».Их х оба месяца.

Я много раз менял код, но все равно не работал.

  output$plot1 <- renderPlotly({
    df <- df_form()
    df$DemandCharge <- as.numeric(gsub('[$,]','', df$DemandCharge))
    df$NewDemandCharge <- as.numeric(gsub('[$,]','', df$NewDemandCharge))
    df$SavedDemandCharge<- df$DemandCharge-df$NewDemandCharge
    df$month <- format(as.Date(df$Startdate), "%Y-%m")
    mydata<-melt(df,id= c("month","Startdate","Enddate","DemandCharge", "Season",
                          "EnergyUsage_KWh","OnpeakUsage_KWh","NewOnpeakUsage_KWh","Demand_KW",
                          "NewDemand_KW","TotalCharge","NewTotalCharge"))
    mydata$variable <- fct_relevel(mydata$variable, "SavedDemandCharge")
    #plot 1#
    plotly1<-ggplot(data = mydata, aes(x = month, y = value, fill = variable)) + 
      geom_bar(stat = "identity",width = 0.6)+
      scale_fill_manual(values=cbPalette1)+ scale_y_continuous("Cost",labels = dollar)
  
    #plot 2#  
    plotly<- plotly1 +　geom_line(data=df, aes(x=month, y=Demand_KW, group=1))+geom_point()
    ggplotly(plotly)
    
  })
...