如何将create_calendar函数直接应用到tibble中？

能否将create_calendar函数直接应用到tibble中？目前的做法是先基于数据集df的Date列创建日历数据框Calendar <- create_calendar(df$Date)，再通过left_join(df, Calendar, by = "Date")合并，但希望找到直接在数据框管道中操作的方法。当前尝试的代码（存在报错）如下：

#Create Calendar Function
create_calendar = function(dates) {

#Create a sequence of dates from the minimum to the maximum date in the input column
  Dates = seq(min(dates), max(dates), by="days")
  
#Convert the dates to a tibble and add additional columns
  Calendar = as_tibble(Dates) %>%
    rename(Date = value) %>%
    mutate(
      DateNo = day(Date),
      NameDay = wday(Date,label = TRUE, abbr=FALSE),
      NameDayShort = wday(Date,label = TRUE),
      DayinWeek = wday(Date),
      MonthNo = month(Date),
      NameMonth = month(Date, label = TRUE, abbr=FALSE),
      NameMonthShort = month(Date, label = TRUE),
      Week = week(Date),
      Year = year(Date),
      Quarter = quarter(Date, with_year = F, fiscal_start = 7)) %>% 

#Month number for the Australian financial year
  Calendar <- Calendar %>%
    mutate(AFYMonth = case_when(
      NameMonthShort == "Jul" ~ 1
      NameMonthShort == "Aug" ~ 2,
      NameMonthShort == "Sep" ~ 3,
      NameMonthShort == "Oct" ~ 4,
      NameMonthShort == "Nov" ~ 5,
      NameMonthShort == "Dec" ~ 6,
      NameMonthShort == "Jan" ~ 7,
      NameMonthShort == "Feb" ~ 8,
      NameMonthShort == "Mar" ~ 9,
      NameMonthShort == "Apr" ~ 10,
      NameMonthShort == "May" ~ 11,
      NameMonthShort == "Jun" ~ 12,
    ))
  
#Format the week column as %V
  Calendar$Week <- format(Calendar$Date, format = "%V")
  
  return(Calendar)
}

#Read function and apply to current df [Missing Step]
df <- df %>%
  mutate(Calendar = create_calendar(Date))

方法1：管道内直接完成生成+合并 #

不需要单独创建Calendar变量，直接在df的管道流里生成日历并合并，逻辑和你原来的操作一致，但更简洁：

df <- df %>%
  left_join(create_calendar(.$Date), by = "Date")

这里用.$Date引用管道中当前数据框的Date列，生成日历后直接左连接，省去了单独存储日历数据框的步骤。

方法2：修改函数为逐行处理（直接添加日历字段） #

如果你的需求是给df中已有的每个Date值单独生成对应的日历字段，而非生成完整的日期序列，可以修改函数为逐行处理模式，直接在mutate中生成所有日历列：

# 修改后的逐行处理版函数
create_calendar_row <- function(date) {
  tibble(
    DateNo = day(date),
    NameDay = wday(date, label = TRUE, abbr = FALSE),
    NameDayShort = wday(date, label = TRUE),
    DayinWeek = wday(date),
    MonthNo = month(date),
    NameMonth = month(date, label = TRUE, abbr = FALSE),
    NameMonthShort = month(date, label = TRUE),
    Week = format(date, "%V"),
    Year = year(date),
    Quarter = quarter(date, with_year = F, fiscal_start = 7),
    AFYMonth = case_when(
      NameMonthShort == "Jul" ~ 1,
      NameMonthShort == "Aug" ~ 2,
      NameMonthShort == "Sep" ~ 3,
      NameMonthShort == "Oct" ~ 4,
      NameMonthShort == "Nov" ~ 5,
      NameMonthShort == "Dec" ~ 6,
      NameMonthShort == "Jan" ~ 7,
      NameMonthShort == "Feb" ~ 8,
      NameMonthShort == "Mar" ~ 9,
      NameMonthShort == "Apr" ~ 10,
      NameMonthShort == "May" ~ 11,
      NameMonthShort == "Jun" ~ 12
    )
  )
}

# 直接在管道中应用，生成所有日历字段
df <- df %>%
  mutate(create_calendar_row(Date))

这个方法会直接给df添加所有日历相关列，无需额外的join操作。

你原来的create_calendar函数存在两个语法问题，修正后保持管道风格一致性：

# 修正后的原函数
create_calendar = function(dates) {
  seq(min(dates), max(dates), by="days") %>%
    as_tibble() %>%
    rename(Date = value) %>%
    mutate(
      DateNo = day(Date),
      NameDay = wday(Date, label = TRUE, abbr=FALSE),
      NameDayShort = wday(Date, label = TRUE),
      DayinWeek = wday(Date),
      MonthNo = month(Date),
      NameMonth = month(Date, label = TRUE, abbr=FALSE),
      NameMonthShort = month(Date, label = TRUE),
      Week = week(Date),
      Year = year(Date),
      Quarter = quarter(Date, with_year = F, fiscal_start = 7),
      AFYMonth = case_when(
        NameMonthShort == "Jul" ~ 1,
        NameMonthShort == "Aug" ~ 2,
        NameMonthShort == "Sep" ~ 3,
        NameMonthShort == "Oct" ~ 4,
        NameMonthShort == "Nov" ~ 5,
        NameMonthShort == "Dec" ~ 6,
        NameMonthShort == "Jan" ~ 7,
        NameMonthShort == "Feb" ~ 8,
        NameMonthShort == "Mar" ~ 9,
        NameMonthShort == "Apr" ~ 10,
        NameMonthShort == "May" ~ 11,
        NameMonthShort == "Jun" ~ 12
      ),
      Week = format(Date, "%V")
    )
}

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