lattice绘图求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

set.seed(1)
b1<- rnorm(100)
b2<- rep(0:1,each=50)
b3<-b1+b2-b1*b2+rnorm(100,sd=0.5)
b2<-factor(b2,labels = c("种类1","种类2"))
xyplot(b1~b3 | b2,panel = function(b1,b3){
  panel.xyplot(b1,b3)
  panel.abline(v=mean(b1),h=mean(b3),lty=2)
  panel.lmline(b1,b3,col="bluw")
})
我想根据我自己的构思创建一个xyplot绘图，但运行后却出现了 求大神解答。。。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Lattice ice ATT LAT TIC

1. xyplot(b1~b3 | b2, panel = function(x, y){
   
2.   panel.xyplot(x, y)
   
3.   panel.abline(v = mean(x), h = mean(y), lty = 2)
   
4.   panel.lmline(x, y, col="blue")
   
5. })

复制代码

cheetahfly 发表于 2017-8-7 22:43

谢谢，实现了，原来自定义函数必须得是x,y啊