Земельный участок на графике R

Question

Я хотел бы добавить среднее значение valuus к окнам на участке разброса, который у меня есть. Я создал график рассеяния с ggplot2

p <- ggplot(mtcars, aes(wt, mpg)) 
p + geom_point() 

Это даст точечный график, но я woudl хотел бы добавить добавить среднее окно (скажем, размер равен 1) и сюжет этой точки среднего значения в виде линии. Кроме того, я хотел бы иметь вертикальные полосы в каждой точке, чтобы указать дисперсию.

Mtcars является набор данных стандарт доступен в ggplot 2

Answer 1

Это использует новую библиотеку dplyr.

library(dplyr) 
forLines <- mtcars %.% 
      group_by(cut(wt, breaks = 6)) %.% 
      summarise(mean_mpg = mean(mpg), mean_wt = mean(wt)) 
p + 
    geom_point(size=5) + 
    geom_boxplot(aes(group = cut(wt, breaks = 6))) + 
    geom_line(data=forLines,aes(x=mean_wt,y=mean_mpg)) 

Answer 2

Является ли это то, что вы хотите?

p <- ggplot(mtcars, aes(wt, mpg)) 
p + geom_point() + geom_smooth(aes(wt, mpg, group=1), method = "lm") 

Answer 3

Может быть, это то, что вы ищете:

library(ggplot2) 

s <- seq(0, ceiling(max(mtcars$wt)), 1) 
ind <- as.integer(cut(mtcars$wt, s)) 

myfun <- function(i) 
    c(y = mean(i), ymin = mean(i) - var(i), ymax = mean(i) + var(i)) 

ggplot(mtcars, aes(wt, mpg)) + 
    geom_point() + 
    stat_summary(fun.data = myfun, aes(group = ind, x = ind - .5), 
       colour = "red") + 
    stat_summary(fun.y = mean, aes(x = ind - .5), geom = "line", 
       colour = "red")