Homework 9 - Vocabulary

library(ggplot2)
library(ggthemes)
library(babynames)
library(Zelig)
library(ggrepel)
library(HistData)
library(tidyverse)
library(car)
data("Vocab")
options(dplyr.show_progress = FALSE)

Explaining Data

My data is looking into how number of vocabulary words correct in a 10-word test is effected based on number of years of education completed as well as sex. I wanted to use ggplots to see whether or not number of years in education completed had a direct effect on number of vocabulary words correct. The answers come from over 21,000 respondents.

Indepdent Variables

Education and Sex. Education is the number of years in school completed. 12 years completed is equivilent to a high school education. 12 years to 16 years is a college degree. Above that is masters levels education and on. Sex is Male or Female.

Dependent Variables

Vocabulary words correct. Vocabulary words correct means the correct number of vocabulary words in a ten question test.

head(Vocab)

Does Education Effect Number of Words Correct?

g <- ggplot(Vocab, mapping = aes(x = education, y = vocabulary))

g3 <- g + geom_density2d()
g3

g4 <- g + geom_smooth()
g4

g5 <- g1 + geom_smooth()
g5

g6 <- g + geom_point() + stat_smooth(method = "lm")
g6

g8 <- g + geom_point() + stat_quantile()
g8

g9 <- g + geom_point() + stat_summary(fun.data = "mean_cl_boot", colour = "red")
g9

g10 <- g + geom_point() + stat_summary(fun.y = "median", colour = "red", geom = "line")
g10

Do Males or Females get more words correct?

ggplot(Vocab,
  aes(x = factor("Male", "Female"), fill = sex) ) +
  geom_bar() +
  coord_polar(theta = "y") +
  scale_x_discrete("")

ggplot(Vocab, aes(vocabulary, fill = sex ) ) +
  geom_bar()

ggplot(Vocab, aes(vocabulary) ) +
  geom_bar() + facet_grid(sex ~ .)

ggplot(Vocab,
  aes(vocabulary, ..count.. ) ) +
  geom_point(stat = "count", size = 4) + 
  coord_flip()+
  facet_grid( sex ~ . )

Conclusion

From my short analysis and visualizations - we can clearly see that as number of years in education completed increases, so does the number of vocabulary words correct in a 10 word test. We can also see from the visuals above that Females do get more vocabulary words correct then their male counterparts.