tabpct: Two-way tabulation with mosaic plot

View source: R/epiDisplay.R

tabpctR Documentation

Two-way tabulation with mosaic plot

Description

Two-way tabulation with automatic mosaic plot

Usage

tabpct(row, column, decimal = 1, percent = "both", 
    graph = TRUE, las = 0, main = "auto", xlab = "auto", 
    ylab = "auto", col = "auto", ...) 
  

Arguments

row, column

variables

decimal

number of decimals for the percentage in the table

percent

orientation of the percentage in the table

graph

automatic graphing

las

orientation of group labelling

main

main title

xlab

X axis label

ylab

Y axis label

col

colours of the bars

...

additional arguments for 'table'

0: always parallel to axis

1: always horizontal,

2: always perpendicular to the axis,

3: always vertical.

Details

'tabpct' gives column and row percent cross-tabulation as well as mosaic plot.

The width of the bar in the plot denotes the relative proportion of the row variable.

Inside each bar, the relative proportion denotes the distribution of column variables within each row variable.

The default value for the 'percent' orientation is "both". It can also be "col" or "row".

Due to limitation of 'mosaicplot', certain graphic parameters such as 'cex.main', 'cex.lab' are not acceptable. The parameter 'main', 'xlab' and 'ylab' can be suppressed by making equal to " ". An additional line starting with 'title' can be used to write new main and label titles with 'cex.main' and 'cex.lab' specified.

Value

Tables of row and column percentage

Author(s)

Virasakdi Chongsuvivatwong cvirasak@gmail.com

See Also

'tab1', 'table', 'mosaicplot'

Examples

data(Oswego)
.data <- Oswego
attach(.data)
agegr <- cut(age, breaks=c(0,20,40,60,80))
tabpct(agegr, ill)
tabpct(agegr, ill, cex.axis=1) # enlarge value labels
# To increase the size of the various titles:
tabpct(agegr, ill, cex.axis=1, main="", xlab="", ylab="", col=c("blue","purple"))
title(main="Diseased by Age group", cex.main=1.8,
    xlab="Age (years)",ylab="Diseased", cex.lab=1.5)
detach(.data)
rm(list=ls())    

epiDisplay documentation built on May 18, 2022, 5:11 p.m.