as.Date函數不會轉換日期

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可以用時間和日期做。