r - 使用每周数据创建月平均列 R

Question

我有一个名为的数据Demandts框，它在下面显示为 tsibble：

（mam 代表每月 MA）

# A tsibble: 255 x 7 [1]
# Key:       Date [255]
    Week Demand Date         mam Quarter Month year 
   <dbl>  <dbl> <date>     <dbl>   <qtr> <dbl> <chr>
 1     1     48 2018-01-01  199. 2018 Q1     1 2018 
 2     2    101 2018-01-08  199. 2018 Q1     1 2018 
 3     3    129 2018-01-15  106. 2018 Q1     1 2018 
 4     4    113 2018-01-22  118. 2018 Q1     1 2018 
 5     5    116 2018-01-29  121. 2018 Q1     1 2018 
 6     6    123 2018-02-05  125. 2018 Q1     2 2018 
 7     7    137 2018-02-12  132. 2018 Q1     2 2018 
 8     8    136 2018-02-19  132. 2018 Q1     2 2018 
 9     9    151 2018-02-26  126. 2018 Q1     2 2018 
10    10     87 2018-03-05  142. 2018 Q1     3 2018 
# ... with 245 more row

我正在尝试使用每月平均需求创建一个新列，以便我可以使用ggplot.

编辑* 我如何平均每月需求？

Answer 1

您可以使用类似以下代码的内容

library(tidyverse)

df %>% 
   group_by(Month) %>% 
   summarise(monthly = mean(mam)) %>% 
   ggplot(aes(x = Month, y = monthly)) +
   geom_col()

数据

df = structure(list(Week = 1:10, Demand = c(48L, 101L, 129L, 113L, 
116L, 123L, 137L, 136L, 151L, 87L), Date = c("2018-01-01", "2018-01-08", 
"2018-01-15", "2018-01-22", "2018-01-29", "2018-02-05", "2018-02-12", 
"2018-02-19", "2018-02-26", "2018-03-05"), mam = c(199L, 199L, 
106L, 118L, 121L, 125L, 132L, 132L, 126L, 142L), Quarter = c("Q1", 
"Q1", "Q1", "Q1", "Q1", "Q1", "Q1", "Q1", "Q1", "Q1"), Month = c(1L, 
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L), year = c(2018L, 2018L, 2018L, 
2018L, 2018L, 2018L, 2018L, 2018L, 2018L, 2018L)), class = "data.frame", row.names = c(NA, 
-10L))