假设我有3个数据框(df1,df2,df3)来解释汽车的颜色,年份和品牌。每个数据框都有一个名为" id"的列。并非所有ID都匹配在每个数据框中,但我想在所有三个数据框中创建唯一ID的列表。
df1 looks like this:
id color
5A black
7T green
8Q gold
4D white
df2 looks like this:
id make
5A BMW
6N Benz
8Q GM
3G Toyota
df3 looks like this:
id year
5A 2003
2B 2010
8Q 1999
4D 2007
这里是制作3个数据帧的代码:
df1 <- data.frame(id=c("5A", "7T", "8Q", "4D"), color=c("black", "green", "gold", "white"))
df2 <- data.frame(id=c("5A", "6N", "8Q", "3G"), make=c("BMW", "Benz", "GM", "Toyota"))
df3 <- data.frame(id=c("5A", "2B", "8Q", "4D"), year=c(2003,2010,1999,2007))
我希望我的最终列表具有以下值:
id
5A
7T
8Q
4D
6N
3G
2B
我尝试使用unique(),但只适用于一个向量?有什么想法吗?
答案 0 :(得分:3)
unique(c(df1$id, df2$id, df3$id))
适用于数值。
unique(c(as.character(df1$id), as.character(df2$id), as.character(df3$id)))
将值作为字符返回,如果需要,可以将它们操作回因子。
答案 1 :(得分:1)
这可能是一种方法
lst <- list(df1, df2, df3)
unique(unlist(lapply(lst, function(x) unique(x[,1]))))
[1] 5A 7T 8Q 4D 6N 3G 2B
Levels: 4D 5A 7T 8Q 3G 6N 2B