用R语言求每个人的总分啊，先把excel导入到r，然后怎么做呀？求=

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

偶尔=1分，有时=2分，经常=3分，持续=4分，分别求这九个人的总分。先把excel导入到r，然后怎么做呀？一直提示说找不到对象。下图是excel文件

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：EXCEL xcel exce R语言 cel R语言 求和

126victory 发表于 2019-7-29 10:08
偶尔=1分，有时=2分，经常=3分，持续=4分，分别求这九个人的总分。先把excel导入到r，然后怎么做呀？一直提 ...

这用Excel透视表也可以弄出来吧，读到R再操作还不如用透视表

Whig 发表于 2019-7-29 10:34
这用Excel透视表也可以弄出来吧，读到R再操作还不如用透视表

就是想知道用r怎么做，我是r的新手，想用这个例子学习一下，以后也用得到，求大神赐教！

126victory 发表于 2019-7-29 10:39
就是想知道用r怎么做，我是r的新手，想用这个例子学习一下，以后也用得到，求大神赐教！

但是不明白你的问题是什么呀？找不到对象，什么找不到对象？你怎么把数据导入R的？

Whig 发表于 2019-7-29 10:56
但是不明白你的问题是什么呀？找不到对象，什么找不到对象？你怎么把数据导入R的？

先把excel保存为csv，然后用read.table函数导入该csv，然后attach，然后就不知道分类变量该怎么赋值以及求和了

1. library(openxlsx)
   
2. 
   
3. data <- read.xlsx("C:/Users/DALE/Desktop/工作簿1.xlsx", sheet = 1, colNames=TRUE, rowNames = TRUE)  
   
4. 
   
5. b <- function(x) {
   
6.   switch(x,
   
7.          ouer=1,
   
8.          youshi=2,
   
9.          jingchang=3,
   
10.          chixu=4
    
11.   )}
    
12. b("chixu")
    
13. data.vec <- unlist(as.list(data))   #数据框变向量
    
14. 
    
15. trans <- sapply(data.vec, b)        #将分类变量重新复制   
    
16. data_2 <- matrix(trans, nrow=9, ncol=5)    #转为矩阵
    
17. data_2_df <- as.data.frame(data_2)          #转为数据框
    
18. data_2_df$total <- data_2_df$V1+data_2_df$V2+data_2_df$V3+data_2_df$V4+data_2_df$V5
    

复制代码

guoyaodang3 发表于 2019-7-29 16:22

超级感谢！谢谢谢谢