Question

as.Date函数存在一个小问题。我加载了一个prn数据作为csv文件，我的老师说没关系，然后当我尝试以标准方式（y，m，d）设置我的日期时，它给了我一年的疯狂数字。 PZU文件是波兰公司的股票价格。另外，我也不确定如何设定时间。我真的很感激帮助。仅供参考，我使用R软件和R studio界面。

pzu<-read.csv("PZU.prn",header=F)[,1:7]
names(pzu)<-c("name","date","time","open","high","low","close")
head(pzu)
#  name     date time open high low close
#1  PZU 20100512  845  349  349 349   349
#2  PZU 20100512  845  349  349 349   349
#3  PZU 20100512  845  349  349 349   349
#4  PZU 20100512  845  349  349 349   349
#5  PZU 20100512  845  349  349 349   349
#6  PZU 20100512  845  349  349 349   349

class(pzu$date) # output is an "integer"

str(pzu)
#data.frame':   960638 obs. of  7 variables:
# $ name : Factor w/ 1 level "PZU": 1 1 1 1 1 1 1 1 1 1 ...
# $ date : int  20100512 20100512 20100512 20100512 20100512 20100512 20100512 20100512 20100512 20100512 ...
# $ time : int  845 845 845 845 845 845 845 845 845 845 ...
# $ open : num  349 349 349 349 349 349 349 349 349 349 ...
# $ high : num  349 349 349 349 349 349 349 349 349 349 ...
# $ low  : num  349 349 349 349 349 349 349 349 349 349 ...
# $ close: num  349 349 349 349 349 349 349 349 349 349 ...

pzu$date<-as.Date(pzu$date)
head(pzu)
#name       date time open high low close
#1  PZU 7003-05-03  845  349  349 349   349
#2  PZU 7003-05-03  845  349  349 349   349
#3  PZU 7003-05-03  845  349  349 349   349
#4  PZU 7003-05-03  845  349  349 349   349
#5  PZU 7003-05-03  845  349  349 349   349
#6  PZU 7003-05-03  845  349  349 349   349

Answer 1

您的日期不是as.Date()识别的格式。首先，使用as.character()将它们转换为字符，然后通过format参数指定正确的格式as.Date()：

as.Date(as.character(20100512),format="%Y%m%d")

或者，您可以通过转换为POSIXct来添加时间变量。如上所述转换日期。取数百个时间变量，乘以3600（3600秒到一小时）并添加。取剩余部分，乘以60（60秒到一分钟）并再次添加：

date.num <- 20100512
time.num <- 845
as.POSIXct(as.character(date.num),format="%Y%m%d") +
(time.num%/%100)*3600 +
(time.num%%100)*60

"2010-05-12 08:45:00 CEST"

请看?POSIXct，了解R可以用时间和日期做的所有有趣的事情。

as.Date函数不转换日期

1 个答案: