R: Изменение высоты / расположения меток столбцов

Question

Используя следующий код, метки столбцов для моего барплота перекрываются с самим графиком (см. Изображение).Изменение поля отображается только для метки оси, но не для меток столбца.Сделал поиск, но не смог найти этот вопрос.Предложения?Спасибо!(PS - я новичок!)

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)

Answer 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 должным образом разделены запятыми.