数据框拉直问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

2line14dayrelable.xls (40 KB)

2017-7-13 13:11:44 上传

如上的csv文件，为了上传我转成了xls

matrixdata <- read.csv(file = "2line14dayrelable.csv", header = F)

生成了一个数据框，我想把它变成类似
17，17，0.7218648
17，18，3.7775223
……………………
类似这种，把这个矩阵形式拉直，变成X,Y,Z形式
我把数据框变成了矩阵，使用了一个自编函数

1. matrix.grid<-function(matrix)
   
2. {
   
3.   data.<-numeric()
   
4.   x<-numeric()
   
5.   y<-numeric()
   
6.   
   
7.   for(i in 2:dim(matrix)[1])
   
8.   {
   
9.     for(j in 2:dim(matrix)[2])
   
10.     {
    
11.       x<-c(x,i)
    
12.       y<-c(y,j)
    
13.       data.<-c(data.,matrix[i,j])
    
14.     }
    
15.   }
    
16.   data.frame(x,y,z=data.)
    
17. }

复制代码

但是这样生成的是 这样的形式，我前面X,Y序号是有意义的，不能从头开始那样，求问如何能够把数据框里面矩阵正确的拉直呢？有没有别的什么思路，求大神解惑

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：数据框 matrix Data xls Mat

csv读取后生成这样一个数据框
第一行，第一列相当于我的坐标值XY，矩阵相当于Z

tpx = unlist(data[1,-1])
tpy = data[,1][-1]
tpz = unlist(data[-1,-1])
xy = expand.grid(tpx, tpy)
xyz = data.frame(xy, tpz)


或者楼主的函数改成
matrix.grid<-function(matrix1)
{
  data.<-numeric()
  x<-numeric()
  y<-numeric()
  
  for(i in 2:dim(matrix1)[1])
  {
    for(j in 2:dim(matrix1)[2])
    {
      x<-c(x,matrix1[i, 1])
      y<-c(y,matrix1[1, j])
      data.<-c(data.,matrix1[i,j])
    }
  }
  data.frame(x,y,z=data.)
}

这个问题很简单，就是把矩阵转换成一一对应的data.frame。有reshape包里的melt函数即可解决，代码如下：

1. xx <- read.csv("2line14dayrelable.csv")
   
2. library(reshape)
   
3. x2 <- melt(xx,id="X")
   
4. x2$variable <- as.numeric(gsub("X","",x2$variable))
   
5. x2

复制代码

也可以这样
dt=read.csv("2line14dayrelable.csv",head=F)
dtrow=dt[-1,1]
dtcol=t(as.matrix(dt[1,-1]))
dtcore=stack(dt[-1,-1])[,1]
dtpos=merge(dtrow,dtcol)
outdata=cbind(merge(dtrow,dtcol),dtcore)
names(outdata)=c("x","y","z")

上面代码中 dtpos=merge(dtrow,dtcol) 这一句不需要，忘了删除