r - Fill を使用して ggplot2stackedGraphs にサンプル数を追加する

Question

データセットのサンプル数でgeom_barの上部にラベルを付けようとしています 次のリンクは私の解決策に近づきました ...しかし、塗りつぶしを追加するとうまくいきません。私が得るエラーは「eval（expr、envir、enclos）のエラー：オブジェクト '変数'が見つかりません」です。これがなぜなのか、それが何を意味するのかわかりませんか？

これが私のコードです：

#df<-original data frame
#df2<-Averaged Count Data/# of samples within groups

###Create Labels
labels<-table(df$Distance,df$Site)
meds<-c(by(df2$count,df2$Site, max))
+geom_text(data=data.frame(), 
aes(x=names(meds), y=meds,label=paste("n =",labels)),vjust=-2)

###Plot

ggplot(df, aes(x=Distance, y=count, fill=variable))+geom_bar(stat="Identity")+
geom_text(data=data.frame(),
aes(x=names(meds), y=meds, label=paste("n =",labels)),vjust=-2)

本質的にはこの図ですが、色が塗りつぶされています。変数カテゴリの要素を色で表現したい

df
     Station    Site    Distance
           1           1    0
           2           1    20
           3           1    40
           4           1    60
           1           2    0
           2           2    20
           3           2    40
           4           2    60
           5           2    80

 df1
  Station   Site    Distance    Count   variable
     1         1    0          1        a
     2         1    20         1        a
     3         1    40         1        a
     4         1    60         1        a
     1         2    0          1        a
     2         2    20         2        a
     3         2    40         2        a
     4         2    60         2        a
     5         2    80         2        a
     1         1    0          0        b
     2         1    20         0        b
     3         1    40         0        b
     4         1    60         0        b
     1         2    0          0        b
     2         2    20         1        b
     3         2    40         1        b
     4         2    60         1        b
     5         2    80         1        b

ありがとう！