Eu estava experimentando usar geom_abline() como abaixo: p <- ggplot(mpg, aes(cty, hwy)) + geom_point() p + geom_abline() + facet_wrap(~cyl).
確定! 回上一頁