Добавьте вертикальную линию с различным пересечением для каждой панели в ggplot2 - PullRequest
Новая
       19

Добавьте вертикальную линию с различным пересечением для каждой панели в ggplot2

14 голосов
/ 29 октября 2009

Я использую ggplot2 для создания панелей гистограмм, и я хотел бы иметь возможность добавить вертикальную линию в среднем для каждой группы. Но geom_vline () использует один и тот же перехват для каждой панели (то есть глобальное среднее): 

require("ggplot2")
# setup some sample data
N <- 1000
cat1 <- sample(c("a","b","c"), N, replace=T)
cat2 <- sample(c("x","y","z"), N, replace=T)
val <- rnorm(N) + as.numeric(factor(cat1)) + as.numeric(factor(cat2))
df <- data.frame(cat1, cat2, val)

# draws a single histogram with vline at mean
qplot(val, data=df, geom="histogram", binwidth=0.2) + 
  geom_vline(xintercept=mean(val), color="red")

# draws panel of histograms with vlines at global mean
qplot(val, data=df, geom="histogram", binwidth=0.2, facets=cat1~cat2) + 
  geom_vline(xintercept=mean(val), color="red")

Как я могу заставить его использовать среднее значение группы каждой панели в качестве x-intercept? (Бонусные баллы, если вы также можете добавить текстовую метку в строке со значением среднего.)

Ответы [ 2 ]

15 голосов
/ 29 января 2010

Полагаю, это действительно переработанная версия @ eduardo, но в одну строку. 

ggplot(df) + geom_histogram(mapping=aes(x=val)) 
  + geom_vline(data=aggregate(df[3], df[c(1,2)], mean), 
      mapping=aes(xintercept=val), color="red") 
  + facet_grid(cat1~cat2)

альтернативный текст http://www.imagechicken.com/uploads/1264782634003683000.png

или использование plyr (require(plyr) пакета)автор ggplot, Хэдли): 

ggplot(df) + geom_histogram(mapping=aes(x=val)) 
  + geom_vline(data=ddply(df, cat1~cat2, numcolwise(mean)), 
      mapping=aes(xintercept=val), color="red") 
  + facet_grid(cat1~cat2)

Кажется неудовлетворительным, что vline не вырезан на гранях, я не уверен почему.

9 голосов
/ 29 октября 2009

Один из способов - построить data.frame со средними значениями перед рукой. 

library(reshape)
dfs <- recast(data.frame(cat1, cat2, val), cat1+cat2~variable, fun.aggregate=mean)
qplot(val, data=df, geom="histogram", binwidth=0.2, facets=cat1~cat2) + geom_vline(data=dfs, aes(xintercept=val), colour="red") + geom_text(data=dfs, aes(x=val+1, y=1, label=round(val,1)), size=4, colour="red")
...