如何使数据框的个别单元一次储存两个向量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我想创建一个数据框，类似于这样的：
  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

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：数据框 place Data PLA LAC R语言

麻烦大佬们改一下“运行出错”那些地方就可以了！就可以达到Data2的效果了（应该），感激不尽！！！