关于在legend编写图例中使用family参数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

本人是R初学者，昨天在寻找修改R字体的过程中发现了ihavenothing编写的伟大的包showtext，于是想用这个包把我画的图字体都改成time new roman，具体使用都挺顺利，但是在使用plot函数画完曲线后，使用legend函数给图添加图例，发现legend语句中无法添加family参数，可能在下对R的逻辑不了解，求助各位大神。
具体代码如下

1. pdf(file=”Figure1.pdf”,width=17/2.54,height=25.5/2.54,paper=”special”)
   
2. opar<- par(no.readonly=TRUE)
   
3. par(mfrow=c(3,2),mar=c(4,4,1,1),las=1,mgp=c(2.5,0.7,0),bty=”l”)
   
4. font.add(“TT”,”times.ttf”)
   
5. showtext.auto()k1<-survfit(Surv(RFS,resultR)~Tcat,data=111)
   
6. k2<-survfit(Surv(OS,result)~Tcat,data=111)
   
7. k3<-survfit(Surv(RFS,resultR)~Tcat,data=111,subset=(size==0))
   
8. k4<-survfit(Surv(OS,result)~Tcat,data=111,subset=(size==0))
   
9. k5<-survfit(Surv(RFS,resultR)~Tcat,data=111,subset=(AFP==0))
   
10. k6<-survfit(Surv(OS,result)~Tcat,data=111,subset=(AFP==0))
    
11. plot(k1,lty=1,cex=0.3,lwd=2, col=c(b,r), xaxt=”n”,ylim=c(0,1),xaxs=”i”,yaxs=”i”, xlim=c(0,84),xlab=”Years since hepatectomy”, ylab=”Recurrence free survival rate “,family=”TT”)
    
12. lab1=as.character(seq(0,7,by=1))
    
13. axis(1,at=seq(0,84,12),label=lab1)
    
14. legend(“topright”,legend=c(“CBX6-high”,”CBX6-low”),col=c(r,b),lwd=2,lty=1,bty=”n”)
    
15. title(main=”A”,font.main=1,family=”TT”)
    
16. text(30,0.27,”p=0.006″,family=”TT”)
    
17. plot(k2,lty=1,cex=0.3,lwd=2, col=c(b,r), xaxt=”n”,ylim=c(0,1),xaxs=”i”,yaxs=”i”, xlim=c(0,84),xlab=”Years since hepatectomy”, ylab=”Overall survival rate “,family=”TT”)
    
18. lab1=as.character(seq(0,7,by=1))
    
19. axis(1,at=seq(0,84,12),label=lab1)
    
20. text(30,0.27,”p=0.001″,family=”TT”)
    
21. legend(“topright”,legend=c(“CBX6-high”,”CBX6-low”),col=c(r,b),lwd=2,lty=1,bty=”n”)
    
22. title(main=”B”,font.main=1,family=”TT”)plot(k3,lty=1,cex=0.3,lwd=2, col=c(b,r), xaxt=”n”,ylim=c(0,1),xaxs=”i”,yaxs=”i”, xlim=c(0,84),xlab=”Years since hepatectomy”, ylab=”Recurrence free survival rate “,family=”TT”)
    
23. lab1=as.character(seq(0,7,by=1))
    
24. axis(1,at=seq(0,84,12),label=lab1)
    
25. legend(“topright”,legend=c(“CBX6-high”,”CBX6-low”),col=c(r,b),lwd=2,lty=1,bty=”n”)
    
26. title(main=”C”,font.main=1,family=”TT”)
    
27. text(30,0.27,”p<0.001″,family=”TT”)
    
28. plot(k4,lty=1,cex=0.3,lwd=2, col=c(b,r), xaxt=”n”,ylim=c(0,1),xaxs=”i”,yaxs=”i”, xlim=c(0,84),xlab=”Years since hepatectomy”, ylab=”Overall survival rate “,family=”TT”)
    
29. lab1=as.character(seq(0,7,by=1))
    
30. axis(1,at=seq(0,84,12),label=lab1)
    
31. legend(“topright”,legend=c(“CBX6-high”,”CBX6-low”),col=c(r,b),lwd=2,lty=1,bty=”n”)
    
32. title(main=”D”,font.main=1,family=”TT”)
    
33. text(30,0.27,”p<0.001″,family=”TT”)
    
34. plot(k5,lty=1,cex=0.3,lwd=2, col=c(b,r), xaxt=”n”,ylim=c(0,1),xaxs=”i”,yaxs=”i”, xlim=c(0,84),xlab=”Years since hepatectomy”, ylab=”Recurrence free survival rate “,family=”TT”)
    
35. lab1=as.character(seq(0,7,by=1))
    
36. axis(1,at=seq(0,84,12),label=lab1)
    
37. legend(“topright”,legend=c(“CBX6-high”,”CBX6-low”),col=c(r,b),lwd=2,lty=1,bty=”n”)
    
38. title(main=”E”,font.main=1,family=”TT”)
    
39. text(30,0.27,”p=0.021″,family=”TT”)
    
40. plot(k6,lty=1,cex=0.3,lwd=2, col=c(b,r), xaxt=”n”,ylim=c(0,1),xaxs=”i”,yaxs=”i”, xlim=c(0,84),xlab=”Years since hepatectomy”, ylab=”Overall survival rate “,family=”TT”)
    
41. lab1=as.character(seq(0,7,by=1))
    
42. axis(1,at=seq(0,84,12),label=lab1)
    
43. legend(“topright”,legend=c(“CBX6-high”,”CBX6-low”),col=c(r,b),lwd=2,lty=1,bty=”n”)
    
44. title(main=”F”,font.main=1,family=”TT”)
    
45. text(30,0.27,”p=0.018″,family=”TT”)
    
46. par(opar)
    
47. dev.off()

复制代码

求各位大神帮在下看看，现在的图其他地方字体都对了，就是图例部分无法改。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Family Legend egen FAM End family legend

没有大神吗