3

我想知道是否有人对以下问题有一个快速而肮脏的解决方案，我有一个包含 NA 行的矩阵，我想用前一行替换 NA 行（如果它也不是一行 NA） .

假设第一行不是一行 NA

谢谢！

4

6 回答 6

4

改编自对这个问题的回答：Idiomatic way to copy cell values "down" in an R vector

f <- function(x) {
  idx <- !apply(is.na(x), 1, all)
  x[idx,][cumsum(idx),]
}

x <- data.frame(a=c(1, 2, NA, 3, NA, NA), b=c(4, 5, NA, 6, NA, 7))

> x
   a  b
1  1  4
2  2  5
3 NA NA
4  3  6
5 NA NA
6 NA  7

> f(x)
     a b
1    1 4
2    2 5
2.1  2 5
4    3 6
4.1  3 6
6   NA 7
于 2013-02-10T01:11:35.607 回答
1

试着想想你可能连续有两个全 NA 行。 

#create a data set like you discuss (in the future please do this yourself)
set.seed(14)
x <- matrix(rnorm(10), nrow=2)
y <- rep(NA, 5)
v <- do.call(rbind.data.frame, sample(list(x, x, y), 10, TRUE))

一种方法：

NArows <- which(apply(v, 1, function(x) all(is.na(x))))          #find all NAs
notNA <- which(!seq_len(nrow(v)) %in% NArows)                    #find non NA rows
rep.row <- sapply(NArows, function(x) tail(notNA[x > notNA], 1)) #replacement rows
v[NArows, ] <- v[rep.row, ]                                      #assign
v                                                                #view

如果您的第一行都是 NA，这将不起作用。

于 2013-02-09T23:32:18.003 回答
1

您始终可以使用循环，这里假设 1 不是 NA 所示：

fill = data.frame(x=c(1,NA,3,4,5))
for (i in 2:length(fill)){
  if(is.na(fill[i,1])){ fill[i,1] = fill[(i-1),1]}
 }
于 2013-02-10T00:09:14.537 回答
0

这是一个直截了当且在概念上可能是最简单的单线：

x <- data.frame(a=c(1, 2, NA, 3, NA, NA), b=c(4, 5, NA, 6, NA, 7))

   a  b
1  1  4
2  2  5
3 NA NA
4  3  6
5 NA NA
6 NA  7

x1<-t(sapply(1:nrow(x),function(y) ifelse(is.na(x[y,]),x[y-1,],x[y,])))

     [,1] [,2]
[1,] 1    4   
[2,] 2    5   
[3,] 2    5   
[4,] 3    6   
[5,] 3    6   
[6,] NA   7

要放回列名，只需使用 colnames(x1)<-colnames(x)

于 2014-03-15T08:45:25.567 回答
0

马修的例子：

x <- data.frame(a=c(1, 2, NA, 3, NA, NA), b=c(4, 5, NA, 6, NA, 7))
 na.rows <- which( apply( x , 1, function(z) (all(is.na(z)) ) ) )
 x[na.rows , ] <- x[na.rows-1, ]
 x
#---
   a b
1  1 4
2  2 5
3  2 5
4  3 6
5  3 6
6 NA 7

显然，所有 NA 的第一行都会出现问题。

于 2013-02-10T01:52:05.877 回答
0

如果m是您的矩阵，这是您快速而肮脏的解决方案：

sapply(2:nrow(m),function(i){ if(is.na(m[i,1])) {m[i,] <<- m[(i-1),] } })

请注意，它使用丑陋（且危险）的<<-运算符。

于 2013-02-09T23:23:37.693 回答