如何在ggplot2中设置多小提琴图的小提琴固定宽度？

要实现不同图中小提琴宽度完全一致，核心是控制小提琴的相对宽度比例，并确保每个图的x轴刻度间距、整体图宽匹配，以下是两种可行方法：

方法1：固定小提琴相对宽度，按类别数量调整图的总宽度 #

ggplot中geom_violin()的width参数控制小提琴相对于x轴离散刻度间距的比例。如果希望导出的图中小提琴物理宽度一致，可按以下步骤操作：

1. 给所有图设置相同的width参数，比如width = 0.8
2. 导出时根据每个图的小提琴数量，按比例设置图的总宽度（确保每个小提琴占据的物理空间相同）

示例代码：

# 第一个图：carb <=3，3个小提琴
p1 <- ggplot(mtcars[mtcars$carb <= 3,], aes(factor(carb), mpg, group = carb)) +
  geom_violin(width = 0.8) +
  scale_x_discrete(expand = c(0.1, 0.1)) # 避免小提琴被边缘截断

# 第二个图：carb >3，3个小提琴（mtcars中carb>3的取值为4、6、8）
p2 <- ggplot(mtcars[mtcars$carb > 3,], aes(factor(carb), mpg, group = carb)) +
  geom_violin(width = 0.8) +
  scale_x_discrete(expand = c(0.1, 0.1))

# 导出时按小提琴数量设置宽度：假设每个小提琴占0.8英寸，左右边距合计0.5英寸
ggsave("plot1.png", p1, width = 3*0.8 + 0.5, height = 4)
ggsave("plot2.png", p2, width = 3*0.8 + 0.5, height = 4)

# 如果某图只有2个小提琴，就设置width = 2*0.8 + 0.5

方法2：将x轴转为连续型，统一刻度间距 #

把离散的x轴类别映射为连续数值，让所有图的x轴刻度间距一致，再固定width参数，这样即使图的总宽度相同，小提琴宽度也会一致：

示例代码：

# 第一个图：carb<=3，映射为连续x轴的1、2、3
p1 <- ggplot(mtcars[mtcars$carb <= 3,], aes(x = as.numeric(factor(carb)), y = mpg, group = carb)) +
  geom_violin(width = 0.8) +
  scale_x_continuous(breaks = 1:3, labels = c("1", "2", "3"), expand = c(0.1, 0.1))

# 第二个图：carb>3，同样映射为连续x轴的1、2、3
p2 <- ggplot(mtcars[mtcars$carb > 3,], aes(x = as.numeric(factor(carb)), y = mpg, group = carb)) +
  geom_violin(width = 0.8) +
  scale_x_continuous(breaks = 1:3, labels = c("4", "6", "8"), expand = c(0.1, 0.1))

# 导出时设置相同的图宽即可
ggsave("plot1_continuous.png", p1, width = 6, height = 4)
ggsave("plot2_continuous.png", p2, width = 6, height = 4)

这两种方法都能确保不同图中的小提琴宽度完全一致，你可以根据自己的需求选择：方法1适合保留离散x轴的原生样式，方法2更适合统一多图的x轴布局。

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