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, aes(x = unrelat)) + geom_histogram(color=" yellow", fill="yellow ", binwidth =1, aes(y=(..count../sum(..count..))*100)) + 
ggtitle("title ") + 
labs(y=" label", x="label ") 

ggplot(data = GSS, aes(x = unrelat)) + geom_histogram(color=" yellow", fill="yellow ", binwidth =1, aes(y=(..count../sum(..count..))*100)) + 
scale_x_continuous(breaks = seq(0, 7, 1), limits = c(0, 8)) +
ggtitle("title ") + 
labs(y=" label", x="label ") 
```