有没有办法旋转visreg包中的x轴标签？

Question

*编辑*想通了：scales = list(rot = 90)

我正在使用visreg()函数绘制一个线性模型，比较不同年份之间的鸟类体重。我有三个不同的物种，所以这个图非常拥挤。我想旋转x轴标签，使它们垂直，但我想不出该怎么做。我在很多地方使用过las = 2，但都无济于事。如果能帮上忙，我们将不胜感激！谢谢。

 visreg(hawk_lm1, xvar = "Year", by = "Species", whitespace = 0.4, las = 2,
       points.par = list(cex = 0.5, col = "grey")) 

A screenshot of the graph as it is at the moment

Answer 1

根据visreg包的文档，如果使用by=参数，则使用using包进行绘图。在网格中，您可以使用visreg参数和rot()一起旋转轴，只需将参数作为附加参数包含在visreg函数中，它就可以完成这项工作。我从空气质量数据集创建了这个例子来说明。

library(visreg)
airquality$Heat <- cut(airquality$Temp, 3, labels=c("Cool", "Mild", "Hot"))
fit <- lm(Ozone ~ Solar.R + Wind + Heat, data=airquality)

##default  x axis labels
visreg(fit, "Wind", by="Heat",  bty="n", ylab="Ozone")

##rotated x  axis labels
visreg(fit, "Wind", by="Heat",  bty="n", ylab="Ozone", scales=list(x=list(rot=90)))