如何用月份的全名替换数字月份

Question

使用 tidyverse 包将带有月份的列完整更改为实际的月份名称。请记住，即使此数据在这里只有四个月，但我的真实数据集包含一年中的所有实际月份。

我是 tidyverse 的新手

mydata <- tibble(camp = c("Platinum 2018-03","Reboarding 2018","New Acct Auto Jul18", "Loan2019-4"),
              Acct = c(1, 33, 6, 43),
              Balance = c(222, 7744, 949, 123),
              Month = c(1,4,6,8))

我希望输出是一月、四月、六月、八月等。感谢您的帮助。

Answer 1

R自带一个month.name向量，只要你只需要英文名字就可以了。

mydata %>% mutate(MonthName = month.name[Month])

给予：

# A tibble: 4 x 5
  camp                 Acct Balance Month MonthName
  <chr>               <dbl>   <dbl> <dbl> <chr>    
1 Platinum 2018-03        1     222     1 January  
2 Reboarding 2018        33    7744     4 April    
3 New Acct Auto Jul18     6     949     6 June     
4 Loan2019-4             43     123     8 August

其他语言

如果您需要其他语言，请使用此代码（或省略 as.character 以获得有序因子输出）：

library(lubridate)
Sys.setlocale(locale = "French")
mydata %>% mutate(MonthName = as.character(month(Month, label = TRUE, abbr = FALSE)))

给予：

# A tibble: 4 x 5
  camp                 Acct Balance Month MonthName
  <chr>               <dbl>   <dbl> <dbl> <chr>    
1 Platinum 2018-03        1     222     1 janvier  
2 Reboarding 2018        33    7744     4 avril    
3 New Acct Auto Jul18     6     949     6 juin     
4 Loan2019-4             43     123     8 août

Answer 2

一个dplyr-lubridate解决方案：

mydata %>% 
  mutate(Month = lubridate::month(Month, label = TRUE, abbr = FALSE))
# A tibble: 4 x 4
  camp                 Acct Balance Month  
  <chr>               <dbl>   <dbl> <ord>  
1 Platinum 2018-03        1     222 January
2 Reboarding 2018        33    7744 April  
3 New Acct Auto Jul18     6     949 June   
4 Loan2019-4             43     123 August

如何用月份的全名替换数字月份

How to replace numeric month with a month's full name

r

tibble

其他语言