10/17/2017 12:00:00 AM
形式の文字として日付を含む列があります。日付部分、つまり2017-10-17
のみを保持したい。使っています -
df$ReportDate = as.Date(df$ReportDate, format = "%m/%d/%Y %I:%M:%S %p")
df$ReportDate = as.Date(format(df$ReportDate, "%Y-%m-%d"))
これは機能しますが、データフレームには500万行以上あるため、2分近くかかります。
user system elapsed
104.73 0.55 105.46
これを行うためのより高速で効率的な方法はありますか?
ご了承ください as.Date
は日付の後のジャンクを無視するので、特に高速でないラップトップでは10秒未満で済みます。
xx <- rep("10/17/2017 12:00:00 AM", 5000000) # test input
system.time(as.Date(xx, "%m/%d/%Y"))
## user system elapsed
## 9.57 0.20 9.82
Date
からcharacter
に変換する方が効率的です。
# Create dummy data
date_from <- as.Date('01/01/1999 12:00:00 AM',
format = "%m/%d/%Y %I:%M:%S %p")
date_to <- as.Date('01/01/2017 12:00:00 AM',
format = "%m/%d/%Y %I:%M:%S %p")
df <- data.frame(ReportDate = sample(seq(from = date_from,
to = date_to, by = "day"), 5000000, T))
# Convert to char
start <- Sys.time()
df$ReportDate <- as.character(df$ReportDate)
Sys.time() - start
Time difference of 12.37254 secs
head(df)
ReportDate
1 2011-08-04
2 2013-11-15
3 2002-09-08
4 2011-07-01
5 2011-01-22
6 2001-01-04