0

お邪魔して申し訳ありません。次のようなアイテムを含む data.frame があります。

F1008Y
F1008Y
406_407insD
R1207*

その項目をすべて「1」に置き換えたいと思います。これはどのように行うことができますか?

4

2 に答える 2

3

使用できますifelse

DF <- read.table(text="F1008Y
F1008Y
406_407insD
R1207*
0
0", header=FALSE) # adding some 0

DF # this is your data.frame
           V1
1      F1008Y
2      F1008Y
3 406_407insD
4      R1207*
5           0
6           0

ifelse({df <- DF; df!=0}, df[,] <- 1, df[,] <- 0) # replacing
     V1
[1,]  1
[2,]  1
[3,]  1
[4,]  1
[5,]  0
[6,]  0

 # the original data.frame remains the same
 DF
           V1
1      F1008Y
2      F1008Y
3 406_407insD
4      R1207*
5           0
6           0
于 2012-12-05T10:33:30.677 に答える
1

as.numericこれは、数値と文字列が混在するベクトルで使用すると、文字列がに変換されるという事実を利用した例ですNA。楽しみのために列を追加しました。

DF <- read.table(text="F1008Y
F1008Y
406_407insD
R1207*
0
0", header=FALSE)
DF$V2 <- DF$V1
DF.bak <- DF ## Backups are always nice
DF
#            V1          V2
# 1      F1008Y      F1008Y
# 2      F1008Y      F1008Y
# 3 406_407insD 406_407insD
# 4      R1207*      R1207*
# 5           0           0
# 6           0           0
## By default, the columns have been read in as factors. Convert to character
DF[sapply(DF, is.factor)] = lapply(DF[sapply(DF, is.factor)], as.character)
DF[is.na(sapply(DF, as.numeric))] <- 1
# Warning messages:
# 1: In lapply(X = X, FUN = FUN, ...) : NAs introduced by coercion
# 2: In lapply(X = X, FUN = FUN, ...) : NAs introduced by coercion
DF
#   V1 V2
# 1  1  1
# 2  1  1
# 3  1  1
# 4  1  1
# 5  0  0
# 6  0  0
于 2012-12-05T11:37:55.620 に答える