在R中扩展ROWWISE的值

Question

我有一个从Excel导入的数据集，其中包含类似于以下示例的格式的数据：

var1 <- c("F3.1", NA, NA, NA, NA, "F3.2", NA, NA, NA, "F4.2", "F4.3", NA, NA)
var2 <- letters[1:13]
df <- data.frame(var1, var2)
df

   var1 var2
1  F3.1    a
2  <NA>    b
3  <NA>    c
4  <NA>    d
5  <NA>    e
6  F3.2    f
7  <NA>    g
8  <NA>    h
9  <NA>    i
10 F4.2    j
11 F4.3    k
12 <NA>    l
13 <NA>    m

我想扩展var1 rowwise，因此最终输出看起来像这样：

   var1 var2
1  F3.1    a
2  F3.1    b
3  F3.1    c
4  F3.1    d
5  F3.1    e
6  F3.2    f
7  F3.2    g
8  F3.2    h
9  F3.2    i
10 F4.2    j
11 F4.3    k
12 F4.3    l
13 F4.3    m

我尝试用if（IS）编写某种循环（。 na（var1））{复制上一个值} else {var1}，但尚未弄清楚。我还研究了Expand（），但发现很难应用于这种情况，因为我没有其他变量可以进行分组。 最后：示例只是一个示例；我正在以这种布局的形式导入很多擅长的情况，因此我正在寻找一种尽可能自动执行此操作的方法。

Answer 1

library(tidyr)

df %>% fill(var1)

将完成这项工作。参见在这里。