如何将日期格式重组为另一种格式以获取新列

Question

我有这样的数据集

DT=structure(list(date = c("01.01.2021", "01.01.2021", "01.01.2021", 
"01.01.2021", "01.01.2021", "01.01.2021", "01.01.2021", "01.01.2021", 
"01.01.2021", "01.01.2021", "01.01.2021", "01.02.2021", "01.02.2021", 
"01.02.2021", "01.02.2021", "01.02.2021", "01.02.2021", "01.02.2021", 
"01.02.2021", "01.02.2021"), sales_count = c(10L, 4L, 8L, 6L, 
4L, 4L, 4L, 3L, 1L, 5L, 2L, 10L, 5L, 9L, 2L, 8L, 5L, 6L, 8L, 
3L)), class = "data.frame", row.names = c(NA, -20L))

看起来像这样

         date sales_count
1  01.01.2021          10
2  01.01.2021           4
3  01.01.2021           8
4  01.01.2021           6

我如何重新制作数据集，使其完全具有这种输入格式

      sales_count    date_time       date   week_num weekday
   1: 1        2016-05-02 00:00:00 2016-05-02  1     Monday
   2: 10       2016-05-02 00:00:00 2016-05-02  1     Monday
   3: 14       2016-05-02 00:00:00 2016-05-02  1     Monday
   4: 15       2016-05-02 00:00:00 2016-05-02  1     Monday
   5: 20       2016-05-02 00:00:00 2016-05-02  1     Monday

Answer 1

使用lubridate。与原始数据框相比，我不确定您期望预期输出中的日期不同。

library(lubridate)

tibble(DT) %>% 
  mutate(date = mdy(date),
         date_time = ymd_hms(format(date, "%Y-%m-%d 00:00:00")),
         week_num = week(date),
         weekday = weekdays(date)) %>% 
  select(sales_count, date_time, date, week_num, weekday)

# A tibble: 20 x 5
   sales_count date_time           date       week_num weekday 
         <int> <dttm>              <date>        <dbl> <chr>   
 1          10 2021-01-01 00:00:00 2021-01-01        1 Friday  
 2           4 2021-01-01 00:00:00 2021-01-01        1 Friday  
 3           8 2021-01-01 00:00:00 2021-01-01        1 Friday  
 4           6 2021-01-01 00:00:00 2021-01-01        1 Friday  
 5           4 2021-01-01 00:00:00 2021-01-01        1 Friday  
 6           4 2021-01-01 00:00:00 2021-01-01        1 Friday  
 7           4 2021-01-01 00:00:00 2021-01-01        1 Friday  
 8           3 2021-01-01 00:00:00 2021-01-01        1 Friday  
 9           1 2021-01-01 00:00:00 2021-01-01        1 Friday  
10           5 2021-01-01 00:00:00 2021-01-01        1 Friday  
11           2 2021-01-01 00:00:00 2021-01-01        1 Friday  
12          10 2021-01-02 00:00:00 2021-01-02        1 Saturday
13           5 2021-01-02 00:00:00 2021-01-02        1 Saturday
14           9 2021-01-02 00:00:00 2021-01-02        1 Saturday
15           2 2021-01-02 00:00:00 2021-01-02        1 Saturday
16           8 2021-01-02 00:00:00 2021-01-02        1 Saturday
17           5 2021-01-02 00:00:00 2021-01-02        1 Saturday
18           6 2021-01-02 00:00:00 2021-01-02        1 Saturday
19           8 2021-01-02 00:00:00 2021-01-02        1 Saturday
20           3 2021-01-02 00:00:00 2021-01-02        1 Saturday

如何将日期格式重组为另一种格式以获取新列

how to restructure date format to another format to get new columns

r

dataframe

lubridate

dplyr

data-wrangling