Question

可能这是一个容易出问题的问题。我有一个如下的数据集。

dat2 <- read.table(header=TRUE, text="
ID  De  Ep  Ti  ID1
A1123    A117 A121 A100 A11231
                   A1123 A108 C207 D110 E11232
                   A1124 A122 C207 D110 E11232
                   A1124 A117 C207 D110 E11232
                   A1124 A122 C208 D110 E11232
                   B1125 A108 C208 D110 E11232
                   B1125 A108 C208 D110 E11232
                   B1126 A122 C208 D110 E11233
                   C1126 A109 C208 D111 E11233
                   ")
dat2
dat2
     ID   De   Ep   Ti    ID1
1 A1123 A117 A121 A100 A11231
2 A1123 A108 C207 D110 E11232
3 A1124 A122 C207 D110 E11232
4 A1124 A117 C207 D110 E11232
5 A1124 A122 C208 D110 E11232
6 B1125 A108 C208 D110 E11232
7 B1125 A108 C208 D110 E11232
8 B1126 A122 C208 D110 E11233
9 C1126 A109 C208 D111 E11233

我可以使用table函数获取摘要。

table(dat2$ID)
A1123 A1124 B1125 C1126 
    2     3     3     1 

table(dat2$De)
A108 A109 A117 A122 
   3    1    2    3

我想列出前两列中的所有元素名称，如下所示。

t <- c("A1123", "A1124","B1125","C1126", "A108", "A109", "A117", "A122")
t
[1] "A1123" "A1124" "B1125" "C1126" "A108"  "A109"  "A117"  "A122"

根据Neal的快速反应，我可以轻松获得前两列的列表。

with(dat2, union(ID, De))
[1] "A1123" "A1124" "B1125" "C1126" "A117"  "A108"  "A122"  "A109"

但是如果我想从所有列中获取名称列表，那么上面的代码就不起作用了。

Answer 1

使用union在两组中查找唯一值：

with(dat2, union(ID, De))

对于所有列，请使用Reduce：

Reduce(union, dat2)

Answer 2

获取整个数据框的唯一值的另一个选项是：

unique(unlist(dat2))

给出：

> unique(unlist(dat2))
 [1] A1123  A1124  B1125  B1126  C1126  A117   A108   A122   A109   A121  
[11] C207   C208   A100   D110   D111   A11231 E11232 E11233
18 Levels: A1123 A1124 B1125 B1126 C1126 A108 A109 A117 A122 A121 C207 ... E11233

如果您想要计算每个唯一值，可以使用：

table(unlist(dat2))

导致：

 A1123  A1124  B1125  B1126  C1126   A108   A109   A117   A122   A121   C207 
     2      3      2      1      1      3      1      2      3      1      3 
  C208   A100   D110   D111 A11231 E11232 E11233 
     5      1      7      1      1      6      2

列出所有列元素名称

2 个答案: