legend 求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. x1=c(rep(c(-1,1),8))
   
2. 
   
3. x2=c(rep(c(-1,-1,1,1),4))
   
4. 
   
5. x3=c(
   
6.         rep(c(
   
7.                 rep(-1,4),
   
8.                 rep(1,4)),
   
9.         2)
   
10.         )
    
11. 
    
12. x4=c(rep(-1,8),rep(1,8))
    
13. 
    
14. y=c(82.93,94.04,88.07,93.97,
    
15.         77.21,92.99,83.60,94.38,
    
16.         88.68,94.30,93.00,93.42,
    
17.         84.86,94.26,88.71,94.66
    
18.         )
    
19. 
    
20. interaction.plot(
    
21.         as.factor(x1),
    
22.         as.factor(x2),
    
23.         y,
    
24.         xlab="x1",
    
25.         ylab="Average Response",
    
26.         leg.bty="o"
    
27. )

复制代码

现在是 这样子的


目标要 该成这样的。。。



还要下面的 这个要怎么画?


谢谢！！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Legend egen End Leg interaction 求助 Legend

1# casperyc


interaction.plot(as.factor(x1),as.factor(x2),y, xlab="x1", ylab="Average Response", legend=F)
legend(1.9, 84, c("x2=-1","x2=+1"),lty=c(1,2))