我想在一张图上显示两个图

Question

我想在一个图形上绘制两个图形。在Matlab中，我绘制第一个图形，然后使用hold on，然后要求它绘制第二个图形。这是我到目前为止编写的代码。数据检索是正确的。每个列表有6个数字。我尝试使用'''par'''，但我在图形上绘制了一个图，但重叠了名称。

tempLength <- dim(R_to_C_03M)
tempLength <- tempLength ## gives me the width of R_to_C_03M
tempnames <- colnames(R1)
if (tempLength>2){
  for( i in 2:tempLength){
    lipid1<-as.numeric(R_to_C_03M[1,i]) # Gets the column number of the first lipid
    lipid2<-as.numeric(R_to_C_03M[2,i]) # Gets the column number of the     seccond lipid
    list1<- R1_table[,lipid1]           #Retrives the data from the colum.
    list2<- R1_table[,lipid2]
    list3<- C1_table[,lipid1]
    list4<- C1_table[,lipid2]
    plot(lipid1,lipid2,xlab = tempnames[lipid1], ylab =tempnames[lipid2])
    par(new=TRUE)
    plot(list3,list4)

  }
}

我希望在一个图形上显示两个图，如果可能的话，使用相同的轴。第一个情节是针对list1的list2，第二个情节是针对list3的list4。不同图形的x轴值不同，但是我希望轴相同，其他问题和答案都使用相同的x轴值

解决方案：

if (tempLength>2){
  for( i in 2:tempLength){
    lipid1<-as.numeric(R_to_C_03M[1,i]) 
    lipid2<-as.numeric(R_to_C_03M[2,i])
    list1<- R1_table[,lipid1]           #Retrives the data from the colum.
    list2<- R1_table[,lipid2]
    list3<- C1_table[,lipid1]
    list4<- C1_table[,lipid2]
    lipid1name <- tempnames[lipid1]
    lipid2name <-tempnames[lipid2]
    plot(list1,list2,xlab = lipid1name, ylab =lipid2name)
    par(new=TRUE)
    plot(list3,list4,xlab='', ylab='',axes=FALSE)
    par(new=FALSE)
  }
}