去掉数字月份前面多余的0

Question

我有一个 df ，其中有一列以 character 格式存储日期，我想提取月份。为此，我使用以下内容：

mutate(
    
    Date = as.Date(
      
      str_remove(Timestamp, "_.*")
      
      ),
    
    Month = month(
      
      Date, 
      
      label = F)
    
  ) 

但是，十月、十一月和十二月在存储时在月份前面有一个额外的零。 lubridate 库无法识别它。如何调整上面的代码来解决这个问题？这是我的 Timestamp 列：

c("2021-010-01_00h39m", "2021-010-01_01h53m", "2021-010-01_02h36m", 
"2021-010-01_10h32m", "2021-010-01_10h34m", "2021-010-01_14h27m"
)

Answer 1

首先将值转换为日期并使用 format 从中获取月份。

format(as.Date(x, '%Y-0%m-%d'), '%b')
#[1] "Oct" "Oct" "Oct" "Oct" "Oct" "Oct"

%b 给出缩写的月份名称，您也可以根据您的选择使用 %B 或 %m。

format(as.Date(x, '%Y-0%m-%d'), '%B')
#[1] "October" "October" "October" "October" "October" "October"

format(as.Date(x, '%Y-0%m-%d'), '%m')
#[1] "10" "10" "10" "10" "10" "10"

Answer 2

一种方法是使用 strsplit 提取第二个元素：

month.abb[readr::parse_number(sapply(strsplit(x, split = '-'), "[[", 2))]

它将返回：

#"Oct" "Oct" "Oct" "Oct" "Oct" "Oct"

数据：

c("2021-010-01_00h39m", "2021-010-01_01h53m", "2021-010-01_02h36m", 
  "2021-010-01_10h32m", "2021-010-01_10h34m", "2021-010-01_14h27m"
) -> x