ggplot图表仅显示部分日期刻度，如何设置显示全部7个日期？

我看到你的图表目前只显示了部分日期刻度，这是因为ggplot默认会根据空间自动筛选刻度值。要让所有7个日期都完整显示在轴上，我们可以手动指定刻度的breaks，同时优化日期的显示格式，确保内容清晰不重叠。

具体修改步骤 #

• 提取所有唯一日期：从数据集中获取不重复的date值，作为轴刻度的强制显示项
• 配置轴刻度规则：由于你使用了coord_flip()交换了坐标轴，原x轴的日期会变为y轴，因此需要通过scale_x_datetime()（翻转前的x轴设置）来指定所有日期刻度，并格式化显示样式
• 优化轴文本显示：可选调整文本对齐方式，避免日期文本重叠

修改后的完整代码 #

# 先安装加载scales包（如果未安装）
# install.packages("scales")
# library(scales)

# 提取数据中所有唯一的日期值
unique_dates <- unique(us_chats$date)

us_chats %>% 
  spread(type, count, fill = 0) %>% 
  mutate(Total = Completed + Missed) %>% 
  ggplot(aes(date, Total)) +
  geom_col(aes(fill = "Total"), colour = "black") +
  geom_col(aes(y = Missed, fill = "Missed"), colour = "black") +
  geom_text(aes(label = paste("Total chats:", Total)),
            hjust = -0.05, vjust = 1) +
  geom_text(aes(label = paste("Missed chats:", Missed, "(", round(Missed/Total*100, 2), "%)")),
            hjust = -0.05, vjust = -0.5, color = "red") +
  scale_fill_manual(name = "",
                    values = c("Total" = "forestgreen", "Missed" = "red")) +
  scale_y_continuous(limits = c(0, max(.$Total) * 3)) + # 改用计算后的Total最大值设置轴上限更准确
  # 强制显示所有唯一日期，并格式化日期为年-月-日样式
  scale_x_datetime(breaks = unique_dates, labels = date_format("%Y-%m-%d")) +
  coord_flip() +
  # 可选：调整轴文本对齐，避免重叠
  theme(axis.text.y = element_text(angle = 0, hjust = 1))

关键修改说明 #

1. unique(us_chats$date)：精准获取数据中全部7个不重复日期，确保每个日期都能作为刻度显示
2. scale_x_datetime(breaks = unique_dates, labels = date_format("%Y-%m-%d"))：指定x轴（翻转后为y轴）的刻度为所有唯一日期，同时将日期格式化为年-月-日的简洁样式，提升可读性
3. max(.$Total)：替换原代码中的max(us_chats$count)，改用计算后的Total总和最大值设置y轴上限，避免出现文本超出轴范围的问题

这样调整后，你的图表轴上就会完整显示全部7个日期值了。

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