如何避免ggplot2绘制的CPI棒棒糖图中国家类别数据点重叠？

问题说明 #

使用ggplot2绘制2021年IRL、CAN等8个国家非Energy类别的CPI棒棒糖图时，同一国家对应的3个Subject类别数据点出现重叠，需要调整实现无重叠展示。

解决方案 #

方法1：使用position_dodge实现有序错开 #

通过给geom_point和geom_segment添加position_dodge参数，让同一国家的不同Subject数据点在y轴方向（离散轴）有序错开，既保持同一国家的分组关系，又避免重叠。

修改后的完整代码：

library(ggplot2)
library(dplyr)

df <- read.csv("Counsumer_Price_Index.csv")

sav <- df %>%
  filter(ï..Location %in% c("IRL", "CAN", "AUS",
                            "USA", "FRA", "DEU",
                            "ESP", "ITA")) %>%
  filter(Time == 2021) %>%
  filter(Subject != "Energy")

sav %>% 
  ggplot(aes(x = Percentage, y = ï..Location)) +
  geom_segment(aes(yend = ï..Location, colour = Subject), 
               xend = 0, linetype = "dotted",
               position = position_dodge(width = 0.2)) +  # 给线段添加错开设置
  geom_point(aes(colour = Subject), size = 2.5,
             position = position_dodge(width = 0.2)) +  # 给点添加错开设置
  theme_light()

• width = 0.2控制错开的幅度，可根据实际效果在0.1~0.3之间调整
• 必须同时给geom_segment和geom_point设置相同的position_dodge，保证线段和点对应对齐

方法2：使用ggbeeswarm实现随机散开 #

如果希望同一国家的点自然散开而不是有序排列，可以使用ggbeeswarm包的position_quasirandom，让点在y轴同一位置附近随机分布，避免重叠。

步骤：

1. 安装并加载包：install.packages("ggbeeswarm"); library(ggbeeswarm)
2. 修改绘图代码：

sav %>% 
  ggplot(aes(x = Percentage, y = ï..Location)) +
  geom_segment(aes(yend = ï..Location, colour = Subject), 
               xend = 0, linetype = "dotted") +
  geom_point(aes(colour = Subject), size = 2.5,
             position = position_quasirandom(width = 0.3)) +  # 随机散开设置
  theme_light()

• width参数控制随机散开的范围，可按需调整
• 线段无需设置position，依然对齐原y轴位置，点在附近自然散开

方法3：将国家与Subject组合为新的y轴类别 #

如果不介意y轴显示每个国家+Subject的组合，可以直接将y映射为interaction(ï..Location, Subject)，让每个组合成为独立的y轴项，完全避免重叠：

sav %>% 
  ggplot(aes(x = Percentage, y = interaction(ï..Location, Subject))) +
  geom_segment(aes(yend = interaction(ï..Location, Subject), colour = Subject), 
               xend = 0, linetype = "dotted") +
  geom_point(aes(colour = Subject), size = 2.5) +
  theme_light() +
  labs(y = "国家-类别")  # 自定义y轴标签

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