ggplot2中45+图例项格式调整求助：避免图表压缩

针对45个图例项挤压主图表的问题，提供几个实用解决方法：

方法1：让图例文本自动换行 #

可以提前处理数据中的文本，或者直接在绘图主题中设置换行规则：

• 预处理数据：用stringr包拆分长文本

library(stringr)
chart$Label <- str_wrap(chart$Label, width = 15) # width控制每行最大字符数

• 绘图时直接设置：在主题中指定图例文本换行

guild_chart <- 
ggplot(chart, aes(x=factor(Site,level=level_order1), y=`Row 1`, fill=Label)) + 
  geom_bar(stat="identity") + 
  scale_fill_manual(values = colfundose) + 
  theme_bw()+ 
  ylab("# of reads") + 
  xlab("Location") +
  theme(legend.text = element_text(wrap = TRUE, width = 15))

方法2：将图例移到图表上下方 #

利用页面上下空白放置图例，避免挤压主图表区域：

guild_chart <- 
ggplot(chart, aes(x=factor(Site,level=level_order1), y=`Row 1`, fill=Label)) + 
  geom_bar(stat="identity") + 
  scale_fill_manual(values = colfundose) + 
  theme_bw()+ 
  ylab("# of reads") + 
  xlab("Location") +
  theme(
    legend.position = "top", # 可选"bottom"
    legend.direction = "horizontal", # 水平排列图例项
    legend.box = "vertical" # 让标题与图例项垂直分布，避免拥挤
  )

方法3：让图例分多栏显示 #

把大量图例项拆分成多列/多行，减少单侧占用宽度：

guild_chart <- 
ggplot(chart, aes(x=factor(Site,level=level_order1), y=`Row 1`, fill=Label)) + 
  geom_bar(stat="identity") + 
  scale_fill_manual(
    values = colfundose,
    guide = guide_legend(ncol = 3) # 设置列数，可根据实际调整
  ) + 
  theme_bw()+ 
  ylab("# of reads") + 
  xlab("Location")

如果图例放在上下方，可改用nrow设置行数：

guide = guide_legend(nrow = 5)

方法4：综合调整图例与图表布局 #

缩小图例图标尺寸，同时调整图表边距给图例留出空间：

guild_chart <- 
ggplot(chart, aes(x=factor(Site,level=level_order1), y=`Row 1`, fill=Label)) + 
  geom_bar(stat="identity") + 
  scale_fill_manual(values = colfundose) + 
  theme_bw()+ 
  ylab("# of reads") + 
  xlab("Location") +
  theme(
    legend.key.size = unit(0.8, "cm"), # 缩小图例图标
    plot.margin = margin(1, 4, 1, 1, "cm") # 调整右侧边距，顺序为上/右/下/左
  )

你可以根据实际需求组合这些方法，比如先让文本换行，再将图例移到上方并分多栏，既能完整显示图例，又能保证主图表的合理尺寸。

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