短い文字列の短い日付R

Question

次のような形式の日付付きdfがあります。

Date      Year 
<chr>     <dbl> 
Sunday, Jul 27   2008 
Tuesday, Jul 29   2008 
Wednesday, July 31 (1) 2008 
Wednesday, July 31 (2) 2008 

次の列と値の形式を実現する簡単な方法はありますか？私はまた、7月2日の2つの日に（1）と（2）の表記を削除したいと思います。

Date   Year Month Day Day_of_Week 
2008-07-27 2008 07  27  Sunday 

Answer 1

library(dplyr) 
library(lubridate) 
dat = data_frame(date = c('Sunday, Jul 27','Tuesday, Jul 29', 'Wednesday, July 
31 (1)','Wednesday, July 31 (2)'), year=rep(2008,4)) 

dat %>% 
    mutate(date = gsub("\\s*\\([^\\)]+\\)","",as.character(date)), 
      date = parse_date_time(date,'A, b! d ')) -> dat1 
      year(dat1$date) <- dat1$year 

# A tibble: 4 × 2 
     date year 
     <dttm> <dbl> 
1 2008-07-27 2008 
2 2008-07-29 2008 
3 2008-07-31 2008 
4 2008-07-31 2008 

Answer 2

ベースRを使用すると、行うことができます：

dat <- data.frame(
    Date = c("Sunday, Jul 27" ,"Tuesday, Jul 29", "Wednesday, July 31", "Wednesday, July 31"), 
    Year = rep(2008, 4), 
    stringsAsFactors = FALSE 
) 


dts <- as.POSIXlt(paste(dat$Year, dat$Date), format = "%Y %A, %B %d") 

POSIXltは、日付/時刻のためのリストベースのリファレンスを提供します。それらを表示するには、unclass(dts[1])を試してください。ここから

それは学術むしろことができます。

dat$Month = 1 + dts$mon # months are 0-based in POSIXlt 
dat$Day = dts$mday 
dat$Day_of_Week = weekdays(dts) 
dat 
#     Date Year Month Day Day_of_Week 
# 1  Sunday, Jul 27 2008  7 27  Sunday 
# 2 Tuesday, Jul 29 2008  7 29  Tuesday 
# 3 Wednesday, July 31 2008  7 31 Thursday 
# 4 Wednesday, July 31 2008  7 31 Thursday