一栏包含日期时间和日期，如何将日期时间转换为日期以及如何保留日期

Question

我想将Infection_time（日期时间）转换为Infection_date（日期），我的代码如下：

    Infection_HAI1$Infected_date<-format(as.POSIXct(strptime(Infection_HAI1$INFECTED_TIME,
"%Y-%m-%d %H:%M:%S",tz="")) ,
format = "%Y-%m-%d")

我希望2015-01-28保持不变，但是实际输出是NA

INFECTED_TIME         Infected_date
2014-12-22 23:59:59   2014-12-22 
2015-01-28            2015-01-28

Answer 1

as.Date函数应该可以正常工作，如

> as.Date('2014-12-22 23:59:59')
[1] "2014-12-22"