textplot_bar | R Documentation |
Barplot of a frequency table using lattice
textplot_bar(x, ...) ## Default S3 method: textplot_bar( x, panel = "Effect", total = sum(x), top = 40, col.panel = "lightgrey", col.line = "lightblue", lwd = 3, cextext = 0.5, addpct = FALSE, cexpct = 0.75, textpos = 3, pctpos = 1, v = NULL, col.abline = "red", ... )
x |
a table to plot or a data.frame with the first column the label and the second column the frequency |
... |
other arguments passed on to |
panel |
character string what to put into the panel |
total |
integer with the total. Defaults to sum(x). Is used to plot the table counts as a percentage. In which case this is divided by the total. |
top |
integer indicating to plot only the first 'top' table elements. Defaults to 40. |
col.panel |
color of the panel. Defaults to lightgrey. |
col.line |
color of the line. Passed on to the col argument in |
lwd |
width of the line. Passed on to the lwd argument in |
cextext |
numeric with the cex of the text with the counts plotted. Passed on to |
addpct |
logical indicating to add the percent with |
cexpct |
numeric with the cex of the text plotted when using addpct. Passed on to |
textpos |
passed on to the pos argument of panel.text to indicate where to put the text of the frequencies |
pctpos |
passed on to the pos argument of panel.text to indicate where to put the text of the percentages |
v |
passed on to |
col.abline |
passed on to |
the result of a call to lattice::dotplot
data(brussels_listings, package = 'udpipe') x <- table(brussels_listings$neighbourhood) x <- sort(x) textplot_bar(x, panel = "Locations", col.panel = "darkgrey", xlab = "Listings", cextext = 0.75, addpct = TRUE, cexpct = 0.5) x <- sample(LETTERS, 1000, replace = TRUE) textplot_bar(sort(table(x)), panel = "Frequencies", xlab = "Frequency", cextext = 0.75, main = "Freq stats") textplot_bar(sort(table(x)), panel = "Frequencies", addpct = TRUE, top = 15) ## x can also be a data.frame where the first column ## is the label and the second column the frequency x <- data.frame(l = LETTERS, amount = rnorm(26)) textplot_bar(x) textplot_bar(x, v = 0)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.