R语言ggplot绘图如何增大坐标轴分类值标签间距提升可读性

你遇到的坐标轴标签拥挤问题，核心原因是纵向展示的50个州标签在默认图表高度下被压缩，可通过以下几种方式解决：

方案1：调整输出图表的高度 #

ggplot的标签间距会随输出画布尺寸动态适配，导出图表时加大高度参数即可快速拉开标签间距，示例代码：

# 原有绘图代码存储为对象，新增的reorder为可选操作，可按投票机数量对州排序，可读性更强
p <- ggplot(data = e_2020_Voting_Machines_Per_State) +
  geom_point(mapping = aes(x = reorder(State_Abbr, totalMachines), y = totalMachines)) + 
  coord_flip() +
  labs(x = "州缩写", y = "投票机总保有量")

# 导出时设置足够的高度，数值可根据显示效果自行调整
ggsave("state_voting_machines.png", plot = p, width = 7, height = 14, dpi = 300)

方案2：自定义主题调整轴文本属性 #

如果不想加大画布高度，可以通过theme参数缩小字体、增加边距优化显示：

ggplot(data = e_2020_Voting_Machines_Per_State) +
  geom_point(mapping = aes(x = reorder(State_Abbr, totalMachines), y = totalMachines)) + 
  coord_flip() +
  labs(x = "州缩写", y = "投票机总保有量") +
  theme(
    # 调整翻转后y轴文本的大小和边距
    axis.text.y = element_text(size = 7, margin = margin(r = 3)),
    # 可选：去掉y轴刻度线减少视觉干扰
    axis.ticks.y = element_blank()
  )

方案3：调整轴标签排布 #

如果仍有个别标签重叠，可以用guide_axis设置标签错开排布：

ggplot(data = e_2020_Voting_Machines_Per_State) +
  geom_point(mapping = aes(x = State_Abbr, y = totalMachines)) + 
  coord_flip() +
  labs(x = "州缩写", y = "投票机总保有量") +
  # 设置y轴标签分2行错开显示
  scale_x_discrete(guide = guide_axis(n.dodge = 2))

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