Skip to content

Instantly share code, notes, and snippets.

@naomispence
Created October 18, 2017 17:03
Show Gist options
  • Save naomispence/e59db46fe0b1b3d9bde6c384e8e6f3e5 to your computer and use it in GitHub Desktop.
Save naomispence/e59db46fe0b1b3d9bde6c384e8e6f3e5 to your computer and use it in GitHub Desktop.
```{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 ")
```
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment