In the image shown, I would like to compress the y-axis. The code I have is here:
plotoverall <- aggregAll %>%
group_by(date) %>%
summarise(Overall_kWh= sum(kWh, na.rm=TRUE)) %>%
ggplot(aes(x = date, y = Overall_kWh, color="light blue" )) +
geom_line(color="light blue", size=2) +
theme(axis.text=element_text(size=12),
axis.title=element_text(size=14))+
#geom_point(color="blue") +
scale_y_continuous(name="Monthly million kWh",breaks=c(0,40000000,50000000,60000000),
labels = c("0","40","50","60"),
limits = c(0,60000000))