ggplotのバープロットに垂直線を追加する

Question

私は月にカウントデータを表示するggplotに垂直線を追加しようとしています。私のx軸はファクターとして月ですが、私の縦線はユリウス日を表しています。これらのデータと例えば

、：私はどのように私は、ユリウス日68のx切片で2本の垂直線を追加することができ、次のバープロット

ggplot(dat)+ geom_bar(aes(x= Month, y = Data), stat="identity") 

を作ることができます

dat <- structure(list(Month = structure(1:12, .Label = c("Jan", "Feb", 
"Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", 
"Dec"), class = c("ordered", "factor")), Data = c(1, 1, 2, 2, 
6, 11, 19, 23, 19, 13, 5, 1)), .Names = c("Month", "Data"), class = "data.frame", row.names = c(NA, 
-12L)) 

と252 geom_vlineを使用していますか？

私は、毎月の（因子）x軸データに連続的なスケールを参照する線をプロットする方法がわかりません。

Answer 1

データは、月ごとに単一の単位でプロットされたので、あなたは、バーサイズのオフセットをいくつかと、ヶ月で今年の割合として行を追加する必要があります。

ggplot(dat) + 
    geom_bar(aes(x = Month, y = Data), stat = "identity") + 
    geom_vline(xintercept = 12 * (c(68, 252)/365) + 0.5) 

チェックこの日1日365用のラインを見て：

ggplot(dat) + 
    geom_bar(aes(x = Month, y = Data), stat = "identity") + 
    geom_vline(xintercept = 12 * (c(1, 365)/365) + 0.5) 

日おきに直線的にグラフ全体に補間されます。

Answer 2

あなたのx軸がfactorの場合、geom_vlineは、各値の出現順をインターセプトとして使用します。

あなたは、あなたが探している正確な日付に対応する部分を特定する必要があります。この例では、2つの例示的な分数を使用しています。

ggplot(dat)+ geom_bar(aes(x= Month, y = Data), stat="identity") + 
geom_vline(xintercept = 5.2) + 
    geom_vline(xintercept = 8.7)