geom_vlineは私のボックスプロットでは機能しません

Question

私は面取りされたボックスプロットを作成しました。今私はプロットに線を追加する必要があります。下のコードではラインが表示されませんでした。親切に私にいくつかの助けを提供してください！ありがとう！

データ：

Year |variable |value 
2001 |A   |39.605 
2001 |A   |28.50759 
2001 |A   |24.8132 
2002 |A   |10.70765357 
2002 |A   |7.8676 
2002 |A   |16.05294712 
2003 |A   |19.7847 
2003 |A   |20.21635 
2003 |A   |29.15491667 
2001 |B   |50 
2001 |B   |78 
2001 |B   |90 
2002 |B   |35 
2002 |B   |62 
2002 |B   |82.5 
2003 |B   |49.5 
2003 |B   |60 
2003 |B   |84 

コード：

pp <- ggplot(dta, aes(x=factor(Year),y=value)) + 
    geom_boxplot() + 
    facet_grid(variable~.,scales="free_y") + 
    theme_bw() 
pp + geom_vline(xintercept = 2002) #The line didn't show. 
pp + geom_vline(xintercept = as.numeric(2002)) #The line didn't show. 
pp + geom_vline(xintercept = which(levels(dta$Year) =="2002")) #The line didn't show. 

Answer 1

してください、あなたはaes(x=factor(Year),...を指定していたので、あなたは、因子レベルの整数を見つける必要がある

pp + geom_vline(xintercept = which(levels(factor(dta$Year)) =="2002")) 

を試してみてください。 Yearは元のデータフレームdtaの要素ではないため、levels(dta$Year)はNULLを返します。これはyour own answerのように特定の因子レベルをハードコーディングとは対照的に、あなたは、入力データを変更した場合でも動作すること

levels(factor(dta$Year)) 
#[1] "2001" "2002" "2003" 

注：ので、あなたはgeom_vline()にお電話でfactor(dta$Year)を追加する必要があります。

Answer 2

それを手に入れました！ PP + geom_vline（xintercept = 2）