2

私は次のデータフレームを持っています

   id f1 f2
1  a  1  3
2  b  3  5
3  c  4  7

f1> 3のすべての行を行（id = x、f1 = 0、f2 = 0）に置き換えたいので、上記は次のようにマップされます。

   id f1 f2
1  a  1  3
2  b  3  5
3  x  0  0

しかし、私が試したとき

replace(x,which(x$f1>3),data.frame(id = 'x',f1=0,f2=0))

それは正しくしませんでした、それは与えました

   id f1 f2
1  a  1  x
2  b  3  x
3  c  4  x
Warning message:
In `[<-.data.frame`(`*tmp*`, list, value = list(id = 1L, f1 = 0,  :
  provided 3 variables to replace 1 variables

誰かがこれを大規模に行う方法を提案できますか？ありがとう。

4

2 に答える 2

10

このようなもの：

 x[x$f1 > 3,] <- data.frame('x', 0, 0)

トリックを行う必要があります！

@DWinのコメントによると、これは因子id列では機能しません。ただし、これと同じ手法を使用すると、次のように機能します。

levels(x$id) <- c(levels(x$id), 'x')
x[x$f1 > 3,] <- data.frame('x', 0, 0)
droplevels(x$id)
于 2012-09-13T17:03:38.907 に答える
1

別のアプローチがあります（@DWinのコメントを考慮に入れて）

dfrm <- data.frame(id=letters[1:3], f1=c(1,3,4), f2=c(3,5,7))

dfrm[dfrm$f1>3, -1] <- 0
levels(dfrm$id) <- c(levels(dfrm$id), 'x')
dfrm[,1]<- with(dfrm, replace(id, f1==0, 'x')) ; dfrm

     id f1 f2
  1  a  1  3
  2  b  3  5
  3  x  0  0

さらにいくつかのデータを使用する：

set.seed(007); N <- 12
 f1 <- sample(1:9, N, replace=TRUE)
 f2 <- sample(1:9, N, replace=TRUE)
 dfrm2 <- data.frame(id=letters[1:N], f1=f1, f2=f2)

 dfrm2[dfrm2$f1>3, -1] <- 0
 levels(dfrm2$id) <- c(levels(dfrm2$id), 'x')
 dfrm2[,1]<- with(dfrm2, replace(id, f1==0, 'x')) ; dfrm2
   id f1 f2
1   x  0  0
2   x  0  0
3   c  2  5
4   d  1  1
5   e  3  6
6   x  0  0
7   x  0  0
8   x  0  0
9   i  2  6
10  x  0  0
11  k  2  9
12  l  3  9

以前のコードはこの質問には役に立たなかったため、削除しました。

于 2012-09-13T17:09:58.850 に答える