R作图 怎么把图例放在四个图片中间

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如图所示，想把图例放在四个图片对角线即整张图片的正中间位置，怎么办

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：如图所示 怎么办 对角线

1. legend('content', xjust=0.5, yjust=0.5)

复制代码

1. par(mfrow=c(2,2))
   
2. 
   
3. #1
   
4. bland_altman_plot <- function(the_1st_peak1,the_1st_peak2,xlab="Average testresult", ylab="Deviation of experimental test")
   
5. {
   
6.   d1 <- ((the_1st_peak1 + the_1st_peak2)/2)
   
7.   diff1 <- the_1st_peak1 - the_1st_peak2     
   
8.   plot(diff1~d1,pch=16,ylim=c(-20,160),xlab=xlab,ylab=ylab,col=cols_L)
   
9.   abline(h=mean(diff1)-c(-1.96,1.96)*sd(diff1),lty=2)
   
10.   abline(h=mean(diff1))
    
11. }
    
12. bland_altman_plot(the_1st_peak1,the_1st_peak2,xlab="Mean of the_1st_peak1 and the_1st_peak2",ylab="Difference the_1st_peak1 and the_1st_peak2")
    
13. 
    
14. #2
    
15. bland_altman_plot <- function(PVIF1,PVIF2,xlab="Average testresult", ylab="Deviation of experimental test")
    
16. {
    
17.   d2 <- ((PVIF1 + PVIF2)/2)
    
18.   diff2 <- PVIF1 - PVIF2     
    
19.   plot(diff2~d2,pch=16,ylim=c(-10,100),xlab=xlab,ylab=ylab,col=cols_L)
    
20.   abline(h=mean(diff2)-c(-1.96,1.96)*sd(diff2),lty=2)
    
21.   abline(h=mean(diff2))
    
22.   legend(x=60,y=100,c("1","2","3","4"),col=cols,pch=c(16),bty="n",ncol=1,cex=0.9,pt.cex=0.9,xpd=FALSE,text.width=2,x.intersp=0.6)
    
23. }
    
24. bland_altman_plot(PVIF1,PVIF2,xlab="Mean of PVIF1 and PVIF2",ylab="Difference PVIF1 and PVIF2")
    
25. 
    
26. #3
    
27. bland_altman_plot <- function(the_1st_peak1,PVIF1,xlab="Average testresult", ylab="Deviation of experimental test")
    
28. {
    
29.   d3 <- ((the_1st_peak1 + PVIF1)/2)
    
30.   diff3 <- the_1st_peak1 - PVIF1     
    
31.   plot(diff3~d3,pch=16,ylim=c(-100,140),xlab=xlab,ylab=ylab,col=cols_L)
    
32.   abline(h=mean(diff3)-c(-1.96,1.96)*sd(diff3),lty=2)
    
33.   abline(h=mean(diff3))
    
34. }
    
35. bland_altman_plot(the_1st_peak1,PVIF1,xlab="Mean of the_1st_peak1 and PVIF1",ylab="Difference the_1st_peak1 and PVIF1")
    
36. 
    
37. #4
    
38. bland_altman_plot <- function(the_1st_peak2,PVIF2,xlab="Average testresult", ylab="Deviation of experimental test")
    
39. {
    
40.   d4 <- ((the_1st_peak2 + PVIF2)/2)
    
41.   diff4 <- the_1st_peak2 - PVIF2     
    
42.   plot(diff4~d4,pch=16,ylim=c(-8,5),xlab=xlab,ylab=ylab,col=cols_L)
    
43.   abline(h=mean(diff4)-c(-1.96,1.96)*sd(diff4),lty=2)
    
44.   abline(h=mean(diff4))
    
45. }
    
46. bland_altman_plot(the_1st_peak2,PVIF2,xlab="Mean of the_1st_peak2 and PVIF2",ylab="Difference the_1st_peak2 and PVIF2")

复制代码

deem 发表于 2017-8-18 16:58

我现在的图例在第二个图上

苏谷壳 发表于 2017-8-18 17:09
我现在的图例在第二个图上

我弄错啦。。。

画一个3*2的图，中间一行占位

1. layout(mat = matrix(c(1,2,3,3,4,5), nrow = 3, byrow = TRUE),
   
2.        heights = c(0.4,0.2,0.4))
   
3. 
   
4. x <- seq(-4, 4, 0.01)
   
5. plot(x, sin(x), "l")
   
6. plot(x, cos(x), "l")
   
7. plot(1, type = "n", axes=FALSE, xlab="", ylab="")
   
8. legend(x = "center", legend = c('legend1', 'legend2'),
   
9.        xjust = 1, yjust = 0.5)
   
10. plot(x, tan(x), "l")
    
11. plot(x, abs(x), "l")

复制代码

deem 发表于 2017-8-18 17:54
画一个3*2的图，中间一行占位

谢谢我试试

deem 发表于 2017-8-18 17:54
画一个3*2的图，中间一行占位

都弄好了，就是下边两个图和上边的图例距离较远，怎样样才能使上边的图和下边的图距离图例一样呢？谢谢啦

R作图也很漂亮。