我有相等的行和列的数据框/矩阵。我只想提取上三角形或下三角形。
x<-data.frame(matrix(1:25,nrow=5))
colnames(x)<-LETTERS[1:5]
rownames(x)<-LETTERS[1:5]
x[upper.tri(x,diag=F)]
根据此结果，无法说出该值来自列和行的组合。因此，我想在结果中包含行和列属性。像这样的东西：
Col Row Val
B A 6
C A 11
C B 12
...
对于大型相关矩阵，我需要这样做。谢谢。
首先，为了使事情变得明确，我改变了
colnames(x) <- LETTERS[6:10]
使用expand.grid得到这样的行和列名
rowCol <- expand.grid(rownames(x), colnames(x))
要从此数据框中获取正确的行，请
labs <- rowCol[as.vector(upper.tri(x,diag=F)),]
df <- cbind(labs, x[upper.tri(x,diag=F)])
colnames(df) <- c("Row","Col","Val")
df[,c(2,1,3)]
## Col Row Val
## 6 G A 6
## 11 H A 11
## ...
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句