Question

我有一个格式为 month_name-2_digit_year 的日期字符串向量，即

a = rbind("April-21", "March-21", "February-21", "January-21")

我正在尝试将该向量转换为日期对象的向量。我知道这个问题与此非常相似：Convert non-standard date format to date in R 几年前发布，但不幸的是，它没有回答我的问题。

我尝试了以下 as.Date() 调用来执行此操作，但它仅返回 NA 向量。即

b = as.Date(a, format = "%B-%y")
b = as.Date(a, format = "%B%y")
b = as.Date(a, "%B-%y")
b = as.Date(a, "%B%y")

我也尝试使用 openxlsx 包中的 convertToDate 函数来做到这一点：

b = convertToDate(a, format = "%B-%y")

我也尝试了上述所有方法，但使用的是单个字符串而不是向量，但这产生了同样的问题。

我有点不明白为什么这不起作用，因为这种格式在我的脚本中反向起作用（也就是说，我已经有一个 dd-mm-yyyy 格式的日期对象并将其转换为使用 %B-%y 的月份名称-yy）。如果字符串是非标准日期格式（如果您在美国，则为 dd-mm-yyy 或 mm-dd-yy 以外的任何格式），是否还有另一种方法可以将字符串转换为日期？

根据记录，我的 R 语言环境都是英国和英语。

提前致谢。

Answer 1

日期必须包含日、月和年这三项。转换为仅需要月份和年份的 yearmon 类，然后转换为 Date，如下面的 (1) 和 (2) 或添加日期，如 (3)。

(1) 和 (3) 给出月初，(2) 给出月底。

(3) 仅使用来自基础 R 的函数。

还要考虑完全不转换为 Date 而是只使用 yearmon 对象，因为它们直接表示输入所表示的年份和月份。

library(zoo)

# test input
a <- c("April-21", "March-21", "February-21", "January-21") 

# 1
as.Date(as.yearmon(a, "%B-%y"))
## [1] "2021-04-01" "2021-03-01" "2021-02-01" "2021-01-01"

# 2
as.Date(as.yearmon(a, "%B-%y"), frac = 1)
## [1] "2021-04-30" "2021-03-31" "2021-02-28" "2021-01-31"

# 3
as.Date(paste(1, a), "%d %B-%y")
## [1] "2021-04-01" "2021-03-01" "2021-02-01" "2021-01-01"

Answer 2

除了动物园，@G. Grothendieck 提到，你也可以使用时钟或润滑。

clock 支持称为 year_month_day 的可变精度日历类型。在这种情况下，您需要 "month" 精度，然后您可以将日期设置为您喜欢的任何日期并转换回日期。

library(clock)

x <- c("April-21", "March-21", "February-21", "January-21") 

ymd <- year_month_day_parse(x, format = "%B-%y", precision = "month")
ymd
#> <year_month_day<month>[4]>
#> [1] "2021-04" "2021-03" "2021-02" "2021-01"

# First of month
as.Date(set_day(ymd, 1))
#> [1] "2021-04-01" "2021-03-01" "2021-02-01" "2021-01-01"

# End of month
as.Date(set_day(ymd, "last"))
#> [1] "2021-04-30" "2021-03-31" "2021-02-28" "2021-01-31"

最简单的解决方案可能是使用lubridate::my()，它按照“月然后年”的顺序解析字符串。这假设您想要一个月的第一天，这对您来说可能正确也可能不正确。

library(lubridate)

x <- c("April-21", "March-21", "February-21", "January-21") 

# Assumes first of month
my(x)
#> [1] "2021-04-01" "2021-03-01" "2021-02-01" "2021-01-01"

将非标准日期格式字符串（“April-20”）转换为日期对象 R

2 个答案: