如何用一个月的全名替换数字月

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))

我希望输出为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