Наложение диаграмм наложения (изменение кода программирования)

Question

Как изменить этот код, чтобы показать, какой цвет относится к какой переменной.

a1= rnorm(10) 
    a2= rnorm(10) 
    a3= rnorm(10) 
    d=rnorm(10) 
    df<-data.frame(a1,a2,a3,d) 
    xyplot(d ~ a1 + a2 + a3, data=df,pch = 21, fill = c("black", "red", "green"), cex = 1) 

Answer 1

Из чего я понимаю, вы просто хотите добавить легенду. Предполагая, что вы xyplot это один из lattice пакета, вы могли бы сделать что-то вроде:

library(lattice) 
a1= rnorm(10) 
a2= rnorm(10) 
a3= rnorm(10) 
d=rnorm(10) 
df<-data.frame(a1,a2,a3,d) 
xyplot(d ~ a1 + a2 + a3, data=df,pch = 21, 
    fill = c("black", "red", "green"), cex = 1, 
    key=list(corner=c(0,1),points=list(col=c("black", "red", "green"),lwd=3), 
    text=list(c("a1","a2","a3"))))