次のコードは、ラティスのワイヤーフレーム関数を使用して3つの色付きの平面をプロットします。しかし、カラーグループを設定しても凡例が変わらない理由がわかりません。手動でやろうとしましたが、テキストの色を変更するだけでした。ちなみに、表面を70%透明にする方法も知っている人はいますか?
library(lattice)
library(akima)
SurfaceData <- data.frame(
x=rep(seq(0,100,length.out=10),each=10,times=3),
y=rep(rep(seq(0,100,length.out=10),times=10),times=3),
z=c(rep(25,100),seq(30,70,length.out=100),seq(95,75,length.out=100)),
type=factor(rep(c("A","B","C"),each=100))
)
wireframe(z~x*y,data=SurfaceData,group=type,
col.groups=c("red","green","blue"),
scales = list(arrows=FALSE, col="black",font=10),
xlab = list("Variable X",rot=30),
ylab = list("Variable Y",rot=-30),
zlab = list("Variable Z",rot=90),
zlim = c(0,100),
#auto.key=TRUE,
auto.key=list(text=c("A","B","C"),col=c("red","green","blue"),lines=TRUE),
par.settings = list(axis.line = list(col = "transparent")),
)
結果:
ありがとうございました!