為了進行一些時間序列分析，我想使用如下所示的資料框：
data <- data.frame (Store_ID = as.character(c(seq( 1, length.out = 10),
seq( 1, length.out = 9),
c(1,2,3,4,6,7,8,9))),
amount_sold = c(seq( 1, 9, length.out = 27)),
date = c(rep(as.Date("2015-01-01"),10),
rep(as.Date("2015-01-02"),9),
rep(as.Date("2015-01-03"),8)
)
)
如您所見，第一個日期（2015-01-01）有 10 個 Store_ID，但下一個日期只有 9 個，最后一個日期只有 8 個。
對于我的分析，我需要添加接下來兩天缺少的 Store_ID。因此，我希望有 30 行和一個“0”作為缺少 Store_ID 的 amount_sold。
uj5u.com熱心網友回復：
嘗試
library(tidyr)
data <- data.frame (Store_ID = as.character(c(seq( 1, length.out = 10),
seq( 1, length.out = 9),
c(1,2,3,4,6,7,8,9))),
amount_sold = c(seq( 1, 9, length.out = 27)),
date = c(rep(as.Date("2015-01-01"),10),
rep(as.Date("2015-01-02"),9),
rep(as.Date("2015-01-03"),8)
)
) %>%
complete(Store_ID, date, fill = list(amount_sold = 0))
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/404930.html
標籤：
上一篇：將滑鼠懸停在Plotly圖形上時，是否可以添加更多資訊？
下一篇：有條件地跨列同步異步資料