if (requireNamespace("ggplot2", quietly = TRUE)) {
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