library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
library(tidyr)
#invent data
Df <- data.frame(Date = c("1/3/2021", "2/5/2021"))
Df <- Df %>% separate(Date, into = c("Month", "Day", "Year"))
summary(Df)
#> Month Day Year
#> Length:2 Length:2 Length:2
#> Class :character Class :character Class :character
#> Mode :character Mode :character Mode :character
Df <- Df %>% mutate(Month = month.abb[as.numeric(Month)])
Df
#> Month Day Year
#> 1 Jan 3 2021
#> 2 Feb 5 2021