我有一些看起來像這樣的資料：
# order_date quantity
# 1 2021-01-01 54
# 2 2021-01-01 32
# 3 2021-01-02 42
# 4 2021-01-01 132
# 5 2021-01-01 56
# 6 2021-01-02 88
# 7 2021-01-08 99
# 8 2021-01-10 54
當我使用以下代碼時：
df$week <- cut(as.Date(df$order_date), breaks="week")
我得到以下資訊：
# order_date quantity week
# 1 2021-01-01 54 2020-12-28
# 2 2021-01-01 32 2020-12-28
# 3 2021-01-02 42 2020-12-28
# 4 2021-01-01 132 2020-12-28
# 5 2021-01-01 56 2020-12-28
# 6 2021-01-02 88 2020-12-28
# 7 2021-01-08 99 2021-01-04
# 8 2021-01-10 54 2021-01-04
由于我的資料從 1/1/21 開始，我希望周分組從 1/1/21 而不是 12/28/2020（最近的星期日）開始。所以我的組看起來像這樣：
# order_date quantity week
# 1 2021-01-01 54 2021-01-01
# 2 2021-01-01 32 2021-01-01
# 3 2021-01-02 42 2021-01-01
# 4 2021-01-01 132 2021-01-01
# 5 2021-01-01 56 2021-01-01
# 6 2021-01-02 88 2021-01-01
# 7 2021-01-08 99 2021-01-07
# 8 2021-01-10 54 2021-01-07
對其他庫/語法開放。
uj5u.com熱心網友回復：
您可以seq.Dat在日期范圍加一周內使用。不需要包裹。
dat |>
transform(week=cut(order_date,
breaks=seq.Date(min(order_date), max(order_date) 7,
by='week')))
# order_date quantity week
# 1 2021-01-01 54 2021-01-01
# 2 2021-01-01 32 2021-01-01
# 3 2021-01-01 42 2021-01-01
# 4 2021-01-01 132 2021-01-01
# 5 2021-01-01 56 2021-01-01
# 6 2021-01-02 88 2021-01-01
# 7 2021-01-03 99 2021-01-01
# 8 2021-01-03 54 2021-01-01
# 9 2021-01-08 23 2021-01-08
# 10 2021-01-10 11 2021-01-08
注：使用R >= 4.1。
資料：
dat <- structure(list(order_date = structure(c(18628, 18628, 18628,
18628, 18628, 18629, 18630, 18630, 18635, 18637), class = "Date"),
quantity = c(54, 32, 42, 132, 56, 88, 99, 54, 23, 11)), class = "data.frame", row.names = c(NA,
-10L))
uj5u.com熱心網友回復：
您可以使用 手動設定一周的第一天lubridate::floor_date。
dat$Week <- lubridate::floor_date(dat$order_date, "weeks", week_start = 5)
> dat
# order_date quantity week
#1 2021-01-01 54 2021-01-01
#2 2021-01-01 32 2021-01-01
#3 2021-01-01 42 2021-01-01
#4 2021-01-01 132 2021-01-01
#5 2021-01-01 56 2021-01-01
#6 2021-01-02 88 2021-01-01
#7 2021-01-03 99 2021-01-01
#8 2021-01-03 54 2021-01-01
#9 2021-01-02 23 2021-01-01
#10 2021-01-10 11 2021-01-08
資料
order_date <- c("2021-01-01", "2021-01-01","2021-01-01","2021-01-01","2021-01-01","2021-01-02","2021-01-03","2021-01-03","2021-01-02","2021-01-10")
quantity <- c(54,32,42,132,56,88,99,54,23,11)
dat <- data.frame(order_date=as.Date(order_date), quantity)
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/403228.html
標籤：