# NOT RUN {
plotCount(table(infert$education))
df <- data.frame("vehicle" = c("bicycle", "car", "unicycle", "Boeing747"),
"NumWheels" = c(2, 4, 1, 16))
plotCount(df) + removeGridX()
# }
Run the code above in your browser using DataCamp Workspace