以dplyr'命名组；s分组依据，选择单个变量
比如说，在我的数据（例如iris）中，我只想将一个变量——萼片长度按物种分组，并添加两行——一行在顶部（组名）“setosa”，然后是观察结果，在setosa的观察结果结束后，一行写着“END”，后面是两个空白行，之后是新的组名“versicolor”以“结束”行等开始观察。 我的真实数据有200多组，观察结果是字符 到目前为止，我已经用dplyr实现了这一点以dplyr'命名组；s分组依据，选择单个变量,r,group-by,dplyr,naming,R,Group By,Dplyr,Naming,比如说，在我的数据（例如iris）中，我只想将一个变量——萼片长度按物种分组，并添加两行——一行在顶部（组名）“setosa”，然后是观察结果，在setosa的观察结果结束后，一行写着“END”，后面是两个空白行，之后是新的组名“versicolor”以“结束”行等开始观察。 我的真实数据有200多组，观察结果是字符 到目前为止，我已经用dplyr实现了这一点 iris %>% group_by(Species) %>% select(Sepal.Length) %>%
iris %>%
group_by(Species) %>%
select(Sepal.Length) %>%
add_row(.before=0,.after=0)
setosa
4.1
5.1
.
.
END
<empty row1>
<empty row2>
versicolor
5.1
6.1
.
.
END
<empty row1>
<empty row2>
setosa
4.1
5.1
.
.
结束
花色
5.1
6.1
.
.
结束
splitimap\u dfrpurrimap_dfrrbindiris %>%
select(Species, Sepal.Length) %>%
split(.$Species) %>%
imap_dfr(function(df, heading) {
bind_rows(
tibble(newcol = heading),
df %>% mutate(newcol = as.character(Sepal.Length)),
tibble(newcol = "END"),
tibble(newcol = c("", ""))
)
})
newcol