r - 情节内情节

Question

我有情节 1

curve(exp(x), from=1, to=5, lwd=5)
curve(150-exp(x), from=1, to=5, lwd=5, col="darkblue",add=T)

在里面我想添加以下情节 2

par(mar=c(7,7,1,1))
curve(exp(x), from=1, to=5, lwd=7, xlab="chi", ylab="exp(x)", cex.lab=4,axes=F)
axis(1, labels=NA,at=c(0,5))
axis(2, labels=NA,at=c(0,150))
text(1,120,"Alpha",adj=c(0,0),cex=3)
text(3.5,10,"Beta",adj=c(0,0),cex=3)

为了获得以下



我还想让 plot 2 透明，以便如果 plot 2 后面有 plot 1 的一些元素，它们仍然会显示(就像蓝线一样)。同样重要的是图 2 的更大标签以及它的轴上没有标签和刻度。

这可能吗？请仅基于 R 解决方案(无 ggplot2/无格子)

Answer 1

好的，这是一个示例，我将其绘制为 10 x 10 英寸的 pdf。 (使用 par(fig = ) 等人令人沮丧的部分原因是它们的效果在很大程度上取决于绘图设备的大小。)

编辑添加一些解释:

基本图形绘图参数par("fig")将图形区域的位置描述/设置为“绘图区域”(对于单个图形绘图，通常是整个设备)的比例。它采用形式为 c(xmin, xmax, ymin, ymax) 的长度为 4 的向量由 0 之间的数字(比例)组成和 1 .

这里我使用 grconvertX()和 grconvertY()将根据较大图自身(又名 "user")坐标系表示的 x-y 位置转换为 "ndc" (标准化设备坐标)坐标系。 "user"坐标系更加人性化，而"ndc"是(带有上面表示的警告)par("fig") 使用的坐标系. grconvert*()调用只是在那里执行它们之间的翻译。

## pdf("fig-in-fig.pdf", width=10, height=10)
curve(exp(x), from=1, to=5, lwd=5)
curve(150-exp(x), from=1, to=5, lwd=5, col="darkblue",add=T)

## Here's the bit I added.
par(fig = c(grconvertX(c(1, 3), from="user", to="ndc"),
            grconvertY(c(50, 125), from="user", to="ndc")),
    mar = c(4,6,1,1),
    new = TRUE)

curve(exp(x), from=1, to=5, lwd=7, xlab="chi", ylab="exp(x)", cex.lab=4,axes=F)
axis(1, labels=NA,at=c(0,5))
axis(2, labels=NA,at=c(0,150))
text(1,120,"Alpha",adj=c(0,0),cex=3)
text(3.5,10,"Beta",adj=c(0,0),cex=3)
## dev.off()