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

zhou1_20 发表于 2017-5-31 10:39

谢谢啦，把图例放到如下图所示的位置，有办法操作吗？因为我借用的是这个方法，各种方法所绘制的散点标识比较分散，如果使用你提供的修改方案，可能修改后的图例仍然会遮挡住部分散点标识。

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,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. )

复制代码

只能这样了！！你参考下吧

zhou1_20 发表于 2017-5-31 14:06
只能这样了！！你参考下吧

真是太感谢啦，大神^_^

zhou1_20 发表于 2017-5-31 14:06
只能这样了！！你参考下吧

大神，进一步咨询一下。
能否让R运行的输出图形变得更长，也就是输出图形的y轴的刻度能变得更宽一些吗，这样的话，y轴的字体即使略大一点，也不会出现交叉重叠的现象。

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

复制代码

zhou1_20 发表于 2017-5-31 15:29

真是解决了我的大问题，实在是太感谢啦^_^

zhou1_20 发表于 2017-5-31 15:29

真是解决了我的大问题，实在是太感谢啦^_^

zhou1_20 发表于 2017-5-31 15:29

大神，再请教一下。
在纵轴有更多变量的情况下。
如何让“纵轴的刻度更大些，图形更长些呢”
主要想解决“因为变量过多，所导致的纵轴字体重叠的情况“？
谢谢啦^_^

zhou1_20 发表于 2017-5-31 15:29

根据code在R Graphics：Device 2 中生成的图形，上方与下方有很大空间均未被利用，也不知道这些空间能否被利用。

1. trellis.device(windows, height=10, width=7)
   
2. panel.height=list(x=15, units="in")

复制代码

调节这两个参数就行了