如何在R语言中去除时间序列单数位月份前的零值？

Here are two straightforward ways to achieve your desired date formatting in R:

Method 1: Base R String Manipulation (Quick & Simple) #

If you’re confident all your date strings follow the exact YYYY-MM-DD format, regular expressions let you directly strip leading zeros from single-digit months:

# Sample input dates
dates <- c("2009-05-01", "2009-06-01", "2009-07-01", "2009-08-01", "2009-09-01", "2009-10-01", "2009-01-05")

# Remove leading zero from months 1-9
clean_dates <- gsub("-0([1-9])-", "-\\1-", dates)

# Check the result
print(clean_dates)

Output: #

[1] "2009-5-01"  "2009-6-01"  "2009-7-01"  "2009-8-01"  "2009-9-01"  "2009-10-01" "2009-1-05"

How it works: The regex -0([1-9])- targets -0 followed by a digit 1-9, then a -. The \\1 in the replacement inserts just the captured digit (dropping the leading zero), leaving double-digit months like October (10) untouched.

Method 2: Using lubridate (Robust & Date-Validating) #

For a more reliable approach that verifies your dates are valid before formatting, use the lubridate package. This method parses strings into actual Date objects, then reconstructs them with your preferred format:

# Install lubridate if you haven't already
# install.packages("lubridate")
library(lubridate)

# Sample input dates
dates <- c("2009-05-01", "2009-06-01", "2009-07-01", "2009-08-01", "2009-09-01", "2009-10-01", "2009-01-05")

# Convert strings to Date objects
date_objects <- ymd(dates)

# Reformat: 4-digit year, single-digit month, 2-digit day
clean_dates <- paste(
  year(date_objects),
  month(date_objects),
  sprintf("%02d", day(date_objects)),
  sep = "-"
)

# Check the result
print(clean_dates)

Output: #

[1] "2009-5-01"  "2009-6-01"  "2009-7-01"  "2009-8-01"  "2009-9-01"  "2009-10-01" "2009-1-05"

Why this is better: If any input string is an invalid date (e.g., "2009-13-01"), ymd() will return NA for that entry, alerting you to the issue instead of silently modifying an invalid string.

内容的提问来源于stack exchange，提问作者Exavery