как добавить легенду к scatterplot3d в R

Question

Я хотел бы добавить легенду к моему scatterplot3d. Я создал 3 отдельный участок и наложить их на 1 участок, так что я не знаю, где синтаксис легенды («», нижние правый угол врезки = 0,5) должен идти

Plot <-scatterplot3d(data$Size,data$Pct,data$bias1, type='h', zlim=c(-20,100), xlab="size", ylab= "Percent", zlab="Bias") 

Plot$points3d (data$Size,data$Pct,data$Bias2, 
    col="blue", type="h", pch=15, cex=.6) 

Plot$points3d(data$Size,data$Pct,data$Bias3, 
    col="red", type="h", pch=4, cex=.6) 

Answer 1

Это старый вопрос. Но у меня была такая же проблема и она была решена с помощью следующего кода. У меня есть четыре тайм-аута с продолжительностью года в 3D-сюжете.

Как обычно, я создал графическое изображение, как это:

s3d <- scatterplot3d(...) 

А потом просто добавили легенду так:

legend(s3d$xyz.convert(18, 0, 12), col= c("green","blue", "red", "black"), bg="white", lty=c(1,1), lwd=2, yjust=0, legend = c("2010", "2011", "2012", "Prognose für 2013"), cex = 1.1)