BARPLOT：x axを変更してラインを追加します

Question

私はこのように見える毎日のデータを備えた動物園を持っています：> head(almorol)
1973-10-02 1973-10-03 1973-10-04 1973-10-05 1973-10-06 1973-10-07
183.9 208.2 153.7 84.8 52.5 35.5

年間合計と移動平均をプロットしたいので、次のようにしました。

y<-apply.yearly(almorol, FUN=sum)
plot(y, main="Annual totals - Tagus (Almorol)",ylab="Q (m3/s)")
lines(rollapply(y, 10, mean, na.rm=TRUE), col="red", lwd=2)

これは正常に機能しますが、データが連続していないため、折れ線グラフは正しくありません。ポイントでそれを行うと、従うのが難しいので、バープロットをやりたいと思っていました。しかし、私がするとき barplot(y) x axは、数年ではなくyy-mm-ddの形式で表示され、移動平均で行を追加することはできません（表示されないエラーが発生しません）。

助けてくれてありがとう！

編集： > y
1973-12-31 1974-12-31 1975-12-31 1976-12-31
19224.20 103766.30 72180.90 55939.80
1977-12-31 1978-12-31 1979-12-31 1980-12-31
215905.00 231014.21 319481.02 58979.84
1981-12-31 1982-12-31 1983-12-31 1984-12-31
32931.17 67989.06 83920.62 99431.75
1985-12-31 1986-12-31 1987-12-31 1988-12-31
161357.10 82910.87 101154.81 147541.80
1989-12-31 1990-12-31 1991-12-31 1992-12-31
137684.21 134974.39 89039.02 20774.72
1993-12-31 1994-12-31 1995-12-31 1996-12-31
58916.95 55187.38 52361.77 271064.34
1997-12-31 1998-12-31 1999-12-31 2000-12-31
220510.88 125116.62 42170.95 103915.99
2001-12-31 2002-12-31 2003-12-31 2004-12-31
244513.59 66811.15 167458.93 67223.66
2005-12-31 2006-12-31 2007-12-31 2008-12-31
8906.31 116874.33 79105.30 40142.61
2009-12-31 2010-12-31 2011-05-31
43835.34 161491.77 73093.06

Answer 1

バープロット内のX座標は、データの元のスケールとは関係ありません。 X軸の範囲が何であるかを確認するために、Barplot関数の戻り値を調べることができます（ラインが表示されない可能性のある理由は、画面から完全にプロットされています）。

TeachingDemosパッケージのUpdateUSR関数を使用して、追加するデータに合わせて座標スケールを変更することができます。

別の選択肢は、プロット関数を使用することです type='h' （そして見てください lwd と lend オプション ?par）関心のある座標を使用してプロットのような独自のバープロットを作成するには、参照線を追加します。