barplot中的45度x轴标签

Question

我知道这类问题已经发布了好几次了，但是我尝试了所有不同的建议，但对我来说却无济于事。 我希望条形图上的x轴标签位于45度。 目前，我的代码是这样的：

barplot(t(all.vac_models01[1:28,3:4]), ylab = expression("Proportion of "*italic("R"^"2")),
las=2, cex.names = 0.9,
legend.text = gsub("prop_attributed_to_visit", "Intraindividual", 
gsub(pattern = "prop_attributed_to_patientID", 
replacement = "Interindividual", colnames(all.vac_models01[1:28,3:4]))), 
args.legend = list(x= 30, y = 1.3, xpd = T, horiz = T, bg = "white", bty ="o", box.lwd = 0))>

Answer 1

尝试这个：

x <- barplot(t(all.vac_models01[1:28,3:4]), ylab = expression("Proportion of "*italic("R"^"2")),
        las=2, cex.names = 0.9,
        legend.text = gsub("prop_attributed_to_visit", "Intraindividual", 
                           gsub(pattern = "prop_attributed_to_patientID", 
                                replacement = "Interindividual", colnames(all.vac_models01[1:28,3:4]))), 
        args.legend = list(x= 30, y = 1.3, xpd = T, horiz = T, bg = "white", bty ="o", box.lwd = 0),
        xaxt="n")
labs <- names(t(all.vac_models01[1:28,3:4]))
text(cex=1, x=x, y=-1.25, labs, xpd=TRUE, srt=45, pos=2)

将barplot调用分配给x允许您存储标签的位置。 确保指定xaxt="n"以便最初不打印标签。