【菜鸟提问】如何在自编函数中达到dplyr包的select函数的效果

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

select(data.frame, col.name)
中的col.name是不需要加引号的
如何在自编函数中做到这种事情？

1. data=data.frame(v1=1:10,v2=10:1)
   
2. f=function(data,col){
   
3.     data$col
   
4. }
   
5. f(data,v1)

复制代码

> f(data,v1)
NULL

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Select Elect dplyr ele ect

尝试了attach，也会出现问题

1. f=function(data,col){
   
2.     attach(data)
   
3.     return(col)
   
4. }
   
5. 
   
6. data=data.frame(v1=1:10,v2=10:1)
   
7. 
   
8. rm(v1)
   
9. f(data,v1)
   
10. 
    
11. v1=3
    
12. f(data,v1)

复制代码

楼主研究精神值得学习。

厉害

找到了解决方法

1. data=data.frame(v1=1:10,v2=10:1,v3=21:30)
   
2. 
   
3. f=function(data,...){
   
4.     a=match.call()
   
5. 
   
6.     print(a);cat('\n----------\n')
   
7.     print(as.list(a));cat('\n----------\n')
   
8. 
   
9.     b=as.character(a[-c(1,2)])
   
10. 
    
11.     print(b);cat('\n----------\n')
    
12. 
    
13.     return(data[b])
    
14. }
    
15. 
    
16. 
    
17. f(data,v1,v2)
    
18. 
    
19. f(data,v1)

复制代码