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

附件下载

所在主题：
文件名:  xh_device_SelectFunc.txt
资料下载链接地址: https://bbs.pinggu.org/a-3390524.html
附件大小:
393 Bytes   举报本内容
如题，如果我用source("C:/Users/Administrator/Desktop/xh_device_SelectFunc.R")调用函数，可以看到Functions，但是运行不能筛选出结果，如果我直接运行这段代码，则可以用函数，请问是什么原因？

PS：请把附件中的xh_device_SelectFunc.txt后缀改为xh_device_SelectFunc.R再运行。
  1. library(openxlsx)
  2. testdata <- read.xlsx("C:/Users/Administrator/Desktop/testdata.xlsx")
  3. xh_device_SelectFunc <- function(data){
  4. xh_reg <- data[grepl("徐汇",data$registorAddress),]
  5. temp <- data[!grepl("徐汇",data$registorAddress),]
  6. xh_pro <- temp[grepl("徐汇",temp$producedAddress),]
  7. temp <- temp[!grepl("徐汇",temp$producedAddress),]
  8. xh_agent <- temp[grepl("徐汇",temp$agentAddress),]
  9. xh_data <- rbind(xh_reg,xh_pro,xh_agent)
  10. return(xh_data)
  11. }
  12. xh_cndata <- xh_device_SelectFunc(data = testdata)
复制代码


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

扫码加我 拉你入群

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

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

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

GMT+8, 2026-1-8 04:22