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

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

Base 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))

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

1 个答案: