Question

我正在尝试制作类似于相关图的图形。但是，我的数据格式很长，我只想显示矩阵的下三角。因此，我获取了数据并使用以下方法对其进行了调整：

x<-c('A','B','C')
data<-expand.grid(x,x)
data$value<-c(1,2,3,2,1,4,3,4,1)
r.data<-reshape(data, idvar = "Var1", timevar = "Var2", direction = "wide")
colnames(r.data)<-c('Var','A','B','C')
rownames(r.data)<-r.data$Var
r.data$Var<-NULL

接下来，我找到了数据的下三角部分：

get_lower_tri<-function(cormat){
  cormat[upper.tri(cormat)] <- NA
  return(cormat)
}
r.data_lower<-get_lower_tri(r.data)

但是当我使用melt()时，由于没有id，所以现在只有一列用于变量和值。我将如何定义id变量或修复某些问题，使其采用标准的熔化格式？

预期：

Var1  Var2   value
 A     A       1
 B     A       2
 B     B       1
 C     A       3
 C     B       4
 C     C       1

Answer 1

一种选择是先转换为matrix，然后再通过melt选项转换为na.rm = TRUE

library(reshape2)
melt(as.matrix(r.data_lower), na.rm = TRUE)

R中从长到宽到长格式的困难

1 个答案: