将每行的最后一个非NA变成NA

library(tidyverse)
df <- data.frame(
  a1 = c(1,2,3,NA,NA,NA),
  a2 = sample(1:6),
  a3 = c(1,2,NA,NA,NA,NA),
  a4 = c(1,2,3,4,5,NA)
)
df <- t(df)
df <- as.data.frame(df)
rm_na <- function(x){
  if(all(is.na(x))) x
  else {
    # x[sum(!is.na(x))] <- NA
    x
  }
}
rm_na(df[1,])
pmap_dfr(df,~rm_na(c(...)))
# A tibble: 4 x 6
#     V1    V2    V3    V4    V5    V6
#  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#1     1     2    NA    NA    NA    NA
#2     6     2     4     1     5    NA
#3     1    NA    NA    NA    NA    NA
#4     1     2     3     4    NA    NA