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

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，然后使用 na.rm = TRUE 选项转换为 melt

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

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

Difficulty with Long to Wide to Long Format in R

r

reshape

melt