R 如何将列名转换为更好的年份和月份格式

Question

我有一个数据框，其中一些列的列名称为年份和月份。

ID <- c(1, 3, 9L, 21L, 15L)
names <- c("as", "ds", "sds", "www", "jgh")
`201401` <- c("12L", "310L", "2379L", "234L", "14L")
`201402` <- c("12L", "310L", "2379L", "234L", "14L")
`201403` <- c("12L", "310L", "2379L", "234L", "14L")
`201404` <- c("12L", "310L", "2379L", "234L", "14L")

我想将年月列名称转换为日期格式，以便诸如201401变为Jan 2014等列。

df <- data.frame(ID, names, `201401`, `201402`, `201403`, `201404`, check.names = FALSE)

betterDate <-  as.Date(df$201401,"%m/%y")  #possible solution ?

获得以下结果的最佳方法是什么？

预期结果 df 列名称为：

ID =c(1, 3, 9L, 21L, 15L)
names = c("as","ds" ,"sds" ,"www", "jgh")
Jan 2014 = c('12L', '310L','2379L', '234L', '14L')
Feb 2014 =c('12L', '310L','2379L', '234L', '14L')
Mar 2014 =c('12L', '310L','2379L', '234L', '14L')
April 2014 =c('12L', '310L','2379L', '234L', '14L')

Answer 1

我从您的标签中假设这是您将在网页中呈现的表格。我希望如此，因为在 R 中使用这样的名称并不理想。在任何情况下，您都可以将名称转换为日期，然后根据需要设置它们的格式：

names_to_exclude  <- c("ID", "names")
names_to_change <- names(df)[!names(df) %in% names_to_exclude]
new_names  <- format(
    as.Date(sprintf("%s01", names_to_change), format = "%Y%m%d"),
    "%b %Y"
)

setNames(df, c(names_to_exclude, new_names))
#   ID names Jan 2014 Feb 2014 Mar 2014 Apr 2014
# 1  1    as      12L      12L      12L      12L
# 2  3    ds     310L     310L     310L     310L
# 3  9   sds    2379L    2379L    2379L    2379L
# 4 21   www     234L     234L     234L     234L
# 5 15   jgh      14L      14L      14L      14L

Answer 2

您可以使用ym+format

library(lubridate)
names(df)[-(1:2)] <- format(ym(names(df[-(1:2)])), "%b %Y")

你将获得

> df
  ID names Jan 2014 Feb 2014 Mar 2014 Apr 2014
1  1    as      12L      12L      12L      12L
2  3    ds     310L     310L     310L     310L
3  9   sds    2379L    2379L    2379L    2379L
4 21   www     234L     234L     234L     234L
5 15   jgh      14L      14L      14L      14L