r - 检测向量中的空字符串并将每个空字符串替换为其前一个元素

Question

这个问题在这里已经有了答案:

Add missing value in column with value from row above (5 个回答)

关闭 4年前。

假设我有这个向量:

vector <- c("hello", "", "sometimes!","", "goodbye", "okay")

我想将每个空字符串替换为其前一项。

一开始我也想过用

Library(stringi) #package
stri_isempty(vector)
[1] FALSE  TRUE FALSE  TRUE FALSE FALSE

要知道哪个元素是空的，但是现在，我被卡住了。

我想得到这个结果:

[1] "hello"      "hello"      "sometimes!" "sometimes"  "goodbye"    "okay" 

接下来我该怎么做？

谢谢

---

编辑:另外，如果我想添加，我应该在建议的答案中添加什么

"final"

在每个空字符串的前面？

编辑 2:我能够使用 Erik Kornet 的代码在上一项之前添加另一个字符串:

for (v in 1:length(vector)){
    if (vector[v] == ""){
      vector[v] = paste("final", vector[v-1])
    }
}

Answer 1

我们可以将 "" 替换为 NA，然后使用 zoo 包中的 na.locf。

vec <- c("hello", "", "sometimes!","", "goodbye", "okay")

library(zoo)
vec[vec %in% ""] <- NA
vec2 <- na.locf(vec)
vec2
# [1] "hello"      "hello"      "sometimes!" "sometimes!" "goodbye"    "okay"