r - ggplotのレイヤーを使用して特定のグラフのアルファを変更し、凡例を同じに保ちますか?

Question

次のデータ フレームを使用します。

sdf<-data.frame(hours=gl(n=3,k=1,length=9,labels=c(0,2,4)),    
                count=c(4500,1500,2600,4000,800,200,1500,50,20),
                machine=gl(n=3,k=3,length=9,labels=c("A","B","C")))

次のグラフは、これらのスクリプトのいずれかを使用して作成できます。

ggplot(data=sdf,aes(x=hours,y=count,group=machine,fill=machine))+
  geom_area(data=sdf[sdf$machine=="A",])+
  geom_area(data=sdf[sdf$machine=="B",])+
  geom_area(data=sdf[sdf$machine=="C",])

ggplot(data=sdf,aes(x=hours,y=count,group=machine,fill=machine))+
  geom_area(position="dodge")

色は簡単に変更できますが、アルファ値を変更すると凡例も変更されます。

ggplot(data=sdf,aes(x=hours,y=count,group=machine,fill=machine,alpha=machine))+
  geom_area(position="dodge")+
  scale_fill_manual(values=c("chocolate1","goldenrod","pink"))+
  scale_alpha_manual(values=c(0.01, 0.2, .1),guide=F)

理想的には、凡例が同じアルファ値にフェードしないことです。これは個々のグラフにとって奇妙に聞こえるかもしれませんが、結果は .gif ファイルの一部になります。

質問: 個々のグラフのアルファ値を変更しながら、凡例の色の固さを維持できるスクリプトはどれですか?