This is way better, now, how could I put the frequency labels in the columns as a percentage, instead of presenting them as counts?
Thank you so much. Paul El lun, 16 ago 2021 a las 17:33, Rui Barradas (<ruipbarra...@sapo.pt>) escribió: > 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 (<ruipbarra...@sapo.pt > > <mailto:ruipbarra...@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@r-project.org <mailto:R-help@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. > > > > > > [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.