histograms hompop unrelat

```{r}
#YOU WILL ALWAYS NEED THIS FIRST CHUNK. WE WILL ADD TO IT DURING THE SEMESTER.
#THIS CHUNK LOADS THE LIBRARIES AND DATA THAT YOU NEED FOR YOUR WORK.
library(aws.s3)
library('lehmansociology')
library('ggplot2')
library('dplyr')

s3load('gss.Rda', bucket = 'lehmansociologydata')
```

```{r}
summary(GSS$unrelat)

ggplot(data = GSS) + 
           geom_histogram(color=" yellow", fill="yellow ", binwidth = 1, 
                       aes(x = unrelat, y = ..ncount..), na.rm = TRUE) + 
           scale_x_continuous(breaks = seq(0, 7, 1), limits = c(-1, 8)) +
    ggtitle("title ") + 
    labs(y=" label", x="label ") 

ggplot(data = GSS) + 
    geom_histogram(color=" yellow",   fill="yellow ", binwidth =1,
                                      aes( x = unrelat, y = ..ncount..), na.rm = TRUE)   + 
    scale_x_continuous(breaks = seq(0, 7, 1), limits = c(-1, 8)) +
    ggtitle("title ") + 
    labs(y=" label", x="label ")  
```