Normalizowanie histogramów fasetowanych osobno w ggplot2

Question

Moje pytania są podobne do Normalizing y-axis in histograms in R ggplot to proportion , ale chciałbym dodać trochę.

Generalnie mam 6 histogramów w szablonie 2 x 3 i chciałbym normalizować każdy z nich osobno. Postaram się zrobić przykładowe dane określone tutaj, aby dać wyobrażenie:

hvalues=c(3,1,3,2,2,5,1,1,12,1,4,3) 
season=c("fall","fall","fall","fall","winter","winter","winter","winter","summer","summer","summer","summer") 
year=c("year 1","year 1","year 2","year 2","year 1","year 1","year 2","year 2","year 1","year 1","year 2","year 2") 
group=c("fall year 1","fall year 1","fall year 2","fall year 2","winter year 1","winter year 1","winter year 2","winter year 2","summer year 1","summer year 1","summer year 2","summer year 2") 
all=data.frame(hvalues,season,year) 

Korzystanie

ggplot(all, aes(x=hvalues,group=group)) + 
geom_histogram(aes(y=..count../sum(..count..))) + 
facet_grid(season ~ year) 

daje proporcje wierzchnie (tj łącząc wszystkie aspekty). Chciałbym, aby każdy aspekt grupy był znormalizowany do 1. h wartości nie są liczbami całkowitymi w moich rzeczywistych danych - są liczbowe.

Jestem nowicjuszem używającym R i naprawdę doceniłbym jakąś pomoc. Z góry dziękuję!

Answer 1

Rozwiązaniem jest:

ggplot(all, aes(x=hvalues)) + 
    facet_grid(season ~ year,drop=T) + 
    geom_histogram(aes(y=(..count..)/tapply(..count..,..PANEL..,sum)[..PANEL..])) 

Ukradłem to z tego question

czuję Twoje pytanie może być duplikat tej jednej drodze.