p <- ggplot(uspopage,aes(x=Year,y=Thousands,fill=AgeGroup)) + geom_area(). p. # 或等同于. # p + scale_fill_discrete().
確定! 回上一頁