R: Решетчатые участки/каркас: графические проблемы с метками

Question

У меня есть вопрос относительно некоторых графических параметров каркаса. Как я могу сделать xlab и ylab параллельными кубу - они выглядят ужасно на моих участках, см. Мой другой пост

Faceted Lattice Plots in R, e.g., wireframes: How to remove strips and add 1-Line subtitles.

Answer 1

Вы можете перечислить списки на zlab, xlab и ylab аргументы wireframe. Одним из компонентов этих списков может быть rot, который определяет в градусах количество, на которое метки оси должны быть повернуты. До сих пор я смог «выровнять» метки с осями методом проб и ошибок.

## Code from your other post, to make this reproducible 
model_test <- lm(Sepal.Length ~(Petal.Length + Sepal.Width + Petal.Width +Species)^2, 
    data=iris) 
gg<-expand.grid(Petal.Length=0:6,Species=levels(iris$Species)) 
vv<-expand.grid(Sepal.Width=0:4,Petal.Width=1:4) 

pd<-do.call(rbind,Map(function(Petal.Length,Species,Sepal.Width,Petal.Width){ 
       nd <- cbind(vv, Petal.Length=Petal.Length,Species=Species, 
           Sepal.Width=Sepal.Width, Petal.Width=Petal.Width) 
       cbind(nd, pred=predict(model_test, nd, type="response"))}, 
       Petal.Length=iris$Petal.Length,Species=iris$Species, 
       Sepal.Width=iris$Sepal.Width,Petal.Width=iris$Petal.Width)) 

## Plot with rotated axis labels 
wireframe(pred~Sepal.Width+Petal.Width|Species*Petal.Length, 
      pd, drape=FALSE,scale=list(arrows=FALSE),subset=(Species=="setosa"), 
      layout = c(3, 3), zlab = list("pred", rot = 90), 
      xlab = list("Sepal.Width", rot = 30), 
      ylab = list("Petal.Width", rot = -30))