после пар (рис.), Mtext слегка выключен

Question

Я создаю подзаговор с функцией, которую я назвал smallPlot. Он устанавливает par(fig) в субрегион графика (или рисунок для многоканальных графиков). Однако после сброса параметров mtext слегка выключен. Любая идея, почему это происходит?

dev.off() 
plot(1:10) 
mtext("hello", adj=1, col=2)   # written as expected 
op4 <- par(fig=c(0.1,0.8,0.3,0.8), new=TRUE) 
par(op4) 
mtext("hello ", adj=1, col=3)   # right spot 
par(fig=c(0.1,0.8,0.3,0.8), new=TRUE) 
plot(rnorm(400), type="l") 
par(op4) 
mtext("hello ", adj=1, col=4)   # too far left 

Редактировать: оригинал вопроса был другим, но легко решался. Здесь для справки:

dev.off() 
op1 <- par(no.readonly = TRUE) 
plot(1:10) 
abline(h=2, col=2)      # drawn 

par(fig=c(0.1,0.8,0.3,0.8), new=TRUE) 
plot(rnorm(400), type="l") 
par(op1) 
abline(h=4, col=4)      # not drawn! 
axis(4) 

Ответ: op1$usr является 0,1,0,1 по умолчанию.

Answer 1

У op4 нет элемента usr. После небольшого вложенного графика, usr изменяется. Для сброса можно использовать что-то вроде этого:

dev.off() 
plot(1:10) 
usr <- par("usr") 
op4 <- par(fig=c(0.1,0.8,0.3,0.8), new=TRUE) 
plot(rnorm(400), type="l") 
par(op4) 
par(usr=usr) 
mtext("hello", adj=1, col=4); mtext("hello", adj=0, col=4)