output$plot1 <- renderPlot({
df <- df_form()
df <- data.frame(df,options = list(scrollX = TRUE))
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"))
ggplot(data = mydata, aes(x = month, y = value, fill = variable)) +
geom_bar(stat = "identity")
})
![enter image description here](https://i.stack.imgur.com/Su60g.jpg)
Я так запутался, как изменить положение двух y в ggplot. Как «NewDemandCharge» и «SavedDemandCharge» могут менять свою позицию на графике?
![enter image description here](https://i.stack.imgur.com/o5Q0S.gif)