library(scales)
library(ggplot2)
library(lubridate)
DT <- data.table(yyyymm = ym(c("202207", "202307")), power = c(570.37, 559.39))
ggplot(DT, aes(x = yyyymm, y = power, fill = yyyymm)) +
geom_bar(position = "stack", stat = "identity")+
scale_y_continuous(breaks = seq(400, 600, 50), limits = c(400, 600), oob = rescale_none) +
theme(legend.position = "none")
bGlicmFyeShzY2FsZXMpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShsdWJyaWRhdGUpCkRUIDwtIGRhdGEudGFibGUoeXl5eW1tID0geW0oYygiMjAyMjA3IiwgIjIwMjMwNyIpKSwgcG93ZXIgPSBjKDU3MC4zNywgNTU5LjM5KSkKZ2dwbG90KERULCBhZXMoeCA9IHl5eXltbSwgeSA9IHBvd2VyLCBmaWxsID0geXl5eW1tKSkgKwogIGdlb21fYmFyKHBvc2l0aW9uID0gInN0YWNrIiwgc3RhdCA9ICJpZGVudGl0eSIpKwogIHNjYWxlX3lfY29udGludW91cyhicmVha3MgPSBzZXEoNDAwLCA2MDAsIDUwKSwgbGltaXRzID0gYyg0MDAsIDYwMCksIG9vYiA9IHJlc2NhbGVfbm9uZSkgKyAKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAibm9uZSIp