我有以下用例来绘制线条以及线条下方的区域，最好不要重叠，这样我就可以看到两种颜色，例如

library(ggplo2)

dfc <- data.frame(n=c(10,20,30,10,30),Type=c('A','A','B','B'),val=c(10,14,11))
ggplot(dfc,aes(n,val,color=Type,fill=Type)) + 
  geom_point(size=2) + geom_line(size=1) + geom_area(alpha=0.2,position=position_stack()) + 
  geom_line(aes()) + 
  expand_limits(x=10,y=0)

然而，它在近线性线上方创建了一个奇怪的红色区域，我不明白并且无法摆脱。