主页 / coding / 问题 / 78678908
Accepted
J K
Asked: 2024-06-28 00:40:40 +0800 CST

使用外部表 / 数据框在 dplyr / purrr 中进行变异

  • 772

我想使用单独的数据框对测试执行变异，如下所示：

library(tidyverse)

test <- tribble(
  ~col1, ~col2, ~col3,
  "one", "a", "b",
  "two", "b", "c",
  "three", "c", "d"
)

mutator <- tribble(
  ~mutate_from, ~mutate_to,
  "a", "X",
  "b", "X"
)

期望输出：

> test
# A tibble: 3 x 3
  col1  col2  col3 
  <chr> <chr> <chr>
1 one   a     X    
2 two   b     X    
3 three c     d

我不知道该如何实现这一点：

test %>% 
  mutate(col3 = map(mutator, ~.x %>% ?))

最终目标可能是在变量器中进行 30 个左右的观察，所以我希望以某种方式实现这一点。

2 个回答

  1. Best Answer

    我不确定这是否足以满足您的目的，但您可以更新该列：

    library(dplyr)

test |>
  rows_update(rename(mutator, col2 = mutate_from, col3 = mutate_to), by = "col2")
#   col1  col2  col3 
#   <chr> <chr> <chr>
# 1 one   a     X    
# 2 two   b     X    
# 3 three c     d

    或者进行左连接：

    left_join(test, mutator, by = c(col2 = "mutate_from")) |>
  mutate(col3 = coalesce(mutate_to, col3), .keep = "unused")

    或者使用match()获取匹配的行索引：

    test |>
  mutate(col3 = coalesce(mutator$mutate_to[match(col2, mutator$mutate_from)], col3))

    如果您想跨多列执行此操作，那么您可以转换mutator为命名向量：

    lookup <- pull(mutator, mutate_to, mutate_from)

test |>
  mutate(across(col3, \(x) ifelse(col2 %in% names(lookup), lookup[col2], x)))
    • 4

  2. 为了补充 LMc 的答案，这里还有另外两种替代方案，将从中生成的命名向量提供给mutator任一dplyr::recode（注意!!!运算符）

    test %>% dplyr::mutate(col3 = dplyr::recode(col2,!!!setNames(mutator$mutate_to,mutator$mutate_from)))

    或者plyr::revalue

    test %>% dplyr::mutate(col3 = plyr::revalue(col2,setNames(mutator$mutate_to,mutator$mutate_from)))
    • 1

相关问题