R 如何将双矩阵转换为数据帧列

发布于11月03日

我正在try 将某个正方形双矩阵reshape 为一些列数据帧

类似于:

                genomeA    genomeB    genomeC
       genomeA    1.0        0.5       0.3
       genomeB    0.5        1.0       0.2
       genomeC    0.3        0.2       1.0

vt.进入，进入

Genomes1   Genomes2    Value
genomeA    genomeA     1.0
genomeA    genomeB     0.5
genomeA    genomeC     0.3
 .....

i tried to cast it vt.进入，进入 a dataframe but it didn't do anything i tried with tibble

    df <- corr %>%
  as_tibble() %>%
  setNames(c('GenomesA', 'GenomesB', 'AAI'))

它创造了一些奇怪的矩阵，但不是我想要的

如果有人为我做线索！谢谢

推荐答案

您可以使用array2DF(在R 4.3.0中引入):

array2DF(m)

但这会产生意外的后果，输出不正确的第二列；您可以这样进行补救:

array2DF(m, responseName = "AAI", simplify = FALSE) |>
  transform(AAI = mapply(\(x, y) x[y], AAI, match(Var2, unique(Var2))))

#      Var1    Var2 AAI
# 1 genomeA genomeA 1.0
# 2 genomeB genomeA 0.5
# 3 genomeC genomeA 0.3
# 4 genomeA genomeB 0.5
# 5 genomeB genomeB 1.0
# 6 genomeC genomeB 0.2
# 7 genomeA genomeC 0.3
# 8 genomeB genomeC 0.2
# 9 genomeC genomeC 1.0

数据

m <- read.table(h=T,text="         genomeA    genomeB    genomeC
       genomeA    1.0        0.5       0.3
       genomeB    0.5        1.0       0.2
       genomeC    0.3        0.2       1.0")