如何用lapply一行代码补全缺失:00并合并数据集变量

Got it, let's craft that one-liner you're looking for! Here's how you can handle both the :00补全 for v2 and the merge with v1 in a single lapply call:

# Replace df with your actual dataset name
df$v3 <- unlist(lapply(seq_len(nrow(df)), function(row_idx) {
  # Check if v2 already ends with :XX (seconds part)
  cleaned_v2 <- ifelse(grepl(":\\d{2}$", df$v2[row_idx]), 
                       df$v2[row_idx], 
                       paste0(df$v2[row_idx], ":00"))
  # Merge v1 and cleaned v2
  paste0(df$v1[row_idx], cleaned_v2)
}))

Breakdown of what this does: #

• We use lapply to iterate over each row index (via seq_len(nrow(df))) — this lets us access corresponding values of v1 and v2 for each row.
• The grepl(":\\d{2}$", ...) check verifies if v2 already has a seconds component (ends with :XX where XX are digits). If yes, we keep v2 as-is; if not, we append :00.
• Finally, paste0 merges the original v1 value with the cleaned v2 value, and unlist converts the list output from lapply into a vector that we can assign to v3.

Example Usage #

Suppose your dataset looks like this:

df <- data.frame(
  v1 = c("2024-05-20", "2024-05-21", "2024-05-22"),
  v2 = c("08:45", "13", "17:30:00"),
  stringsAsFactors = FALSE
)

Running the one-liner will result in df$v3 being:

[1] "2024-05-2008:45"    "2024-05-2113:00"    "2024-05-2217:30:00"

If you want a separator (like a space) between v1 and v2, just swap paste0 with paste(df$v1[row_idx], cleaned_v2, sep = " ").

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