Shiny应用中scale_x_discrete绘制年月X轴标签显示异常求助

我懂你现在的困扰：为了让跨年份的年月值能按顺序相邻展示，你给每个年月分配了ID，用scale_x_discrete实现了排序效果，但X轴标签却没法正确显示对应的年月值对吧？

先基于你给出的数据片段，我们先完整构造出数据集：

dat1 <- as.data.frame(matrix(c(201711,201712,201801,201802, 
                               1,2,3,4, 
                               84,92,85,91), 
                             nrow = 4, ncol = 3, 
                             dimnames = list(NULL, c("year_month", "id", "value"))))

接下来给你两种实用的解决方案：

方案一：将年月设置为有序因子（推荐） #

既然你已经用ID确定了年月的顺序，不如直接把year_month转成有序因子，让ggplot自动按这个顺序绘图，同时直接显示年月标签，无需额外调整：

library(ggplot2)

# 按ID的顺序设置年月因子的水平，保证绘图顺序正确
dat1$year_month_fct <- factor(dat1$year_month, levels = dat1$year_month[order(dat1$id)])

# 绘图（替换成你实际使用的几何对象，比如geom_line/geom_col）
ggplot(dat1, aes(x = year_month_fct, y = value)) +
  geom_point(size = 3) +
  labs(x = "年月", y = "数值")

这种方法最直观，后续如果年月数量动态变化，只要保证id的顺序正确，因子水平会自动同步调整，在Shiny里适配动态数据非常方便。

方案二：保留ID作为x变量，手动指定标签 #

如果你更习惯用id作为x轴的离散变量，只需要在scale_x_discrete里通过labels参数指定对应的年月值即可：

ggplot(dat1, aes(x = factor(id), y = value)) +
  geom_point(size = 3) +
  scale_x_discrete(
    name = "年月",
    labels = dat1$year_month # 直接用数据集里的年月值作为标签
  )

如果想让标签更友好（比如显示成「2017年11月」这种格式），可以先把年月值转成可读性更高的文本：

# 转换为中文年月格式
dat1$readable_month <- format(as.Date(paste0(dat1$year_month, "01")), "%Y年%m月")

# 用转换后的文本作为标签
ggplot(dat1, aes(x = factor(id), y = value)) +
  geom_point(size = 3) +
  scale_x_discrete(
    name = "年月",
    labels = dat1$readable_month
  )

两种方案都能解决你X轴标签不显示的问题，优先推荐第一种，因为它更贴合ggplot的因子排序逻辑，后续维护也更省心。

内容的提问来源于stack exchange，提问作者chelm40