Geek Answers Handbook

Constructing a cumulative histogram from the negative and positive sides in ggplot?

R version 3.1.1 (2014-07-10) Platform: i386-w64-mingw32/i386 (32-bit)

I am working on a histogram with ggplot2 . The goal is to have a cumulative histogram for the negative and positive sides combined in one area. I can easily build histograms separately for the negative and positive sides, but as soon as I combine them, it becomes a mess.

Sample data:

 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")

The code for the positive side works:

 ggplot(df)+ geom_histogram(aes(x= POS, y=rev(cumsum(rev(..count..)))/4),binwidth=1)

The code for the negative side also works:

 ggplot(df)+ geom_histogram(aes(x= NEG, y=cumsum(..count..)/4),binwidth=1)

But combining these two layers creates a mess:

 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)

I hope you help me!

Thank you so much!

+7
r plot ggplot2 histogram
source share
1 answer

The problem is that for both layers, the total is calculated along the entire x axis.

 ggplot(df)+ geom_histogram(aes(x= POS, y=ifelse(x>=0, rev(cumsum(rev(..count..)))/4, 0)), binwidth = 1)+ geom_histogram(aes(x= NEG, y=ifelse(x<=0, cumsum(..count..)/4, 0)), binwidth = 1)

resulting plot

+7
source share

More articles:


All Articles