如何在R的dplyr pipe的变异中使用hashmap的查询function？

Question

我想使用 hashmap 找到一个值，然后使用该值计算一个新值。 平时我尽量高效工作，但我对R不是很精通。我知道dplyr管道的基础，所以不想再使用for循环了。

这是这种情况的最小可重现示例：

data("mtcars")

m.subset <- mtcars[2:7, 10:11]
letters <- c("a", "b", "c", "d", "e", "f")
m.subset <- cbind(m.subset, letters)

testmap <- hashmap()
testmap[c("a", "b", "c", "d", "e", "f")] <- c(4.0, 5.0, 6.0, 7.0, 8.0, 9.0)

m.subset %>% mutate(score1=query(testmap, letters)*gear) -> m.subset

不幸的是，我收到此错误：

Error in `mutate()`:
! Problem while computing `score1 = query(testmap, letters) * gear`.
✖ `score1` must be size 6 or 1, not 0.
Run `rlang::last_error()` to see where the error occurred.

请注意，这是有效的： score1=query(testmap, m.subset$letters[1])*m.subset$gear[1] ，显然我可以将 1 与 i 互换并使用 for 循环。 但我不想这样做，因为 dplyr pipe 非常适合按列计算。

我还在 StackOverflow 上阅读了几个问题，例如error-in-r-mutate-must-be-size-4-or-1-not-0 。

Answer 1

假设您将r2r用于hashmap和query ，您可以尝试以下操作。 使用来自purrr的map2 ，您可以 go 通过letters和gear的每个元素，并使用您的测试图应用testmap query 。

library(tidyverse)
library(r2r)

m.subset %>% 
  mutate(score1 = map2(
    letters,
    gear,
    ~ query(testmap, .x) * .y
  ))

Output

                  gear carb letters score1
Mazda RX4 Wag        4    4       a     16
Datsun 710           4    1       b     20
Hornet 4 Drive       3    1       c     18
Hornet Sportabout    3    2       d     21
Valiant              3    1       e     24
Duster 360           3    4       f     27