从R中的条形图创建子图

我有一个条形图，我想从条形图创建一个子图，它只包括第一列和第二列，我如何在R中做到这一点？我编写了以下代码，但它不能正常工作

   library(package="TeachingDemos")
   barplot(c(.1, .2, .3,.4), space=0, ylim=c(0, 1))
   lines(c(0, 1, 2, 3), y=c(.1, .2, .3, .4), col="blue",lty=2)
   op <- par(no.readonly=TRUE)
   new = subplot(
   barplot(c(.1, .2, .3, .4), space=0, xlim=c(0, 2), ylim=c(0, 0.001), xlab="", ylab= "", lwd=2),  grconvertX(.1,from='npc'), grconvertY(0.25,from='npc'), 
   vadj=0, hadj=0 , size=c(1, .5))
   op <- par(no.readonly=TRUE)
   new1 = subplot(
   lines(c(0, 1, 2, 3),c(.1, .2, .3, .4), col="blue", lwd =2, lty = 2, type="l", xlim=c(0, .5),     ylim=c(0, 0.02), xlab="", ylab="", labels = FALSE),
   grconvertX(.1,from='npc'), grconvertY(0.25,from='npc'), vadj=0, hadj=0 , size=c(1, .5))
   par(new)
   par(new1)

库（package=“TeachingDemos”）
条形图（c（.1,2,3,4），空格=0，ylim=c（0,1））
行（c（0,1,2,3），y=c（.1,2,3,4），col=“blue”，lty=2）
op我注意到您的
ylim
需要根据您拥有的数据进行调整，以及您希望绘制
c（0.1,0.2,0.3,0.4）
向量中的前两个元素

也许
par（…，fig=c（），new=T）
对你有帮助

# Begin plotting
par(oma=c(rep(1,4)),ps=12,fig=c(0,1,0,1))
barplot(c(.1, .2, .3,.4), space=0, ylim=c(0, 1))
lines(c(0, 1, 2, 3), y=c(.1, .2, .3, .4), col="blue",lty=2)

# Begin the sub-plot 1
par(fig=c(0.2,0.6,0.5,0.95),oma=c(0,1,0,0),new=T)
# You need to only plot the values you needed: I updated ylim to reflect this too.
barplot(c(.1, .2), space=0, xlim=c(0, 2), ylim=c(0, 0.3), xlab="", ylab= "", lwd=2)
box(lty='solid',col='black')

# Begin the sub-plot 2
par(fig=c(0.6,1,0.5,0.95),oma=c(0,1,0,0),new=T)
lines(c(0, 1),c(.1, .2), col="blue", lwd =2, lty = 2, type="l", xlim=c(0, .5),     ylim=c(0, 0.3), xlab="", ylab="")

我不确定您到底想做什么，但下面是基于您的代码的代码：

library(package="TeachingDemos")

barplot(c(.1, .2, .3,.4), space=0, ylim=c(0, 1))

lines(c(0, 1, 2, 3), y=c(.1, .2, .3, .4), col="blue",lty=2)

op <- par(no.readonly=TRUE)

new <- subplot(
    barplot(c(.1, .2, .3, .4)[1:2], space=0, xlim=c(0, 2), ylim=c(0, 0.2), 
        xlab="", ylab= "", lwd=2),  
    grconvertX(.1,from='npc'), grconvertY(0.25,from='npc'), 
    vadj=0, hadj=0 , size=c(1, .5))

tmp <- par(new)
lines( c(0,1,2,3)[1:2], c(0.1,0.2,0.3,0.4)[1:2], col='blue', lwd=2, lty=2 )
par(tmp)

库（package=“TeachingDemos”）
条形图（c（.1,2,3,4），空格=0，ylim=c（0,1））
行（c（0,1,2,3），y=c（.1,2,3,4），col=“blue”，lty=2）
op