搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  score2.zip
资料下载链接地址: https://bbs.pinggu.org/a-2715119.html
本附件包括：
  • score2.xlsx
附件大小:
17.98 KB   举报本内容
我想通过循环对我的数据集中的a1-a56分别做一些运算，我先用a1变量试了一下，是正常运行的，代码如下：
  1. up <- round(0.27*nrow(score),0)
  2. max <- max(score$a1)
  3. mean1 <- score %>% arrange(desc(a1)) %>% filter(row_number() %in% 1:up) %>% summarise(mean(a1))
  4. mean2 <- score %>% arrange(a1) %>% filter(row_number() %in% 1:up)%>% summarise(mean(a1))
  5. p1 <- mean1/max
  6. p2 <- mean2/max
  7. dcn <- p1-p2
  8. dcn
复制代码

然后我就写了一个循环，代码如下：
  1. result <- data.frame(dcn=0)
  2. for (i in 1:57) {
  3. nm <- paste('a',i,sep = '')
  4. max <- max(score$nm)
  5. mean1 <- score %>% arrange(desc(nm)) %>% filter(row_number() %in% 1:up) %>% summarise(mean(nm)
  6. mean2 <- score %>% arrange(nm) %>% filter(row_number() %in% 1:up)%>% summarise(mean(nm))
  7. p1 <- mean1/max
  8. p2 <- mean2/max
  9. dcn <- p1-p2

  11. result[i,1] <- dca
  12. }
  13. result
复制代码
然后这个鬼东西就不能正常运行了{:2_29:}，错误信息如下：
Error in arrange_impl(.data, dots) :
incorrect size (1) at position 1, expecting : 45
In addition: Warning messages:
1: Unknown or uninitialised column: 'nm'.
2: In max(score$nm) : no non-missing arguments to max; returning -Inf



然后我问到原因可能出现在paste函数上，好像需要用get()函数才行，于是我用了如下：
name <- get(paste('a',1,sep = ''))
然后还是报错，吼！：
Error in get(paste("a", 1, sep = "")) : object 'a1' not found


各位哥哥姐姐，大佬们我该咋改啊


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

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

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

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2025-12-31 04:52