通过替换 R 中的单元格复制行

Question

我对 R 很陌生，让我解释一下这个问题。 我有以下 data.frame：

df1<-data.frame(name = c("Ann", "Beth", "Jon", "Mark"),
test1 = c(1,3,2,3),
test2 = c("B",NA,"C",NA)
)

简单的说，有四个人。 他们中的两个只参加了 test1 并获得了该测试的结果。 另外两人参加了两项考试。 我希望将此 data.frame 转换为以下内容：

df2<-data.frame(name = c("Ann", "Ann", "Beth", "Jon", "Jon", "Mark"),
test1 = c(1,"B",3,2,"C",3)
)

换句话说，我希望将所有测试结果放在一列中。 顺序无关紧要，例如，“第二个安”可以在最后一行而不是在第二行。 由于 Ann 和 Jon 进行了两次测试，我 (i) 为他们创建了一个额外的行，(ii) 将他们的 test2 结果复制到 test1 中，以及 (iii) 删除了 test2 列。

我的尝试。 我首先复制了 test2 中具有非空值的行：

df1 <- bind_rows(df1, 
              df1 %>%
                filter_at(vars(starts_with("test2")), all_vars(!is.na(.))))

现在我无法解决如何将新行中的 test2 结果传输到 test1 的问题。

Answer 1

这是否有效：

df1 %>% mutate(test1 = as.character(test1)) %>% pivot_longer(!name, names_to = 'test') %>% select(-2) %>% na.omit()
# A tibble: 6 x 2
  name  value
  <chr> <chr>
1 Ann   1    
2 Ann   B    
3 Beth  3    
4 Jon   2    
5 Jon   C    
6 Mark  3