为什么`geom_area（）`没有显示图形但是`geom_bar（）`的作用相同？

Question

我有一个如下所示的数据集：

CounyByJobLength <- structure(list(JobAgeBins = c("< 1", ">10", "1-3", "3-5", "5-7", 
                              "7-10"), CountByJobTime = c(157L, 45L, 491L, 517L, 50L, 238L)), class = c("tbl_df", 
                                                                                                        "tbl", "data.frame"), row.names = c(NA, -6L))

我已应用以下函数获取上述观察的条形图

JobLengthPlot <- ggplot(CounyByJobLength,aes(x = JobAgeBins,y=CountByJobTime,fill=JobAgeBins))
JobLengthPlot <- JobLengthPlot + geom_bar(stat="identity")
JobLengthPlot <- JobLengthPlot + theme_bw()
plot(JobLengthPlot)

这显示了一个正确的条形图：

但如果我运行geom_area()语句，则不会填充图表。可能的原因是什么？

JobLengthPlot <- ggplot(CounyByJobLength,aes(x = JobAgeBins,y=CountByJobTime,fill=JobAgeBins))
JobLengthPlot <- JobLengthPlot + geom_area(stat="identity")
JobLengthPlot <- JobLengthPlot + theme_bw()
plot(JobLengthPlot)