在R语言中移除数据列中的完整日期时间部分

First, let’s confirm the pattern in your input strings: each entry starts with a structured prefix (including the ISO date-time) followed by - - (space-dash-space-dash-space) before the actual description. We can leverage this consistent separator to easily extract the description part.

Here are a few straightforward methods using both base R and the popular stringr package:

Method 1: Base R with gsub() #

This uses regular expressions to remove everything from the start of the string up to (and including) the - - separator:

# Sample input vector
sample_data <- c(
  "<13>1 2018-04-18T10:29:00.581243+10:00 KOI-QWE-HUJ vmon 2318 - - Some Description...",
  "<5>1 2023-11-05T08:15:30.123456+02:00 ABC-XYZ-123 syslog 456 - - Another example text here"
)

# Extract descriptions using gsub
descriptions <- gsub("^.* - - ", "", sample_data)

# View the result
print(descriptions)

Explanation: #

• ^.* - - : The regex pattern matches everything from the start of the string (^) up to and including the - - separator (the .* matches any character sequence).
• Replacing this matched part with an empty string leaves only the description.

Method 2: Base R with strsplit() #

If you prefer splitting the string instead of regex replacement:

# Split each string on the exact separator, then take the second part
descriptions <- sapply(strsplit(sample_data, " - - ", fixed = TRUE), function(x) x[2])

print(descriptions)

Explanation: #

• strsplit(sample_data, " - - ", fixed = TRUE) splits each string at the exact - - sequence (using fixed=TRUE makes this faster and avoids regex-related quirks).
• sapply(..., function(x) x[2]) extracts the second element of each split result, which is the description we want.

Method 3: Using stringr Package #

For a more readable approach with the stringr library (part of the tidyverse):

library(stringr)

# Extract everything after the first occurrence of " - - "
descriptions <- str_remove(sample_data, "^.* - - ")

# Alternative: Split and extract directly
descriptions <- str_split(sample_data, " - - ", simplify = TRUE)[, 2]

print(descriptions)

Explanation: #

• str_remove() works similarly to gsub() but uses a more intuitive, pipe-friendly syntax.
• str_split(..., simplify = TRUE) returns a matrix, so we can directly index the second column to pull out all descriptions at once.

All these methods will give you the desired output:

[1] "Some Description..."               "Another example text here"

To apply this to your dataset, just replace sample_data with your column name (e.g., df$clean_description <- gsub("^.* - - ", "", df$raw_column)).

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