如何将蓝色方框中的图例移到图的右下方？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

具体代码如下所示，
还有一个问题是，在如下代码的基础上如何进行修改，能改变红色方框内文字的大小？
在此先谢过啦^_^

1. # Balance Plots
   
2. d  <- rbind(bal.nm,bal.maha,bal.gm,bal.psm,bal.psw,bal.eb)
   
3. dn <- rownames(d)
   
4. d  <- data.frame(d)
   
5. d$vname <- factor(dn,levels = unique(dn)[length(unique(dn)):1], labels = unique(dn)[length(unique(dn)):1])
   
6. d$gr <- rep(c("Unadjusted","MahaDist Matching","Genetic Matching","PS Matching","PS Weighting","Entropy Balancing"),each=length(unique(dn)))
   
7. d$gr <- factor(d$gr,levels=unique(d$gr)[1:length(unique(d$gr))],labels=unique(d$gr)[1:length(unique(d$gr))])
   
8. 
   
9. mypal<-c("black",rep("darkgrey",4),"black")[6:1]
   
10. Cex <- Cex2 <- 1
    
11. 
    
12. 
    
13. # plot with SDs
    
14. bplot <- function(x,y,...)
    
15. {
    
16.   panel.abline(v=0, lwd = 1 , lty="solid")
    
17.   panel.abline(v=c(-.1,.1), lwd = 2 , lty="dotted")
    
18.   panel.abline(h=c(1:nrow(d)), lwd = 1 , lty="dashed", col="gray95")
    
19.   panel.xyplot(x,y,...)
    
20. }
    
21. 
    
22. print(
    
23. 
    
24.   xyplot(vname~round(sdiff.pooled/100,2),data=d,groups=gr,xlim=c(-.6,.6),
    
25.          panel = bplot
    
26.          ,par.settings = list(superpose.symbol = list(pch = c(15,19,17,18,15,1)[6:1],col=mypal,cex=0.75))
    
27.          ,xlab=list("standardized difference in means",cex=Cex),ylab="",auto.key=T,scales=list(y=list(cex=Cex),x=list(cex=Cex2,at=c(-.5,-.1,0,.1,.5),labels=c("-.5","-.1","0",".1",".5")))
    
28.   )
    
29. )

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：右下方 balance Balan lance Plots 如何

这不是全部代码吧，第一行都不能运行

zhou1_20 发表于 2017-5-29 13:06
这不是全部代码吧，第一行都不能运行

是的，部分代码，我马上上传一下，非常感谢。

zhou1_20 发表于 2017-5-29 13:06
这不是全部代码吧，第一行都不能运行

附件是原始code和数据

runman 发表于 2017-5-29 14:55
附件是原始code和数据

你的数据不是csv格式，和代码里不对

zhou1_20 发表于 2017-5-30 13:14
你的数据不是csv格式，和代码里不对

不好意思，我重新上传一遍，如附件所示

你这个数据太大了，我电脑运行了半个小时没运行出来，你调一下Cex <- Cex2 <- 1这两个参数设置试一下

zhou1_20 发表于 2017-5-31 07:20
你这个数据太大了，我电脑运行了半个小时没运行出来，你调一下Cex

谢谢你的关注与耐心回复。
程序我已经运行完毕了，加载附件中的20170531 R Workspace，执行附件中的代码 20170531.R的代码就可以完成绘图了。

请大神指点如何解决我主题中所提到的两个问题呢？谢谢啦

1. print(
   
2.   
   
3.   xyplot(vname~round(sdiff.pooled/100,2),data=d,groups=gr,xlim=c(-.6,.6),
   
4.          panel = bplot
   
5.          ,par.settings = list(superpose.symbol = list(pch = c(15,19,17,18,15,1)[6:1],col=mypal,cex=0.85))
   
6.          ,xlab=list("standardized difference in means",cex=0.8),
   
7.          ylab="",auto.key = list(cex = 0.7,space="right"),
   
8.          scales=list(y=list(cex=0.5),
   
9.                      x=list(cex=0.8,at=c(-.5,-.1,0,.1,.5),
   
10.                                             labels=c("-.5","-.1","0",".1",".5")))
    
11.   )
    
12. )

复制代码

1. print(
   
2.   
   
3.   xyplot(vname~round(sdiff.pooled/100,2),data=d,groups=gr,xlim=c(-.6,.6),
   
4.          panel = bplot
   
5.          ,par.settings = list(superpose.symbol = list(pch = c(15,19,17,18,15,1)[6:1],col=mypal,cex=0.85))
   
6.          ,xlab=list("standardized difference in means",cex=0.8),
   
7.          ylab="",auto.key = list(cex = 0.5,corner=c(1,0.1)),
   
8.          scales=list(y=list(cex=0.5),
   
9.                      x=list(cex=0.8,at=c(-.5,-.1,0,.1,.5),
   
10.                                             labels=c("-.5","-.1","0",".1",".5")))
    
11.   )
    
12. )

复制代码