如果任何列中的NA值应该用R编程中的下一列的值替换值，如何替换

Question

1. 如果任何列中的 NA 值应该用 R 编程中的下一列的值替换值，如何替换，这必须在没有特别提及列名称的情况下完成（没有硬编码）
2. 在 R 编程中，应删除具有 NA 值的整个列

library(tidyverse)

df1 <- structure(list(GID = c("1", "2", "3", "4", "5", "NG1", "MG2", "MG3", "NG4"), 
                      ColA = c(NA, NA, NA, NA, NA, NA, NA, NA, NA), 
                      ColB = c("2", "4", "4", "5", "5", "", "1", "1", "")), 
                 row.names = c(NA, -9L), 
                 class = "data.frame")

df1 %>% 
  mutate(across(everything(), ~str_replace(., "^$", "N")),
         GID = GID %>% str_remove("N"))
#>   GID ColA   ColB
#> 1   1    NA    2
#> 2   2    NA    4
#> 3   3    NA    4
#> 4   4    NA    5
#> 5   5    NA    5
#> 6  G1    NA    N
#> 7 MG2    NA    1
#> 8 MG3    NA    1
#> 9  G4    NA    N

预期输出：

#>   GID ColA   
#> 1   1    2
#> 2   2    4    
#> 3   3    4    
#> 4   4    5    
#> 5   5    5    
#> 6  G1    N   
#> 7 MG2    1    
#> 8 MG3    1    
#> 9  G4    N    

Answer 1

我猜你已经对问题的第一部分有了答案，这是使用replace 的另一种方法。要删除包含所有 NA 的列，您可以使用 select 和 where。

library(dplyr)

df1 %>%
  mutate(across(.fns = ~replace(., . == '', 'N')), 
         GID = sub('N', '', GID)) %>%
  select(-where(~all(is.na(.)))) %>%
  rename_with(~names(df1)[seq_along(.)])

#  GID ColA
#1   1    2
#2   2    4
#3   3    4
#4   4    5
#5   5    5
#6  G1    N
#7 MG2    1
#8 MG3    1
#9  G4    N