r - 在 R 中制作 "dropdown"函数

Question

我经常以 excel 电子表格的格式获取数据，如下所示:

Name1 Data
      Data
      Data  
Name2 Data
      Data
      Data
....

当我将其读入 R 时，空白行作为 NA 出现，然后我总是编写一些临时代码来填充它，使其看起来像:

Name1 Data
Name1 Data
Name1 Data
Name2 Data
Name2 Data
Name2 Data
....

通常，我只是用一个 for 循环来跟踪姓氏，每次我看到 NA 时我都会填写它。下次我在名称列中看到某些内容时，我会保存新名称并开始写吧。

我想知道是否有更漂亮的 R 向量化版本？

谢谢!

Answer 1

你可以试试

  indx <- !is.na(df$Col1)
  df$Col1 <- df$Col1[indx][cumsum(indx)] 
  df
  #   Col1 Col2
  #1 Name1 Data
  #2 Name1 Data
  #3 Name1 Data
  #4 Name2 Data
  #5 Name2 Data
  #6 Name2 Data

数据

df <- structure(list(Col1 = c("Name1", NA, NA, "Name2", NA, NA),
 Col2 = c("Data", "Data", "Data", "Data", "Data", "Data")), .Names = c("Col1", 
"Col2"), class = "data.frame", row.names = c(NA, -6L))