在情节内绘图

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)

为了获得以下内容

我还想让情节2变得透明,这样如果在情节2后面有一些情节1的元素,它们仍会显示(就像蓝线一样).同样重要的是图2的较大标签以及其轴上没有标签和刻度.

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

Answer 1

好的,这是一个例子,我把它绘制成10×10英寸的pdf.(使用par(fig = )等人的一部分令人沮丧的是,它们的效果在很大程度上取决于绘图设备的大小.)

编辑添加一些解释:

基本图形绘制参数par("fig")描述/设置图形区域的位置作为"绘图区域"的比例(对于单个图形图,通常是整个设备).它的格式的一个长度为4的矢量c(xmin, xmax, ymin, ymax)组成的数字(比例)之间0和1.

在这里,我使用grconvertX()并将grconvertY()根据较大图的自身(也称为"user")坐标系表示的xy位置转换为"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()

Answer 2

这是一种方法:

curve(exp(x), from=1, to=5, lwd=5)
curve(150-exp(x), from=1, to=5, lwd=5, col="darkblue",add=T)
par(new=TRUE)
par(oma=c(1,4,5,1))
par(mfcol=c(2,2), mfg=c(1,1))
par(mar=c(7,7,1,1))
curve(exp(x), from=1, to=5, lwd=7, xlab="chi", ylab="exp(x)", cex.lab=2,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=1.5)
text(4,10,"Beta",adj=c(0,0),cex=1.5)

给我这个:

使用各种选项(尤其是oma和mar)将结果格式化为您的喜好.