fork download
  1. library(scales)
  2. library(ggplot2)
  3. library(lubridate)
  4. DT <- data.table(yyyymm = ym(c("202207", "202307")), power = c(570.37, 559.39))
  5. ggplot(DT, aes(x = yyyymm, y = power, fill = yyyymm)) +
  6. geom_bar(position = "stack", stat = "identity")+
  7. scale_y_continuous(breaks = seq(400, 600, 50), limits = c(400, 600), oob = rescale_none) +
  8. theme(legend.position = "none")
Success #stdin #stdout #stderr 0.56s 49928KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
Error in library(lubridate) : there is no package called ‘lubridate’
Execution halted