绘图：R：图例定位（单位）+字体

Question

我有以下

xaxis <- seq(0,1,by=0.01)
aij <- sqrt(1 - (1-xaxis)**1.02)
bij <- 1 - (1 - xaxis)**1.50 
cij<-aij-bij
pdf("MyPdf.pdf",family="Times New Roman")
par(mfrow=c(1, 1), mar=c(5, 5, 4, 10))
plot(xaxis,aij,type="l", col="black",lty=1, xlab="Size ratio", ylab="Value of function")
lines(xaxis,bij,type="l",col="black",lty=2)
par(new=TRUE)
plot(xaxis,cij,,type="l",col="black",lty=4,xaxt="n",yaxt="n",xlab="",ylab="")
grid(nx = 10, ny = 10)
axis(4)
mtext("Difference", side=4,line=3)
legend(x='bottomright',col=c("black","black"), lty=c(1,2,3), legend=c("aij","bij","Difference"),inset=c(-0.25,0))
dev.off()

我无法理解以下内容：

1. 如何指定图例的坐标（例如，我希望自己选择一个位置而不是bottomright ）-坐标系的单位是什么，其方向是什么？
2. 如何正确放置文字？
3. 对于所有对象，此图中是否可以使用BOLD，TIMES字体？

Answer 1

这说明了如何使用“用户坐标”将图例移动到绘图坐标系中的特定位置。 有关如何在?legend函数中为'text.font'提供适当值的信息，请参见?par 。 我的pdf设备只有一种“ Times”字体，因此我无法向您展示如何使用您描述的命名字体。 您可以使用以下命令查看当前可用的pdf字体的有效名称：

names(pdfFonts())

pdf("MyPdf.pdf", family="Times")
par(mfrow=c(1, 1), mar=c(5, 5, 4, 10))
plot(xaxis,aij,type="l", col="black",lty=1, xlab="Size ratio", ylab="Value of function")
lines(xaxis,bij,type="l",col="black",lty=2)
par(new=TRUE)
plot(xaxis,cij,,type="l",col="black",lty=4,xaxt="n",yaxt="n",xlab="",ylab="")
grid(nx = 10, ny = 10)
axis(4)
mtext("Difference", side=4,line=3)
legend(x=0.2,y=0.02, col=c("black","black"), lty=c(1,2,3), legend=c("aij","bij","Difference"), text.font=2 )
dev.off()