R语言箱线图分组名称换行带下标：解决atop间距异常问题

方法1：修正atop()的间距并调整绘图边距 #

你遇到的atop()间距过大、顶部字母超出边界的问题，主要是因为atop()默认会给上下元素留较大间距，同时绘图底部边距不足。可以通过两个步骤解决：

• 用textstyle()强制使用正常字体大小，压缩atop()的默认间距
• 调整par(mar)参数增加底部边距，给两行标签留出足够空间

代码示例：

# 样本数据
groups = matrix(1:40,ncol=4)

# 调整底部边距，默认mar是c(5,4,4,2)，这里把底部边距加到8
par(mar = c(8, 4, 4, 2) + 0.1)

# 生成带两行标签的表达式
names = as.expression(sapply(1:4, function(x){
  letter = LETTERS[x]
  # 用textstyle缩小atop的默认间距
  bquote(atop(textstyle(.(letter)), textstyle(num[.(x)] == .(x))))
}))

boxplot(groups, names = names)

方法2：手动用axis()绘制两行标签（更灵活） #

如果不想依赖atop()，可以分两次绘制x轴标签，完全控制两行的位置和间距：

groups = matrix(1:40,ncol=4)

# 预留足够的底部边距
par(mar = c(8, 4, 4, 2) + 0.1)

# 先绘制箱线图，不设置默认x标签
boxplot(groups, names = rep("", 4))

# 第一行：绘制A-D字母，line=1控制距离轴线的位置
axis(1, at = 1:4, labels = LETTERS[1:4], line = 1, tick = FALSE)
# 第二行：绘制带下标的表达式，line=3控制和第一行的间距
axis(1, at = 1:4, labels = parse(text = paste0("num[", 1:4, "] == ", 1:4)), line = 3, tick = FALSE)

方法3：正确使用parse()生成带换行的表达式 #

你之前用parse()时出错，是因为直接用\n会把字符串拆分成多个元素，应该用\\n并结合~（空格）构造单个表达式内的换行：

groups = matrix(1:40,ncol=4)

par(mar = c(8, 4, 4, 2) + 0.1)

# 生成每个组的带换行的表达式字符串，再解析
names = parse(text = paste0(LETTERS[1:4], "~\"\\n\"~num[", 1:4, "] == ", 1:4))

boxplot(groups, names = names)

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