vd1=c(-16.6,-12.5,-8.8,-4.2,0,6,9.8,15,18.2)
y=c(-16,-12,-8,-4,0,4,8,12,16)
繪圖(y~vd1)
繪圖(y~vd2,col="red ")
然後在需要時(ggplot2)
VD = r bind(data . frame(v = VD 1,y=y,t=as.factor(1)),data.frame(v=vd2,y=y,t=as.factor(0)))
ggplot(vd,aes(x=v,y=y)) + geom_point(aes(color=t))
可以下載下壹個包