你只需要索引所有NA的行，然后用赋值替换它们。你可以用is.na()，rowSums()和ncol()来实现这一点。我已经把它们都写在下面了，所以你可以看到工作：

x <- rbind(c(1, 2, NA), c(NA, NA, NA), c(NA, 5, 6), c(7, NA, 9))
x
is.na(x)
rowSums(is.na(x))
ncol(x)
# This is the single line that does all the work
x[rowSums(is.na(x)) == ncol(x),] <- 99
x

输出：

[,1] [,2] [,3]
[1,]    1    2   NA
[2,]   NA   NA   NA
[3,]   NA    5    6
[4,]    7   NA    9
      [,1]  [,2]  [,3]
[1,] FALSE FALSE  TRUE
[2,]  TRUE  TRUE  TRUE
[3,]  TRUE FALSE FALSE
[4,] FALSE  TRUE FALSE
[1] 1 3 1 1
[1] 3
     [,1] [,2] [,3]
[1,]    1    2   NA
[2,]   99   99   99
[3,]   NA    5    6
[4,]    7   NA    9

mdat
          C.1 C.2 C.3
row1        1   2   3
row2       11  12  13
rowpartNA   2   2  NA
rowNA      NA  NA  NA

all.na.fun<- function(x)all(is.na(x))
apply(mdat, 1, all.na.fun)
     row1      row2 rowpartNA     rowNA 
    FALSE     FALSE     FALSE      TRUE 
> all.na.fun<- function(x)all(is.na(x))
(all.na.row<-apply(mdat, 1, all.na.fun))
     row1      row2 rowpartNA     rowNA 
    FALSE     FALSE     FALSE      TRUE 
mdat[all.na.row,] <-99
mdat
          C.1 C.2 C.3
row1        1   2   3
row2       11  12  13
rowpartNA   2   2  NA
rowNA      99  99  99

矩阵：

m <- matrix(c(1,2,3,4,
             NA,NA,NA,NA,
             NA, 1, 2, 3,
             1,2, NA, 4, 
             4,2,1,3),  nrow=5, byrow = T )

语法：

m[which(rowSums(is.na(m))==ncol(m)),]=999

输出：

> m
     [,1] [,2] [,3] [,4]
[1,]    1    2    3    4
[2,]  999  999  999  999
[3,]   NA    1    2    3
[4,]    1    2   NA    4
[5,]    4    2    1    3