后来,我使用了另一个相关的数据集 mtcars 看看会发生什么 geom_abline() p <- ggplot(mtcars, aes(wt, mpg)) + geom_point() p + geom_abline() + facet_wrap(~cyl).
確定! 回上一頁