R version 3.1.1 (2014-07-10) Platform: i386-w64-mingw32/i386 (32-bit)
Wykreślanie histogramu skumulowanego ze stroną ujemną i dodatnią w ggplot?
Pracuję nad histogramem z ggplot2
. Celem jest uzyskanie kumulacyjnego histogramu dla strony negatywnej i pozytywnej połączonej w jeden wykres. Z łatwością mogę narysować histogramy osobno dla strony negatywnej i pozytywnej, ale gdy tylko je połączę, staje się to bałaganem.
przykładowe dane:
df <- structure(list(NEG = c(-42.962, -1.86, -13.275, -56.188, -2.25,
-12.199, -3.953, -13.309, -4.512, -11.461, -19.813, -54.311,
-59.934, -7.045, -14.44, -40.829, -143.034, -233.009, -70.72,
-5.578), POS = c(180.328, 290.809, 156.894, 31.414, 629.74, 590.672,
268.89, 69.618, 415.007, 138.444, 10.139, 20.565, 106.027, 69.129,
19.809, 8.22, 53.711, 36.035, 11.694, 12.705)), .Names = c("NEG",
"POS"), row.names = c(NA, 20L), class = "data.frame")
Kod pozytywne strony działa:
ggplot(df)+
geom_histogram(aes(x= POS, y=rev(cumsum(rev(..count..)))/4),binwidth=1)
Kod ujemnej stronie działa zbyt:
ggplot(df)+
geom_histogram(aes(x= NEG, y=cumsum(..count..)/4),binwidth=1)
Jednak połączenie tych dwóch warstw wytwarza bałagan:
ggplot(df)+
geom_histogram(aes(x= POS, y=rev(cumsum(rev(..count..)))/4),binwidth=1)+
geom_histogram(aes(x= NEG, y=cumsum(..count..)/4),binwidth=1)
Mam nadzieję, że możesz mi pomóc!
Wielkie dzięki!
Ładne, jasne pytanie o powtarzalnej przykład i kod wypróbowaniu ~~> (+1). Twoje zdrowie. – Henrik