Extract month and year from a POSIXct column to create a new column-CodePudding

I have the data below:

pr5915<-structure(list(activity = c("Forged Wire, Medium (Sport)", "Forged Wire, Medium (Sport)", 
"Forged Wire, Medium (Sport)", "Forged Wire, Medium (Sport)", 
"BBH-1&2", "Forged Wire, Medium (Sport)", "TCE Cleaning", "SOLO Oil", 
"Tempering", "TCE Cleaning", "Tempering", "BBH-1&2", "BBH-1&2", 
"TCE Cleaning", "Tempering"), timestamp = structure(c(-62042010952, 
-62010323872, -61884118792, -61821087232, -61821025132, -61789534972, 
-61789520332, -61789494952, -61757940232, -61757925652, -61757895952, 
-61694827552, -61694808292, -61663337152, -61663307452), tzone = "Europe/Istanbul", class = c("POSIXct", 
"POSIXt"))), row.names = c(NA, -15L), class = c("eventlog", "log", 
"tbl_df", "tbl", "data.frame"), case_id = "case_id", activity_id = "activity", activity_instance_id = "action", lifecycle_id = "lifecycle", resource_id = "resource", timestamp = "timestamp")

and I want to create 1 new column named Date which will extract the month and the Year from the timestamp column. For example if month is 12 and year 20 then the new column will have "December-20".

CodePudding user response：

The following does the trick using functions form tidyverse and lubridate:

library(tidyverse)
library(lubridate)

pr5915 %>% 
 mutate(
  timestamp = ymd_hms(
    as_datetime(
     as.character(timestamp), format = "00%d-%m-%y %H:%M:%S")
    ),
  Date = paste0(
   month(timestamp, label = T, abbr = F), 
   "-", 
   substr(year(timestamp), 3 , 4)
  )
)

Outcome

# A tibble: 15 × 3
   activity                    timestamp           Date       
   <chr>                       <dttm>              <chr>      
 1 Forged Wire, Medium (Sport) 2020-12-03 06:00:00 December-20
 2 Forged Wire, Medium (Sport) 2020-12-04 23:58:00 December-20
 3 Forged Wire, Medium (Sport) 2020-12-08 16:56:00 December-20
 4 Forged Wire, Medium (Sport) 2020-12-10 05:42:00 December-20
 5 BBH-1&2                     2020-12-10 22:57:00 December-20
 6 Forged Wire, Medium (Sport) 2020-12-11 10:13:00 December-20
 7 TCE Cleaning                2020-12-11 14:17:00 December-20
 8 SOLO Oil                    2020-12-11 21:20:00 December-20
 ...