不知道为什么你使用sqldf
,看下面的例子:
#dummy data
set.seed(12)
datwe <- data.frame(replicate(37,sample(c(1,2,99),10,rep=TRUE)))
#convert to Yes/No
res <- as.data.frame(
sapply(datwe[,23:37], function(i)
ifelse(i==1, "Yes",
ifelse(i==2, "No",
ifelse(i==99,NA,"Name itttt")))))
#update dataframe
datwe <- cbind(datwe[, 1:22],res)
#output, just showing first 2 columns
datwe[,23:24]
# X23 X24
# 1 No Yes
# 2 Yes Yes
# 3 Yes No
# 4 No No
# 5 Yes No
# 6 Yes Yes
# 7 <NA> No
# 8 No No
# 9 Yes <NA>
#10 No <NA>
编辑: 使用sqldf
内的用于与外部变量循环:
library(sqldf)
#dummy data
set.seed(12)
datwe <- data.frame(replicate(37,sample(c(1,2,99),10,rep=TRUE)))
#sqldf within a loop
for(myCol in paste0("X",23:37))
datwe[,myCol] <-
fn$sqldf("SELECT CASE $myCol
WHEN 1 THEN 'Yes'
WHEN 2 THEN 'No'
WHEN 99 THEN 'NA'
ELSE 'Name ittt'
END as newCol
FROM datwe")$newCol
#check output, showing only 2 columns
datwe[,23:24]
# X23 X24
# 1 No Yes
# 2 Yes Yes
# 3 Yes No
# 4 No No
# 5 Yes No
# 6 Yes Yes
# 7 NA No
# 8 No No
# 9 Yes NA
# 10 No NA
在SQL语句中,你有2个 - '...当... 1 ...'。另外,为什么不提取'col23 - col35',然后将其转换为R中的字符? – zx8754
@ zx8754谢谢你,我编辑了这篇文章。我假设'as.character()'将把整数值转换为字符值。我应该在哪里传递新值作为参数进行转换? – Prradep