[R] Including percentage values inside columns of a histogram

[Rui Barradas]

Hello,

You forgot to cc the list.

Here are two ways, both of them apply hist() and text() to Amount split 
by Date. The return value of hist is saved because it's a list with 
members the histogram's bars midpoints and the counts. Those are used to 
know where to put the text labels.
A vector lbls is created to get rid of counts of zero.

The main difference between the two ways is the histogram's titles.


old_par <- par(mfrow = c(1, 3))
h_list <- with(datasetregs, tapply(Amount, Date, function(x){
   h <- hist(x)
   lbls <- ifelse(h$counts == 0, NA_integer_, h$counts)
   text(h$mids, h$counts/2, labels = lbls)
}))
par(old_par)



old_par <- par(mfrow = c(1, 3))
sp <- split(datasetregs, datasetregs$Date)
h_list <- lapply(seq_along(sp), function(i){
   hist_title <- paste("Histogram of", names(sp)[i])
   h <- hist(sp[[i]]$Amount, main = hist_title)
   lbls <- ifelse(h$counts == 0, NA_integer_, h$counts)
   text(h$mids, h$counts/2, labels = lbls)
})
par(old_par)


Hope this helps,

Rui Barradas

Às 23:16 de 16/08/21, Paul Bernal escreveu:
> Dear Rui,
> 
> The hist() function comes from the graphics package, from what I could 
> see. The thing is that I want to divide the Amount column into several 
> bins and then generate three different histograms, one for each AF 
> period (AF refers to fiscal years). As you can see, the data contains 
> three fiscal years (2017, 2020 and 2021). I want to see the percentage 
> of cases that fall into different amount categories, from 15,000 and 
> below, 16,000 to 17,000, from 18,000 to 19,000, and so on.
> 
> Thanks for your kind help.
> 
> Paul
> 
> El lun, 16 ago 2021 a las 17:07, Rui Barradas (<ruipbarradas using sapo.pt 
> <mailto:ruipbarradas using sapo.pt>>) escribió:
> 
>     Hello,
> 
>     The function Hist comes from what package?
> 
>     Are you sure you don't want a bar plot?
> 
> 
>     agg <- aggregate(Amount ~ Date, datasetregs, sum)
>     bp <- barplot(Amount ~ Date, agg)
>     with(agg, text(bp, Amount/2, labels = Amount))
> 
> 
>     Hope this helps,
> 
>     Rui Barradas
> 
>     Às 22:54 de 16/08/21, Paul Bernal escreveu:
>      > Hello everyone,
>      >
>      > I am currently working with R version 4.1.0 and I am trying to
>     include
>      > (inside the columns of the histogram), the percentage
>     distribution and I
>      > want to generate three histograms, one for each fiscal year (in
>     the Date
>      > column, there are three fiscal year AF 2017, AF 2020 and AF
>     2021). However,
>      > I can´t seem to accomplish this.
>      >
>      > Here is my data:
>      >
>      > structure(list(Date = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L,
>      > 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
>      > 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
>      > 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
>      > 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
>      > 3L, 3L, 3L), .Label = c("AF 2017", "AF 2020", "AF 2021"), class =
>      > "factor"),
>      >      Amount = c(40100, 101100, 35000, 40100, 15000, 45100, 40200,
>      >      15000, 35000, 35100, 20300, 40100, 15000, 67100, 17100, 15000,
>      >      15000, 50100, 35100, 15000, 15000, 15000, 15000, 15000, 15000,
>      >      15000, 15000, 15000, 15000, 15000, 15000, 15000, 15000, 15000,
>      >      15000, 15000, 20100, 15000, 15000, 15000, 15000, 15000, 15000,
>      >      16600, 15000, 15000, 15700, 15000, 15000, 15000, 15000, 15000,
>      >      15000, 15000, 15000, 15000, 20200, 21400, 25100, 15000, 15000,
>      >      15000, 15000, 15000, 15000, 25600, 15000, 15000, 15000, 15000,
>      >      15000, 15000, 15000, 15000)), row.names = c(NA, -74L), class =
>      > "data.frame")
>      >
>      > I would like to modify the following script:
>      >
>      >> with(datasetregs, Hist(Amount, groups=Date, scale="frequency",
>      > +   breaks="Sturges", col="darkgray"))
>      >
>      > #The only thing missing here are the percentages corresponding to
>     each bin
>      > (I would like to see the percentages inside each column, or on
>     top outside
>      > if possible)
>      >
>      > Any help will be greatly appreciated.
>      >
>      > Best regards,
>      >
>      > Paul.
>      >
>      >       [[alternative HTML version deleted]]
>      >
>      > ______________________________________________
>      > R-help using r-project.org <mailto:R-help using r-project.org> mailing list
>     -- To UNSUBSCRIBE and more, see
>      > https://stat.ethz.ch/mailman/listinfo/r-help
>     <https://stat.ethz.ch/mailman/listinfo/r-help>
>      > PLEASE do read the posting guide
>     http://www.R-project.org/posting-guide.html
>     <http://www.R-project.org/posting-guide.html>
>      > and provide commented, minimal, self-contained, reproducible code.
>      >
>