将列值从数字替换为文本

Question

我有每月的列值编号。

<代码>df

我想将其转换为： 1月， 2月， 3月， 4月， 5月， 6月， 7月， 8月， 9月， 10月， 11月， 12月， 2月， 3月

有人能帮我吗？

提前感谢您抽出宝贵时间

Answer 1

一个非常简单的方法是有一个月的向量。然后，您可以使用月份数作为向量索引（将其强制为整数后）。

Months <- c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

df <- data.frame(Month= c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "1", "2", "3"))
df$Month <- Months[as.integer(df$Month)]
df
#>    Month
#> 1    Jan
#> 2    Feb
#> 3    Mar
#> 4    Apr
#> 5    May
#> 6    Jun
#> 7    Jul
#> 8    Aug
#> 9    Sep
#> 10   Oct
#> 11   Nov
#> 12   Dec
#> 13   Jan
#> 14   Feb
#> 15   Mar

同样可以使用内置的< code>R常量< code>month.abb来完成，而不是创建您自己的< code>Months向量。

< sup >由reprex软件包(1.0.0版)于2021年2月21日创建

Answer 2

不是最优雅或编程的解决方案，但您可以将所有值替换为dplyr包中的mutate（）函数：

library(dplyr)

df = mutate(df, Month = case_when(Month == "1" ~ "Jan",
                                  Month == "2" ~ "Feb",
                                  Month == "3" ~ "Mar",
                                  Month == "4" ~ "Apr",
                                  Month == "5" ~ "May",
                                  Month == "6" ~ "Jun",
                                  Month == "7" ~ "Jul",
                                  Month == "8" ~ "Aug",
                                  Month == "9" ~ "Sep",
                                  Month == "10" ~ "Oct",
                                  Month == "11" ~ "Nov",
                                  Month == "12" ~ "Dec")

您可以在这里找到使用case_when的留档：https://dplyr.tidyverse.org/reference/case_when.html

另一种基于@r2evans留下的注释的编程解决方案是使用内置的R对象month在一行中完成此操作。abb：

df = mutate(df, Month = month.abb[as.numeric(Month)])