在 R 中将列更改为连续观察

Question

我目前正在努力将我的数据中的一列转换为一行作为观察。 以下是我的数据的代表性示例：

library(tidyverse)
test_df <- tibble(unit_name=rep("Chungcheongbuk-do"),unit_n=rep(2),
               can=c("Cho Bong-am","Lee Seung-man","Lee Si-yeong","Shin Heung-woo"),
               pev1=rep(510014),vot1=rep(457815),vv1=rep(445955),
               ivv1=rep(11860),cv1=c(25875,386665,23006,10409),
               abstention=rep(52199))

如上所示， abstention列存在于我的数据框的末尾，我希望我的数据如下所示：

library(tidyverse)
desired_df <- tibble(unit_name=rep("Chungcheongbuk-do"),unit_n=rep(2),
                     can=c("Cho Bong-am","Lee Seung-man","Lee Si-yeong","Shin Heung-woo","abstention"),
                     pev1=rep(510014),vot1=rep(457815),vv1=rep(445955),
                     ivv1=rep(11860),cv1=c(25875,386665,23006,10409,52199))

在这里，弃权被视为候选人，在can列中。 至此，数据的rest保持不变，弃权值是自己在cv1列中观察到的。

我曾尝试使用pivot_wider ，但我不确定如何使用 arguments 来获得我想要的东西。 我还考虑过t()将列转换为一行，但也很难将其重新插入我的数据中。 任何帮助表示赞赏！ 谢谢！

Answer 1

这是一个策略，如果您有多个 unit_names 将起作用

test_df %>% 
  group_split(unit_name) %>%
  map( function(group_data) {
    slice(group_data, 1) %>% 
      mutate(can="abstention", cv1=abstention) %>% 
      add_row(group_data, .) %>%
      select(-abstention)
  }) %>% 
  bind_rows()

基本上我们按 unit_name 拆分数据，然后我们抓取每个组的第一行并移动值。 Append 即为每个组的新行，然后重新组合所有组。