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

matrix.grid<-function(matrix)

{

  data.<-numeric()

  x<-numeric()

  y<-numeric()

 

  for(i in 2:dim(matrix)[1])

  {

    for(j in 2:dim(matrix)[2])

    {

      x<-c(x,i)

      y<-c(y,j)

      data.<-c(data.,matrix[i,j])

    }

  }

  data.frame(x,y,z=data.)

########解决方法参考：xx <- read.csv("2line14dayrelable.csv")

library(reshape)

x2 <- melt(xx,id="X")

x2variable<−as.numeric(gsub("X","",x2variable))

x2