如何解决ggplot2多饼图中物种标题被截断的问题？

首先注意到你的代码里同时使用了facet_grid(.~ Species)和facet_wrap(.~Species, strip.position="top")，这属于重复设置，保留其中一个即可，推荐保留facet_wrap，更适配这种横向排列的多面板可视化需求。

针对长物种标题（如Crab-eating macaque）被截断的问题，可通过以下几种方式解决：

方法1：缩小分面标题字体 #

通过theme()中的strip.text.x参数调整标题字体大小，让内容完整显示：

ggplot(data=df, aes(x=" ", y=value, group=Amino_acids, colour=Amino_acids, fill=Amino_acids)) +
  geom_bar(width = 1, stat = "identity", position= "fill") +
  coord_polar("y", start=0)+ 
  facet_wrap(.~Species, strip.position="top") +
  theme_void() +
  theme(strip.text.x = element_text(size = 8)) # 可根据实际情况调整字号数值

方法2：给长标题手动换行 #

提前处理Species列的文本，插入换行符\n拆分长名称：

# 替换长物种名称为带换行的版本
df$Species <- gsub("Crab-eating macaque", "Crab-eating\nmacaque", df$Species)

# 执行绘图
ggplot(data=df, aes(x=" ", y=value, group=Amino_acids, colour=Amino_acids, fill=Amino_acids)) +
  geom_bar(width = 1, stat = "identity", position= "fill") +
  coord_polar("y", start=0)+ 
  facet_wrap(.~Species, strip.position="top") +
  theme_void()

方法3：调整图表整体宽度 #

如果是在RStudio中绘图，可直接拉大绘图窗口；若需导出图片，用ggsave()指定足够的宽度：

# 先保存绘图对象
p <- ggplot(data=df, aes(x=" ", y=value, group=Amino_acids, colour=Amino_acids, fill=Amino_acids)) +
  geom_bar(width = 1, stat = "identity", position= "fill") +
  coord_polar("y", start=0)+ 
  facet_wrap(.~Species, strip.position="top") +
  theme_void()

# 导出时设置宽高
ggsave("amino_acid_pies.png", p, width = 12, height = 6) # 按需调整宽高数值

你之前调整axis.title.x/y的hjust参数无效，是因为被截断的是分面的strip标题，而非坐标轴标题，所以需要针对strip.text系列参数进行调整。

内容的提问来源于stack exchange，提问作者Dr. Coke