textplot (version 0.2.2)

textplot_bar: Barplot of a frequency table using lattice

Description

Barplot of a frequency table using lattice

Usage

textplot_bar(x, ...)
# S3 method for default
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",
  ...
)

Value

the result of a call to lattice::dotplot

Arguments

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 lattice::dotplot

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 lattice::panel.lines

lwd

width of the line. Passed on to the lwd argument in lattice::panel.lines

cextext

numeric with the cex of the text with the counts plotted. Passed on to lattice::panel.text.

addpct

logical indicating to add the percent with lattice::panel.text

cexpct

numeric with the cex of the text plotted when using addpct. Passed on to lattice::panel.text.

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 lattice::panel.abline to draw a vertical line

col.abline

passed on to lattice::panel.abline to draw a vertical line

Examples

if(require(udpipe))
{

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)
# \dontshow{
}
# End of main if statement running only if the required packages are installed
# }

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)