require("ggplot2")
require("dplyr")
data("average_salary")
ggplot(average_salary, aes(x = salary)) +
geom_dotplot(binwith = 1)
mean(average_salary$salary)
median(average_salary$salary)
# mode
count(average_salary, salary) %>%
filter(n == max(n))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.