¿Cómo agregar un recuadro (subtrama) a "topright" de un gráfico R?

Me gustaría tener un recuadro dentro de una parcela que represente el 25% del ancho y la altura del área de ploteo (área donde se encuentran los gráficos).

Lo intenté:

# datasets
d0 <- data.frame(x = rnorm(150, sd=5), y = rnorm(150, sd=5))
d0_inset <- data.frame(x = rnorm(1500, sd=5), y = rnorm(1500, sd=5))

# ranges
xlim <- range(d0$x)
ylim <- range(d0$y)

# plot
plot(d0)

# add inset
par(fig = c(.75, 1, .75, 1), mar=c(0,0,0,0), new=TRUE)
plot(d0_inset, col=2) # inset bottomright

Esto coloca el recuadro en absoluto y también utiliza el 25% del ancho del dispositivo. ¿Cómo puedo cambiarlo a las coordenadas y al ancho del área donde están los gráficos?

Respuestas a la pregunta(4)

Su respuesta a la pregunta