我试图绘制一个图表,其中“Jan”被 x 轴上的年份替换,其他标签是缩写的月份。
该代码复制了该问题,而不是一月,例如"month(data$date) == 1"
,被更改以显示它是十一月的年份。
更改代码以"month(data$date) == 3"
提供正确的结果,但我更愿意了解我做错了什么。
library("tidyverse", "lubridate")
data <- tibble(date = seq(as.Date("2000/1/1"), by = "month", length.out = 24), value = 1:24)
ggplot(data = data) +
geom_point(aes(x = date, y = value)) +
geom_text(aes(x = date, y = value, label = value), hjust = -1) +
scale_x_date(date_breaks = "1 month", date_labels = ifelse(month(data$date) == 1, "%Y", "%b"))
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句