R语言ggplot中为字符型X轴设置间隔刻度的方法

问题说明 #

用ggplot绘制折线图时，X轴为字符型变量（如'1999 q1'），刻度过于密集，希望每3个观测显示一个刻度，且不将该变量转为日期格式，此前尝试scale_x_discrete、scale_x_continuous未成功。

解决方案 #

针对离散型X轴，可通过scale_x_discrete()的breaks参数手动指定要显示的刻度。核心逻辑是：先提取X轴变量的唯一值（保证顺序与数据一致），再按间隔3的索引筛选出需要展示的刻度标签。

修改后的完整代码 #

# 获取X轴变量的唯一值，保留原有顺序
unique_x_labels <- unique(DF$variable)
# 按每3个取一个的规则筛选刻度
target_breaks <- unique_x_labels[seq(1, length(unique_x_labels), 3)]

graf4 <- ggplot(DF,
       aes(x = variable, y = value, color = paese)) +
  geom_line(aes(linetype = paese, group = paese), size = 2.5) +
  theme_bw() +
  labs(x = "", y = "") +
  scale_colour_manual(values = c("darkorange1","darkorchid1","darkgreen","steelblue3","maroon2","grey2","yellow4",
                                 "burlywood4", "chocolate")) +
  scale_y_continuous(labels = fmt_dcimals(1)) +
  # 加入自定义X轴刻度规则
  scale_x_discrete(breaks = target_breaks) +
  theme(panel.grid.major = element_line(colour = "grey", size = 0.1)) +
  theme(panel.grid.minor = element_line(colour = "white", linetype = "dashed", size = 0.1)) +
  theme(strip.text.y = element_text(angle = 0)) +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, size = 12),
        axis.text.y = element_text(size = 12),
        legend.position = "bottom",
        legend.box = "horizontal",
        legend.box.background = element_rect(),
        legend.title = element_blank(),
        legend.text = element_text(size = 12)) +
  guides(col = guide_legend(nrow = 1, byrow = TRUE))

print(graf4)

数据示例 #

Variable * value * paese 
#1  1999 q1    12      UK
#2  1999 q2    15      UK
#3  1999 q3    55      UK  
#4  1999 q4    67      UK  
#5  1999 q1    12      DE  
#6  1999 q2    15      DE  
#7  1999 q3    55      DE 
#8  1999 q4    67      DE
#9  2000 q1    33      UK
#10 2000 q2    23      UK
#11 2000 q3    65      UK
#12 2000 q4    34      UK
#13 2000 q1    33      DE
#14 2000 q2    23      DE
#15 2000 q3    65      DE
#16 2000 q4    34      DE
# ....  .   ..        
#45 2023 q1    23      UK    
#46 2023 q2    11      UK 
#47 2023 q3    23      UK 
#48 2023 q1    23      DE 
#49 2023 q2    11      DE 
#50 2023 q3    23      DE 

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