请各位帮忙看看这段计算年龄的代码有什么问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

#建立leadship数据框

1. manager<-c(1,2,3,4,5)
   
2. date<-c("10/24/08","10/28/08","10/1/08","10/12/08","5/1/09")
   
3. country<-c("US","US","UK","UK","UK")
   
4. gender<-c("M","F","F","M","F")
   
5. age<-c(32,45,25,39,99)
   
6. q1<-c(5,3,3,3,2)
   
7. q2<-c(4,5,5,3,2)
   
8. q3<-c(5,2,5,4,1)
   
9. q4<-c(5,5,5,NA,2)
   
10. q5<-c(5,5,2,NA,1)
    
11. leadership<-data.frame(manager,date,country,gender,age,q1,q2,q3,q4,q5,stringsAsFactors = F)

复制代码

#试图通过以下函数计算leadership中的新年龄变量agey，agey=current.date-date单位为年

1. > leadership$date<-as.Date(leadership$date, "%m/%d/%y")
   
2. > leadership$agey = function(leadership$date,Sys.Date()) {
   
3. Error: unexpected '
   
4. [align=left][font=微软雅黑][size=11.0pt]
   
5. [/size][/font][/align][align=left][font=微软雅黑][size=11.0pt]
   
6. [/size][/font][/align][align=left][font=微软雅黑][size=11.0pt]最后也可以生成变量agey，就是不知道为什么出这个error[/size][/font][/align]
   
7. in "leadership$agey = function(leadership$"
   
8. >   from_lt = as.POSIXlt(leadership$date)
   
9. >   to_lt = as.POSIXlt(Sys.Date())
   
10. >   leadership$agey = to_lt$year - from_lt$year
    
11. >   ifelse(to_lt$mon < from_lt$mon |
    
12. +            (to_lt$mon == from_lt$mon & to_lt$mday < from_lt$mday),
    
13. +          leadership$agey - 1, leadership$agey)
    
14. [1] 9 9 9 9 8
    
15. > }
    
16. Error: unexpected '}' in "}"

复制代码

最后也可以生成变量agey，就是不知道为什么出这个error

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：请各位帮忙 Manager Manage leads Lead

另外各位大神教教我，这个代码贴上去为什么就自动成了很多黑体还少了一些。调了几次都这个样子。

* 你的等号看上去像是中文的

* 函数里面不需要用leadship$date,
直接放一个正常的变量就可以，可以直接传递的。
比如你在函数里写 leadshipdate
然后你做一次这样的赋值就ok了。
leadshipdate <- leadship$date

jiangbeilu 发表于 2017-12-12 06:48
* 你的等号看上去像是中文的

* 函数里面不需要用leadship$date,

好的，非常感谢