您可以：

x <- c("22-03-23", "01-04-20")
gsub("(.*)(-.*-)(.*)", "\\3\\2\\1", x)
#[1] "23-03-22" "20-04-01"

在"-"上拆分，然后反转并将其 * 粘贴 * 回一起，或使用 as.Date：

x <-  c("22-03-23", "01-04-20")

sapply(strsplit(x, split = "-", fixed = TRUE), function(i) paste(rev(i), collapse = "-"))
# [1] "23-03-22" "20-04-01"

as.Date(x, format = "%d-%m-%y")
# [1] "2023-03-22" "2020-04-01"

如果需要，我们可以设置打印日期的格式：

format(as.Date(x, format = "%d-%m-%y"), "%y-%m-%d")
# [1] "23-03-22" "20-04-01"

library(dplyr)
x <- "22-03-23"
result <- x %>%
  str_split("-") %>%
  unlist() %>%
  rev() %>%
  paste(collapse = "-")
print(result)  # prints "23-03-22"

# Using base R
x <- "22-03-23"
parts <- strsplit(x, "-")[[1]]
result <- paste(rev(parts), collapse = "-")
print(result)  # prints "23-03-22"