r - 基于阈值的汇总表

Question

这可能是一个非常简单的问题。但是我没有使用我已知的 dplyr职能。这是数据:

tab1 <- read.table(header=TRUE, text="
    Col1    A1  A2  A3  A4  A5
    ID1 43  52  33  25  59
                       ID2  27  41  20  71  22
                       ID3  37  76  36  27  44
                       ID4  23  71  62  25  63                  
                      ")
tab1
  Col1 A1 A2 A3 A4 A5
1  ID1 43 52 33 25 59
2  ID2 27 41 20 71 22
3  ID3 37 76 36 27 44
4  ID4 23 71 62 25 63

我打算通过保持值低于 30 来获得如下所示的列联表。

Col1  Col2  Val
ID1   A4    25
ID2   A1    27
ID2   A3    20
ID2   A5    22
ID3   A4    27
ID4   A1    23
ID4   A4    25

Answer 1

使用 reshape2 包与熔体:

library(reshape2)
tab2 = melt(tab1)
tab2[tab2$value < 30,]

输出:

   Col1 variable value
2   ID2       A1    27
4   ID4       A1    23
10  ID2       A3    20
13  ID1       A4    25
15  ID3       A4    27
16  ID4       A4    25
18  ID2       A5    22