我的问题是我有三列代表日期的整数。如果我用
as.Date(x,origin="1970-01-01")
对于每个单独的列,它都有效。不过,如果我使用sapply
的
sapply(data,function(x)as.Date(x,origin="1970-01-01"))
这没用。关于如何有效解决问题的任何想法?可复制的代码如下
data=data.frame(time1=c(10189,11655,10914,12013,10934),time2=c(11758,10696,9784,10725,11225))
sapply(data,function(x)as.Date(x,origin="1970-01-01"))
结果完全不变。但是使用
as.Date(data$time1,origin="1970-01-01")
它可以工作。
用途lapply
:
> lapply(data,function(x) as.Date(x,origin="1970-01-01"))
$time1
[1] "1997-11-24" "2001-11-29" "1999-11-19" "2002-11-22" "1999-12-09"
$time2
[1] "2002-03-12" "1999-04-15" "1996-10-15" "1999-05-14" "2000-09-25"
如果要将输出作为数据框,则可以使用as.data.frame()
:
> as.data.frame(lapply(data,function(x) as.Date(x,origin="1970-01-01")))
time1 time2
1 1997-11-24 2002-03-12
2 2001-11-29 1999-04-15
3 1999-11-19 1996-10-15
4 2002-11-22 1999-05-14
5 1999-12-09 2000-09-25
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句