如何将周起始日从周日改为周六？R语言周销售额统计求助

No problem at all—let's get your weekly sales grouped correctly from Saturday to Friday. Here are two reliable ways to adjust the week start date using lubridate:

Method 1: Use the week_start Parameter (Recommended for Newer Lubridate Versions) #

Lubridate's floor_date() function has a week_start argument that lets you define the first day of the week directly. By default, week_start = 1 (Sunday), but we can set it to 7 to make Saturday the start:

library(lubridate)

# Test with your sample date
date <- as.Date("2018-03-26")
floor_date(date, unit = "week", week_start = 7)
# Output: "2018-03-24" (which is the Saturday before your sample date)

To apply this to your sales dataset (assuming you have a dataframe named sales_data with date and sales columns), use dplyr to group and summarize:

library(dplyr)

sales_data <- sales_data %>%
  # Create a column for the Saturday start of each week
  mutate(week_start_sat = floor_date(date, unit = "week", week_start = 7)) %>%
  # Group by the Saturday start date
  group_by(week_start_sat) %>%
  # Calculate total weekly sales (Saturday to Friday)
  summarise(total_weekly_sales = sum(sales, na.rm = TRUE))

Method 2: Manual Date Offset (For Older Lubridate Versions) #

If you're using an older version of Lubridate that doesn't support week_start, you can manually shift the date to adjust the week boundary:

# Shift date forward by 1 day, floor to Sunday-start week, then shift back 1 day
floor_date(date + days(1), unit = "week") - days(1)
# Same output as above: "2018-03-24"

This works because shifting the date forward 1 day makes the original Saturday become a Sunday (the default week start), then we floor to that Sunday and shift back to get the original Saturday as our week start.

Either method will correctly group your sales data into Saturday-to-Friday weeks. Let me know if you need help adapting this to your specific dataset!

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