R问题请教：关于用which截取日期中，出现的逻辑判断问题，程序显示无法计算，很疑惑

2175

收藏 2016-05-13

我编写的代码：
date<-c("10/24/08","10/28/08","10/1/08","10/12/08","05/01/09")
country<-c("US","US","UK","UK","UK")
leadership<-data.frame(date,country,stringsAsFactors=FALSE)

leadership<-transform(leadership,date<-as.Date(date))
startdate<-as.Date("2009-01-01")
enddate<-as.Date("2009-10-31")
is.numeric(leadership$date)
newdata<-leadership[which(leadership$date >= startdate &
leadership$date <= enddate),]

可是程序显示错误：

Error in charToDate(x) :
character string is not in a standard unambiguous format

想知道为什么会这样，怎么修改呢

扫码加我拉你入群

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

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

全部回复

马甲1号

2016-5-13 11:29:14

你把字符型列向量date和日期型变量比较，当然比不出来。
第一行应该改成 date<-as.Date(c("10/24/08","10/28/08","10/1/08","10/12/08","05/01/09"),'%m/%d/%y')

扫码加我拉你入群

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

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

Danfeng-Li

2016-5-13 12:09:19

马甲1号发表于 2016-5-13 11:29
你把字符型列向量date和日期型变量比较，当然比不出来。
第一行应该改成 date

我在后面有将该字符型变量转为日期型变量：leadership<-transform(leadership,date<-as.Date(date))

扫码加我拉你入群

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

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

jiangbeilu

2016-5-13 12:35:44

Danfeng-Li 发表于 2016-5-13 12:09
我在后面有将该字符型变量转为日期型变量：leadership

你这一句代码是有问题的，换成：

复制代码

leadership与date中间有个美元符号

扫码加我拉你入群

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

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

马甲1号

2016-5-13 14:03:22

Danfeng-Li 发表于 2016-5-13 12:09
我在后面有将该字符型变量转为日期型变量：leadership

transform里面不能用<-替代=！
函数args里面的x=1表示给x传值1，而x<-1本身是一个R的expression对象，不具有参数传递的意义（事实上x<-1被当成一个未命名参数传给了transform，然后估计被transform忽略了）！（这个地方你用过try函数之后应该会有体会）
看看下面的运行结果：

复制代码