我可以在ggplot中用每个月的首字母来标记月份并保持顺序吗？

# 导入必要的包
library(ggplot2)

# 创建一个包含月份的数据框
data <- data.frame(
  month = c("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"),
  value = c(10, 15, 8, 12, 6, 9, 11, 14, 7, 13, 5, 16)
)

# 将月份转换为有序的因子变量
data$month <- factor(data$month, levels = month.name)

# 绘制柱状图
ggplot(data, aes(x = month, y = value)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(labels = substr(levels(data$month), 1, 1))