Easy graphics for univariate and bivariate plots

# Load packages 
if(!require(pacman)) install.packages("pacman")
pacman::p_load(outbreaks, inspectdf)

smallpox <- outbreaks::smallpox_abakaliki_1967

Just the code:

# Univariate discrete
pie(table(smallpox$gender))
barplot(table(smallpox$gender))

# Univariate continuous
hist(smallpox$age)

# Bivariate continuous vs continuous
plot(smallpox$date_of_onset, smallpox$age)

# Bivariate discrete vs continuous
plot(smallpox$gender, smallpox$age)

# Bivariate discrete vs discrete
plot(smallpox$gender, smallpox$vaccinated)

Univariate discrete

pie(table(smallpox$gender))

barplot(table(smallpox$gender))

Univariate continuous

hist(smallpox$age)

Bivariate continuous vs continuous

plot(smallpox$date_of_onset, smallpox$age)

Bivariate discrete vs continuous

plot(smallpox$gender, smallpox$age)

Bivariate discrete vs discrete

plot(smallpox$gender, smallpox$vaccinated)

Inpsect_cat and Inspect_num

show_plot(inspect_cat(smallpox))

show_plot(inspect_num(smallpox))