我想创建一个数据框，类似于这样的：
  Data1   Data2   Data3
1   1       2  3         4
2   2       3  4         5
某一列每个单元存放两个数的，我现在就是想把行数和列数存放在maxplace、minplace、splace里面，形式跟上面Data2一样

rt<-read.csv("C:/Users/10477/Desktop/AEP.csv",sep = ",",header = F)
as.matrix(rt)
rmax<-1221;cmax<-17
rt.mean<-matrix(1:20757,nrow=1221,ncol = 17)
for (r in 1:rmax){
     for(c in 1:cmax){
      rt.mean[r,c]<-rowMeans(rt[r,(10*c-9):(10*c)])
      }
}
max<-array(1:17,c(1,17));min<-array(1:17,c(1,17));secondmax<-array(1:17,c(1,17))
maxplace1<-array(1:17,c(1,17));maxplace2<-array(1:17,c(1,17));minplace1<-array(1:17,c(1,17));minplace2<-array(1:17,c(1,17));splace1<-array(1:17,c(1,17));splace2<-array(1:17,c(1,17))
for (c in 1:cmax) {
        max[c]<-max(rt.mean[,c])
        min[c]<-min(rt.mean[,c])
        for (r in 1:rmax) {
          if(rt.mean[r,c]==max[c]){
          dfmaxplace<-data.frame(maxplace=c(r,c)) #这里运行出错
          }else if(rt.mean[r,c]==min[c]){
            dfminplace<-data.frame(minplace=c(r,c)) #这里运行出错
            xmin<-r
            secondmax[c]<-max(rt.mean[1:xmin,c])
          }
     }
}
for (c in 1:cmax) {
  for (r in 1:rmax) {
    if(rt.mean[r,c]==secondmax[c]){
      dfsplace<-data.frame(splace=c(r,c)) #这里运行出错
   }
}
}
df<-data.frame(max=max,min=min,maxplace=dfmaxplace,minplace=dfminplace,secondmax=secondmax,secondmaxplace=dfsplace)
df