如何在条形图中将 x 轴标签旋转 xx° 度

Question

我正在寻找将 x 轴标签旋转 45° 的简单解决方案。

我已经测试了几个代码但没有成功。 我的最后一次尝试是：

par(old.par)
p3 <- barchart(CASS_Data$PASS_Prozent + CASS_Data$FAIL_Prozent ~ CASS_Data$Buchungsperiode, 
               data=CASS_Data, stack="TRUE", col=c("green","red"), position = "fill",
               xlab="", ylab="", main = paste("Test","Prozent"), ylim=c(0,100), xaxt = "n") 
lab <- CASS_Data$Buchungsperiode
text(x = 1:length(lab), labels = lab, srt = 45, adj = c(1,1), xpd = T)
print(p3)

不幸的是，x 轴标签没有旋转。 还有其他简单的解决方案吗？

Answer 1

这是一个示例，因为您没有提供可重现的示例。

基础R方法：

x <- barplot(table(mtcars$cyl), xaxt="n")
labs <- paste(names(table(mtcars$cyl)), "cylinders")
text(cex=1, x=x-.25, y=-1.25, labs, xpd=TRUE, srt=45)

ggplot方法：

theme(axis.text.x = element_text(angle = 90, hjust = 1))