数据框中两列的双重匹配
数据框中两列的双重匹配
提问于 2018-06-03 04:22:32
library(data.table)
data <- setDT(data.frame(name=c(NA, "bob1", "bob", "jack", "bob1", "bob"), ID=c(1,1,4,3,2,1)))
name ID
1: NA 1
2: bob1 1
3: bob 4
4: jack 3
5: bob1 2
6: bob 1匹配条件(同时)：
- 如果不同的名称具有相同的ID，请将名称更改为唯一的名称
- 如果不同的ID具有相同的名称，请将ID更改为唯一的ID
所需输出：
name ID
1: bob 1
2: bob 1
3: bob 1
4: jack 3
5: bob 1
6: bob 1或
name ID
1: bob1 1
2: bob1 1
3: bob1 1
4: jack 3
5: bob1 1
6: bob1 1回答 2
Stack Overflow用户
发布于 2018-06-03 05:57:39
您的问题没有明确定义，这里有两个满足您的标准的解决方案，但它们看起来都不像您想要的输出：
library(data.table)
data <- setDT(data.frame(name=c(NA, "bob1", "bob", "jack", "bob1", "bob"), ID=c(1,1,4,3,2,1)))
data <- na.omit(data) # remove NAs
data$ID <- data$ID[match(data$name,data$name)] # harmonize ids
data$name <- data$name[match(data$ID,data$ID)] # harmonize names
data
# name ID
# 1: bob1 1
# 2: bob 4
# 3: jack 3
# 4: bob1 1
# 5: bob 4
data <- setDT(data.frame(name=c(NA, "bob1", "bob", "jack", "bob1", "bob"), ID=c(1,1,4,3,2,1)))
data <- na.omit(data) # remove NAs
data$name <- data$name[match(data$ID,data$ID)] # harmonize names
data$ID <- data$ID[match(data$name,data$name)] # harmonize ids
data
# name ID
# 1: bob1 1
# 2: bob 4
# 3: jack 3
# 4: bob1 1
# 5: bob1 1Stack Overflow用户
发布于 2018-06-03 16:49:51
一种选择是使用mapply和order。data.table没有做任何特别的事情，因此我更喜欢使用data.frame。
data <- data.frame(name=c(NA, "bob1", "bob", "jack", "bob1", "bob"),
ID=c(1,1,4,3,2,1), stringsAsFactors = FALSE)
# First order on ID
data[order(data$ID),]
as.data.frame(t(mapply(function(x,y){
data[which(!is.na(data$name) & ((!is.na(y) & y==data$name) | x == data$ID))[1],]
}, data$ID, data$name)))
# name ID
# 1 bob1 1
# 2 bob1 1
# 3 bob1 1
# 4 bob1 1
# 5 jack 3
# 6 bob1 1页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50660859
复制相关文章
相似问题