如何从tibble的日期列中提取所有唯一月份？

你可以通过以下步骤提取并格式化所需的唯一月份：

方法一：使用tidyverse管道流（更直观） #

先确保加载dplyr（如果未加载的话），然后执行以下代码：

library(dplyr)
library(lubridate)

# 提取所有日期、转换为月份名称、去重排序并连接
result <- df %>%
  # 将start和finish列转为长格式，统一处理所有日期
  pivot_longer(cols = c(start, finish), values_to = "date") %>%
  # 提取完整的英文月份名称
  mutate(month_name = month(date, label = TRUE, abbr = FALSE)) %>%
  # 保留唯一的月份
  distinct(month_name) %>%
  # 按自然月份顺序排序
  arrange(month_name) %>%
  # 将列转为向量
  pull(month_name) %>%
  # 用逗号连接成字符串
  paste(collapse = ", ")

# 输出结果
print(result)

运行后会直接输出你期望的格式：

[1] "January, February, March, May, October, November, December"

方法二：Base R 简洁写法 #

如果不想使用dplyr，可以用基础R代码实现：

library(lubridate)

# 合并两列的所有日期
all_dates <- c(df$start, df$finish)
# 提取完整月份名称并去重排序
unique_months <- sort(unique(month(all_dates, label = TRUE, abbr = FALSE)))
# 连接成指定格式
result <- paste(unique_months, collapse = ", ")

print(result)

关键说明： #

• month(date, label = TRUE, abbr = FALSE)：label=TRUE返回月份名称而非数字，abbr=FALSE指定返回完整名称（如January而非Jan）
• sort()：由于month()返回的是有序因子，排序会自动按照1-12月的自然顺序排列，无需手动调整
• paste(collapse = ", ")：将向量中的元素用逗号加空格连接成单个字符串

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