r - R:在数据框中创建一个新列,使用来自另一个数据框的列名、条件和值
问题描述
将基本数据框视为:
data <- data.frame(amount_bin = c("10K-25K", "25K-35K", "35K-45K", "45K-50K", "50K+", "10K-25K", "25K-35K", "35K-45K", "45K-50K", "50K+", "10K-25K", "25K-35K", "35K-45K", "45K-50K", "50K+"),
risk_score = c("0-700", "700-750", "750-800", "800-850", "850-900", "0-700", "700-750", "750-800", "800-850", "850-900", "0-700", "700-750", "750-800", "800-850", "850-900"))
并将另一个数据框中的信息分组为:
group_info <- data.frame(variable = c("amount_bin_group", "amount_bin_group", "amount_bin_group", "amount_bin_group", "amount_bin_group",
"risk_score_group", "risk_score_group", "risk_score_group", "risk_score_group", "risk_score_group"),
bin = c("10K-25K", "25K-35K", "35K-45K", "45K-50K", "50K+",
"0-700", "700-750", "750-800", "800-850", "850-900"),
group = c("1", "1", "2", "2", "3",
"a", "a", "a", "b", "b"))
我想在名为“amount_bin_group”和“risk_score_group”的基础数据框(数据)中创建 2 列,当 group_info 中的 bin 列和数据相同时,它从 group_info$group 列中获取值。为简单起见,我们假设基列始终是 group_info$variable 名称减去“group”字符串。这意味着,当我们要创建列 amount_bin_group 时,基础列将始终是基础数据框中的 amount_bin。
预期结果数据框为:
final_data <- data.frame(amount_bin = c("10K-25K", "25K-35K", "35K-45K", "45K-50K", "50K+", "10K-25K", "25K-35K", "35K-45K", "45K-50K", "50K+", "10K-25K", "25K-35K", "35K-45K", "45K-50K", "50K+"),
risk_score = c("0-700", "700-750", "750-800", "800-850", "850-900", "0-700", "700-750", "750-800", "800-850", "850-900", "0-700", "700-750", "750-800", "800-850", "850-900"),
amount_bin_group = c("1", "1", "2", "2", "3", "1", "1", "2", "2", "3", "1", "1", "2", "2", "3"),
risk_score_group = c("a", "a", "a", "b", "b", "a", "a", "a", "b", "b", "a", "a", "a", "b", "b"))
我刚刚想到的一个解决方案是迭代合并数据帧,即:
final_data <- merge(data, group_info[, c("bin", "group")], by.x = "amount_bin", by.y = "bin")
final_data$amount_bin_group <- final_data$group
final_data$group <- NULL
但是,我相信可以有更有效的解决方案。请注意,有多个这样的列,而不仅仅是两个。所以,也许循环会有所帮助。
解决方案
您的 group_info 过于整洁。我不敢相信我真的这么说。通过将其分成两个数据框,或将每一半分成自己的列,您可以让自己进行简单的左连接以获得答案。
final_data_calc <- data %>%
left_join(
group_info %>%
filter(variable == 'amount_bin_group') %>%
rename(amount_bin_group = group,amount_bin = bin) %>%
select(-variable)
) %>%
left_join(
group_info %>%
filter(variable == 'risk_score_group') %>%
rename(risk_score_group = group,risk_score = bin) %>%
select(-variable)
)
# amount_bin risk_score amount_bin_group risk_score_group
#1 10K-25K 0-700 1 a
#2 25K-35K 700-750 1 a
#3 35K-45K 750-800 2 a
#4 45K-50K 800-850 2 b
#5 50K+ 850-900 3 b
#6 10K-25K 0-700 1 a
#7 25K-35K 700-750 1 a
#8 35K-45K 750-800 2 a
#9 45K-50K 800-850 2 b
#10 50K+ 850-900 3 b
#11 10K-25K 0-700 1 a
#12 25K-35K 700-750 1 a
#13 35K-45K 750-800 2 a
#14 45K-50K 800-850 2 b
#15 50K+ 850-900 3 b
推荐阅读
- swift - 长按通话按钮后如何添加应用程序
- javascript - Canavs 并没有画出所有的点。只有一个出现
- java - 防止用户输入多个答案
- javascript - 导出配置时将 eslint 配置从 json 转换为 JavaScript 会引发错误
- r - 向字符串添加破折号
- typescript - 反应本机中的Typescript forwardRef错误
- firebase - 带参数的 Firebase 动态链接
- reactjs - 在 material-ui DatePicker 上显示标题
- java - 使用 IntSummaryStatistics 跨多个字段求平均值
- django - Django ORM:使用链接表连接两个表