Load Some Helpful Packages

library(tidyverse)
library(psych)
library(haven)

Load in the Data for the Assignment

gss <- read_dta("descriptive_gss.dta")
View(gss)

Using describe to explore satjob7

describe(gss$satjob7)

Using table to explore satjob7

table(gss$satjob7)

  1   2   3   4   5   6   7 
127 289 264  53  47  29  11

Creating a plot for satjob7 using ggplot2

ggplot(data = gss, mapping = aes(x = satjob7)) + geom_bar() +
  labs(title = "Distribution of Job Satisfaction",
       x = "Self-Reported Job Satisfaction (1 = Completely Satisfied, 7 = Not at all Satisfied)",
       caption = "Data from the General Social Survey (2012). N = 2,765.")

LS0tCnRpdGxlOiAiTXVsdGl2YXJpYXRlIFN0YXRpc3RpY3MgTW9kdWxlIDEgQ29udGVudCBSZXZpZXcgLSBLRVkiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCiMgTG9hZCBTb21lIEhlbHBmdWwgUGFja2FnZXMKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHBzeWNoKQpsaWJyYXJ5KGhhdmVuKQpgYGAKCiMgTG9hZCBpbiB0aGUgRGF0YSBmb3IgdGhlIEFzc2lnbm1lbnQKYGBge3J9CmdzcyA8LSByZWFkX2R0YSgiZGVzY3JpcHRpdmVfZ3NzLmR0YSIpClZpZXcoZ3NzKQpgYGAKCiMgVXNpbmcgYGRlc2NyaWJlYCB0byBleHBsb3JlIGBzYXRqb2I3YApgYGB7cn0KZGVzY3JpYmUoZ3NzJHNhdGpvYjcpCmBgYAoKIyBVc2luZyBgdGFibGVgIHRvIGV4cGxvcmUgYHNhdGpvYjdgCmBgYHtyfQp0YWJsZShnc3Mkc2F0am9iNykKYGBgCgojIENyZWF0aW5nIGEgcGxvdCBmb3IgYHNhdGpvYjdgIHVzaW5nIGBnZ3Bsb3QyYApgYGB7cn0KZ2dwbG90KGRhdGEgPSBnc3MsIG1hcHBpbmcgPSBhZXMoeCA9IHNhdGpvYjcpKSArIGdlb21fYmFyKCkgKwogIGxhYnModGl0bGUgPSAiRGlzdHJpYnV0aW9uIG9mIEpvYiBTYXRpc2ZhY3Rpb24iLAogICAgICAgeCA9ICJTZWxmLVJlcG9ydGVkIEpvYiBTYXRpc2ZhY3Rpb24gKDEgPSBDb21wbGV0ZWx5IFNhdGlzZmllZCwgNyA9IE5vdCBhdCBhbGwgU2F0aXNmaWVkKSIsCiAgICAgICBjYXB0aW9uID0gIkRhdGEgZnJvbSB0aGUgR2VuZXJhbCBTb2NpYWwgU3VydmV5ICgyMDEyKS4gTiA9IDIsNzY1LiIpCmBgYAoKCgoK