如何在R中对这些类型的数据进行排序

x <- c(5, 2, 8, 1, 3)
sorted_x <- sort(x)

x <- c("apple", "banana", "cat", "dog")
sorted_x <- sort(x)

x <- factor(c("apple", "banana", "cat", "dog"))
sorted_x <- sort(x)

x <- as.Date(c("2022-01-01", "2022-03-15", "2022-02-10"))
sorted_x <- sort(x)

# 自定义类型的对象
x <- list(
  name = c("Alice", "Bob", "Charlie"),
  age = c(25, 30, 20)
)

# 定义比较函数
compare_func <- function(x, y) {
  if (x$age < y$age) {
    return(-1)
  } else if (x$age > y$age) {
    return(1)
  } else {
    return(0)
  }
}

# 使用自定义比较函数进行排序
sorted_x <- sort(x, compare_func)