library(dslabs)
data("heights")
str(heights)

'data.frame':   1050 obs. of  2 variables:
 $ sex   : Factor w/ 2 levels "Female","Male": 2 2 2 2 2 1 1 1 1 2 ...
 $ height: num  75 70 68 74 61 65 66 62 66 67 ...

head(heights)

     sex height
1   Male     75
2   Male     70
3   Male     68
4   Male     74
5   Male     61
6 Female     65

library(dslabs)
library(ggplot2)
data("heights")
library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

table(heights$sex)

Female   Male 
   238    812 

heights %>% ggplot(aes(sex, fill=sex)) + geom_bar()

library(ggplot2)

data(murders)

murders %>% ggplot(aes(region, fill=region)) + geom_bar() + scale_fill_manual(values=c("red", "white", "lightgray", "darkgray"))

heights %>% ggplot(aes(sex,height,fill=sex)) + geom_boxplot() + scale_fill_manual(values=c("purple","green"))