用数字替换字符

Question

对不起打扰你。我有一个包含类似项data.frame：

F1008Y
F1008Y
406_407insD
R1207 *

我想用 “1” 替换所有的项目。 这可以怎么做？

Answer 1

您可以使用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 

Answer 2

下面是利用这样的事实，当你在具有混合在一起的数字和字符串向量使用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