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

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