我有一个数据框,其中某些列的列名称为年份和月份。
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')
我从您的标签中假设这是您将在网页中呈现的表格。我希望如此,因为在 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