[英]R dplyr: rowwise + mutate (+glue) - how to get/refer row content?
输入数据的简单示例:
dataset <- data.frame("part1" = c("a", "b", "c"),
"part2" = c("x", "y", "z"),
"caption" = c("{part1} {part2}",
"{part2} {part1}",
"{part2} {part1} {part2}"),
stringsAsFactors = F)
预期成绩:
# A tibble: 3 x 3
part1 part2 caption
<chr> <chr> <chr>
1 a x a x
2 b y y b
3 c z z c z
下面的代码不起作用,因为.
指的是整个dataset
,而不是整行内容的数据:
dataset %>%
rowwise() %>%
mutate("caption" =
glue::glue_data(., caption)
)
问题:如何将行(所有)内容传递给glue
?
有效的代码(明确声明的行“内容”)不是我一直在寻找的,因为我的数据集中在caption
“模式”中使用了更多列,因此我想避免手动声明它,只是传递整行内容。
dataset %>%
rowwise() %>%
mutate("caption" =
glue::glue_data(
list("part1" = part1,
"part2" = part2)
, caption)
)
它的工作原理很简单:
dataset %>% rowwise %>% mutate(r=as.character(glue(caption)))
#Source: local data frame [3 x 4]
#Groups: <by row>
## A tibble: 3 x 4
# part1 part2 caption r
# <chr> <chr> <chr> <chr>
#1 a x {part1} {part2} a x
#2 b y {part2} {part1} y b
#3 c z {part2} {part1} {part2} z c z
注意:我添加as.character
只是为了避免出现似乎是rowwise
问题的rowwise
( Vectorizing 'glue' elements may not preserve their attributes
)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.