library(plotly) x <- 1:10 y <- jitter(x^2) DF <- data.frame(x, y) p <- ggplot(DF, aes(x = x, y = y)) + geom_point() + stat_smooth(method = 'lm', ...
確定! 回上一頁