棒グラフ内の年単位のデータを集計する

Question

棒グラフの中で年単位でデータを集計したい。このanswerに基づいて、私は次のコードを書いた：

years <- seq(as.Date('1970/01/01'), Sys.Date(), by="year") 
set.seed(111) 
effect <- sample(1:100,length(years),replace=T) 
data <- data.frame(year=years, effect=effect) 
ggplot(data, aes(year, effect)) + geom_bar(stat="identity", aes(group=cut(year, "5 years"))) 

しかし、唯一の目盛りが影響を受けているのが、データは区間によって加算されていません。ティックマークとラベルをそのままにして、データを前処理せずにデータを集計するggplot2を取得できますか？

編集：申し訳ありませんが明確ではありませんでした。私はティックマークとラベルをそのまま、つまり各バーの左端に位置する目盛り（今は5年をカバー）とラベルのみを保持したいと思います。これは上記のリンクされた答えの外観に基づいています。

Answer 1

あなたが欲しいものをやっての

少しハック方法：

ggplot(data, aes(cut(year, "5 years"), effect)) + 
    geom_col() + 
    xlab("year") 

それが実際に何：それは、高さと複数の列（棒）をプロットしeffectに等しいが、互いにベースの上に積み重ね5年間のインターバル識別子。言い換えれば、プロット上には実際には1つの色で48のバーがあり、お互いの上に配置されています。

Answer 2

このお試しください：返し

library(tidyverse) 

df %>% 
    mutate(index = ceiling(seq_along(years)/5)) %>% 
    group_by(index) %>% 
    mutate(sum_effect = sum(effect)) %>% 
    distinct(sum_effect, .keep_all = TRUE) %>% 
    ggplot(aes(year, sum_effect)) + 
    geom_col() 

：

を私はggplot2