r - 未完了の最初と最後の週で毎週集計する方法は?

Question

週ごとに値を合計したい。場合によっては、最初または最後の週が 7 日未満になることがあります。以下の例では、データは 2016 年 1 月 1 日から始まりますが、その週の下限日は 2015 年 12 月 27 日です。そのため、週の合計は 7 日ではなく 2 日で計算されます。この動作が完全に論理的であることは理解していますが、最初と最後の週 (7 日未満のデータで構成される可能性があります) がプロットで低い値として表示されないようにしたいと思います。これどうやってするの？最初と最後の週は省くべきですか？ここで平均値を使用する必要がありますか? どのように？

expenses <- data_frame(
  date=seq(as.Date("2016-01-01"), as.Date("2016-12-31"), by=1),
  amount=rgamma(length(date), shape = 2, scale = 20))

plot_df <-  expenses %>% 
  mutate(Week = floor_date(date, "week")) %>%  
  group_by(Week) %>% 
  summarize(exp_sum = sum(amount))

ggplot(data = plot_df, 
       aes(x = as.Date(Week), y = exp_sum)) + 
  geom_line() +
  geom_point() + 
  scale_x_date(date_breaks = "1 week", date_labels = "%W")

プロット例