Черчение: 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

Это иллюстрирует перемещение легенды в конкретное место в системе координат графика с «координатами пользователя». См. ?par о том, как обеспечить правильное значение «text.font» в функции ?legend. У моего 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()