R：更改列标签的高度/位置答案

【问题标题】：R: Changing height/location of column labelsR：更改列标签的高度/位置
【发布时间】：2018-10-10 05:37:20
【问题描述】：

使用以下代码，我的条形图的列标签与图本身重叠（见图）。更改边距似乎只影响轴标签，而不影响列标签。进行了搜索，但找不到此问题。建议？谢谢！（P.S.--我是初学者！）

library(colorspace)

df <- matrix(c(20, 14, 26, 18, 14, 4, 19, 21, 13, 1, 5, 4), ncol = 4, byrow = TRUE)
rownames(df) <- c("Character", "Tree", "Distance")
colnames(df) <- c("nrITS", "trnH-\npsbA", "matK", "rbcL")
graph.dat <- as.table(df)
italic_latin2 <- c(expression(atop(italic("nrITS"), (104))), 
                   expression(atop(italic("trnH-\npsbA"), (82))), 
                   expression(atop(italic("matK"), (42))), 
                   expression(atop(italic("rbcL"), (28))))
barplot(graph.dat, beside = TRUE, ylab = "Percent Identified", 
        xlab = "Locus", ylim = c(0, 30), col = rainbow_hcl(3), 
        names.arg = italic_latin2)

【问题讨论】：

感谢您的帮助，代码运行良好，但我不确定我是否理解您在找到 padj 参数来调整定位时如何得出这个结论。我正在使用 boxplot() 函数从数据框中创建一个具有类似标签的图形（使用“atop()”），而 padj 在这种情况下不起作用。我试图搜索将修改列标签高度的新参数，但一直找不到...

标签： r

【解决方案1】：

查看?barplot 函数参数由... 参数值发送到何处。 ?axis 页面说有一个padj 参数来调整垂直标签定位，所以也许：

italic_latin2 <- expression( atop(italic("nrITS"), (104)), 
                   atop(italic("trnH-\npsbA"), (82)), 
                   atop(italic("matK"), (42)), 
                   atop(italic("rbcL"), (28)) )
barplot(graph.dat, beside = TRUE, ylab = "Percent Identified", 
        xlab = "Locus", ylim = c(0, 30), col = rainbow_hcl(3), 
        names.arg = italic_latin2, padj=0.8)

请注意，我还简化了表达式向量代码。 expression 的参数用逗号充分分隔。

【讨论】：