[英]Unquoting fails to find variable in mutate and map2 when renaming column of data in nested tibble R
[英]R nested tibble map2 comparisons
我正在嘗試使用map2來比較嵌套的tibble列。 這是我的數據格式:
> tbl
# A tibble: 3 x 3
ID data.x data.y
<chr> <list> <list>
1 a <tibble [2 x 2]> <tibble [2 x 2]>
2 b <tibble [2 x 2]> <tibble [2 x 2]>
3 c <tibble [2 x 2]> <tibble [2 x 2]>
data.x和data.y中的元素從列名的角度來看是相同的,值可能不同。 我想從val列獲得最大價值。 我認為這可行,但只返回data.x的max。 我並不完全了解map2的工作原理。
tbl %>%
mutate(col1 = map2_dbl(data.x, data.y, ~ max(.$val)))
結果應該是:
# A tibble: 3 x 4
ID data.x data.y col1
<chr> <list> <list> <dbl>
1 a <tibble [2 x 2]> <tibble [2 x 2]> 7.
2 b <tibble [2 x 2]> <tibble [2 x 2]> 8.
3 c <tibble [2 x 2]> <tibble [2 x 2]> 8.
數據:
> dput(tbl)
structure(list(ID = c("a", "b", "c"), data.x = list(structure(list(
text = c("Y", "Y"), val = c(1, 1)), .Names = c("text", "val"
), row.names = c(NA, -2L), class = c("tbl_df", "tbl", "data.frame"
)), structure(list(text = c("N", "N"), val = c(2, 2)), .Names = c("text",
"val"), row.names = c(NA, -2L), class = c("tbl_df", "tbl", "data.frame"
)), structure(list(text = c("Y", "Y"), val = c(3, 3)), .Names = c("text",
"val"), row.names = c(NA, -2L), class = c("tbl_df", "tbl", "data.frame"
))), data.y = list(structure(list(text = c("Y", "Y"), val = c(6,
7)), .Names = c("text", "val"), row.names = c(NA, -2L), class = c("tbl_df",
"tbl", "data.frame")), structure(list(text = c("Y", "Y"), val = c(8,
6)), .Names = c("text", "val"), row.names = c(NA, -2L), class = c("tbl_df",
"tbl", "data.frame")), structure(list(text = c("N", "N"), val = c(7,
8)), .Names = c("text", "val"), row.names = c(NA, -2L), class = c("tbl_df",
"tbl", "data.frame")))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -3L), .Names = c("ID", "data.x", "data.y"
))
根據預期的輸出,我們從'data.x'和'data.y' lists
中提取data.frame
的'val'列,將它連接在一起( c
)並獲得max
tbl %>%
mutate(col1 = map2_dbl(data.x, data.y, ~ max(c(.x$val, .y$val))))
# A tibble: 3 x 4
# ID data.x data.y col1
# <chr> <list> <list> <dbl>
#1 a <tibble [2 x 2]> <tibble [2 x 2]> 7.00
#2 b <tibble [2 x 2]> <tibble [2 x 2]> 8.00
#3 c <tibble [2 x 2]> <tibble [2 x 2]> 8.00
對於“數據”的多個列,可以使用pmap
tbl %>%
mutate(col1 = pmap_dbl(.[-1], ~ max(c(..1$val, ..2$val))))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.