誰かが次の問題の迅速で汚い解決策を持っているかどうか疑問に思っていました、私はNAの行を持つ行列を持っています、そして私はNAの行を前の行に置き換えたいです（それがNAの行でもない場合） 。
最初の行はNAの行ではないと想定します
ありがとう！
質問する
1464 次
6 に答える
4
この質問への回答から適応: R ベクトルでセル値を「下に」コピーする慣用的な方法
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
2 つのすべて 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))
1 つのアプローチ:
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
があなたのマトリックスの場合m、これはあなたの迅速で汚い解決策です：
sapply(2:nrow(m),function(i){ if(is.na(m[i,1])) {m[i,] <<- m[(i-1),] } })
醜い（そして危険な）<<-演算子を使用していることに注意してください。
于 2013-02-09T23:23:37.693 に答える
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 に答える