如何将此excel的文字替换成数字，并输出为数据框

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如何将此excel中的文字用r语言替换为数字，令偶尔=1，有时=2，经常=3，持续=4，并输出为数据框，跪求，谢谢了！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL xcel exce cel 数据框

写入
遍历
if条件语句

126victory 发表于 2019-8-9 14:09
如何将此excel中的文字用r语言替换为数字，令偶尔=1，有时=2，经常=3，持续=4，并输出为数据框，跪求，谢谢 ...

先自定义个函数，然后用apply

1. # 产生模拟数据
   
2. s <- c('偶尔', '有时', '经常', '持续')
   
3. J <- as.data.frame(matrix(sample(s, size = 50, replace = TRUE), ncol = 5), stringsAsFactors = FALSE)
   
4. names(J) <- paste("J", 1:5, sep = '')
   
5. df <- data.frame(标号 = 1:10)
   
6. df <- cbind(df, J)
   
7. df
   
8. # 词语转数字的函数，并转化为向量化函数
   
9. f <- function(x){
   
10.     switch(x, 偶尔 = 1, 有时 = 2, 经常 = 3, 持续 = 4)
    
11. }
    
12. f <- Vectorize(f)
    
13. # 处理数据
    
14. df[, -1] <- as.data.frame(lapply(df[, -1], f))
    
15. df

复制代码

可以用readxl包导入excel文件

surfw 发表于 2019-8-10 10:14
可以用readxl包导入excel文件

谢谢您，非常感谢您！