Tabplot

Plot data using tabplots

library(tabplot)
library(tidyverse)

df=read.table("https://archive.ics.uci.edu/ml/machine-learning-databases/cmc/cmc.data",sep=",") %>% as_tibble()

names(df)=c("WifeAge","WifeEdu","HusbandEdu","NumbChild","Religion","Working","HusbandOcc","SLI","Media","CMC")

df$WifeAge=as.numeric(df$WifeAge)
df$WifeEdu=df$WifeEdu%>%as.numeric()
df$NumbChild = as.numeric(df$NumbChild)
df$SLI <- as.numeric(df$SLI)
df$HusbandEdu=df$HusbandEdu%>%as.numeric()
df$Religion=df$Religion%>%recode_factor(.,`1` = "Islam", `0` = "NonIslam")
df$Working=df$Working%>%recode_factor(.,`0` = "No", `1` = "Yes")
df$HusbandOcc=df$HusbandOcc%>%as.factor()
df$Media=df$Media%>%recode_factor(.,`0` = "Good", `1` = "Low")
df$CMC <- df$CMC -1

Sorted column = NumChild. NumChild vs all

tableplot(df, sortCol = NumbChild,nBins = 100)