r语言 - 以迭代方式重命名列中同一特定值的第一次和第二次出现

Question

在此 1 列的数据帧df中X值a多次出现：

数据帧：

df <- structure(list(col = c("<NA>", "<NA>", "a", "<NA>", "<NA>", "<NA>", 
"a", "<NA>", "<NA>", "<NA>", "<NA>", "<NA>", "a", "<NA>", "<NA>", 
"a", "<NA>", "<NA>", "a", "<NA>", "<NA>", "a", "<NA>")), class = "data.frame", row.names = c(NA, 
                                              -23L))

我想将第一个a重命名为start，将第二个a重命名为end，将下一个a再次重命名为start，将下一个a重命名为end，依此类推......

期望的输出：

df1 <- structure(list(col = c("<NA>", "<NA>", "start", "<NA>", "<NA>", 
"<NA>", "end", "<NA>", "<NA>", "<NA>", "<NA>", "<NA>", "start", 
"<NA>", "<NA>", "end", "<NA>", "<NA>", "start", "<NA>", "<NA>", 
"end", "<NA>")), class = "data.frame", row.names = c(NA, -23L
))

非常感谢!!

Answer 1

利用R的回收特性。

df$col[df$col == 'a'] <- c('start', 'end')
df
#     col
#1   <NA>
#2   <NA>
#3  start
#4   <NA>
#5   <NA>
#6   <NA>
#7    end
#8   <NA>
#9   <NA>
#10  <NA>
#11  <NA>
#12  <NA>
#13 start
#14  <NA>
#15  <NA>
#16   end
#17  <NA>
#18  <NA>
#19 start
#20  <NA>
#21  <NA>
#22   end
#23  <NA>

Answer 2

附加解决方案选项

df <- structure(list(col = c("<NA>", "<NA>", "a", "<NA>", "<NA>", "<NA>", 
"a", "<NA>", "<NA>", "<NA>", "<NA>", "<NA>", "a", "<NA>", "<NA>", 
"a", "<NA>", "<NA>", "a", "<NA>", "<NA>", "a", "<NA>")), class = "data.frame", row.names = c(NA, 
                                              -23L))
library(dplyr)
library(data.table)
df %>% 
mutate(col = ifelse(col == "a" & data.table::rowid(col == "a") %% 2 == 0, "end", col))
#>     col
#> 1  <NA>
#> 2  <NA>
#> 3     a
#> 4  <NA>
#> 5  <NA>
#> 6  <NA>
#> 7   end
#> 8  <NA>
#> 9  <NA>
#> 10 <NA>
#> 11 <NA>
#> 12 <NA>
#> 13    a
#> 14 <NA>
#> 15 <NA>
#> 16  end
#> 17 <NA>
#> 18 <NA>
#> 19    a
#> 20 <NA>
#> 21 <NA>
#> 22  end
#> 23 <NA>
setDT(df)[col == "a", col := ifelse(rowid(col) %% 2 == 0, "end", col)][]
#>      col
#>  1: <NA>
#>  2: <NA>
#>  3:    a
#>  4: <NA>
#>  5: <NA>
#>  6: <NA>
#>  7:  end
#>  8: <NA>
#>  9: <NA>
#> 10: <NA>
#> 11: <NA>
#> 12: <NA>
#> 13:    a
#> 14: <NA>
#> 15: <NA>
#> 16:  end
#> 17: <NA>
#> 18: <NA>
#> 19:    a
#> 20: <NA>
#> 21: <NA>
#> 22:  end
#> 23: <NA>
#>      col

^{创建于 2021-04-19 由 reprex 软件包 (v2.0.0)}