AuSSA 2021 CodeBook

knitr::opts_chunk$set(
  warning = TRUE, # show warnings during codebook generation
  message = TRUE, # show messages during codebook generation
  error = TRUE, # do not interrupt codebook generation in case of errors,
                # usually better for debugging
  echo = TRUE  # show R code
)
ggplot2::theme_set(ggplot2::theme_bw())

library(codebook)
# to import an SPSS file from the same folder uncomment and edit the line below

library(haven)
library(sjlabelled)

codebook_data <- read_spss("aussa2021-codebook.sav")

#Recode can't choose to be sequential
for (col in colnames(codebook_data)) {
   if (!is.null(get_labels(codebook_data[[col]],attr.only=TRUE))) {
       labs <- get_labels(codebook_data[[col]],attr.only=TRUE)
       vals <- get_values(codebook_data[[col]])
       locator <- grep('choose',labs,ignore.case=TRUE)
       if (length(locator) != 0) {
           codebook_data[[col]] <- remove_labels(codebook_data[[col]],labels = labs[locator])
           mval <- max(vals[-locator]) + 1
           codebook_data[[col]] <- add_labels(codebook_data[[col]], labels = setNames(mval,labs[locator]))
           codebook_data[[col]][codebook_data[[col]]==vals[locator]] <- mval
       }
   }
}

# for Stata
# codebook_data <- rio::import("mydata.dta")
# for CSV
# codebook_data <- rio::import("mydata.csv")


# omit the following lines, if your missing values are already properly labelled
codebook_data <- detect_missing(codebook_data,
    only_labelled = TRUE, # only labelled values are autodetected as
                                   # missing
    negative_values_are_missing = FALSE, # negative values are missing values
    ninety_nine_problems = TRUE,   # 99/999 are missing values, if they
                                   # are more than 5 MAD from the median
    )

# If you are not using formr, the codebook package needs to guess which items
# form a scale. The following line finds item aggregates with names like this:
# scale = scale_1 + scale_2R + scale_3R
# identifying these aggregates allows the codebook function to
# automatically compute reliabilities.
# However, it will not reverse items automatically.
#codebook_data <- detect_scales(codebook_data)

metadata(codebook_data)$name <- "Australian Survey of Social Attitudes 2021 - Health and Healthcare"
metadata(codebook_data)$description <- "The Australian Survey of Social Attitudes (AuSSA) is Australia's main source of data for the scientific study of the social attitudes, beliefs and opinions of Australians, how they change over time, and how they compare with other societies. The survey is used to help researchers better understand how Australians think and feel about their lives. It produces important information about the changing views and attitudes of Australians as we move through the 21st century. Similar surveys are run in other countries, so data from the AuSSA also allows us to compare Australia with countries all over the world. The aims of the survey are to discover: the range of Australians’ views on topics that are important to all of us; how these views differ for people in different circumstances; how they have changed over the past quarter century; and how they compare with people in other countries. AuSSA is also the Australian component of the International Social Survey Project (ISSP). The ISSP is a cross-national collaboration on surveys covering important topics. Each year, survey researchers in some 40 countries each do a national survey using the same questions. The ISSP focuses on a special topic each year, repeating that topic from time to time. The topic for the 2021 survey is 'Health and Healthcare'. This is the second time this has been the topic of the survey, having previously been the theme for the survey in 2011."
metadata(codebook_data)$identifier <- ""
metadata(codebook_data)$datePublished <- "2022-05-10"
metadata(codebook_data)$creator <- list(
      "@type" = "Person",
      givenName = "Adam", familyName = "Zammit",
      email = "adam.zammit@acspri.org.au", 
      affiliation = list("@type" = "Organization",
        name = "Australian Consortium for Social and Political Research Incorporated (ACSPRI)"))
metadata(codebook_data)$citation <- "ACSPRI (2022). AuSSA 2021 Codebook."
metadata(codebook_data)$url <- "https://www.acspri.org.au/sites/acspri.org.au/files/aussa2021codebook.html"
metadata(codebook_data)$temporalCoverage <- "2021" 
metadata(codebook_data)$spatialCoverage <- "Australia" 

codebook(codebook_data)