formatData: Formatting functions to make weighting variables comparable...

In jon-mellon/weightBES: Raking weights for BES Internet panel

Usage

formatData(bes, region, waves = 1:6)

Arguments

bes
region
waves

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (bes, region, waves = 1:6) 
{
    wave <- max(wave)
    targets <- targets[targets$table != "partyMemberBinary", 
        ]
    colnames(bes)[colnames(bes) == "comb_pv_scot_w8w3"] <- "comb_pv_w8w3"
    colnames(bes)[colnames(bes) == "comb_pv_scot_w8w2"] <- "comb_pv_w8w2"
    colnames(bes)[colnames(bes) == "comb_pv_scot_w8w1"] <- "comb_pv_w8w1"
    bes$AgeGender <- as_factor(bes[, paste0("bpcas2w", wave)])
    bes$SocialGrade <- as_factor(bes[, paste0("socgrade4_w8w", 
        wave)])
    bes$Newspaper <- as_factor(bes[, paste0("bpcnews2010_w8w", 
        wave)])
    levels(bes$Newspaper) <- tolower(gsub(" ", "", levels(bes$Newspaper)))
    levels(bes$Newspaper) <- gsub("teleg", "tele", levels(bes$Newspaper), 
        ignore.case = TRUE)
    levels(bes$Newspaper) <- gsub("indy", "indie", levels(bes$Newspaper), 
        ignore.case = TRUE)
    bes$Partyid2010London <- as_factor(bes[, paste0("partyid2010_london_w8w", 
        wave)])
    bes$Ethnicity <- as_factor(bes[, paste0("ethnicity2_w8w", 
        wave)])
    bes[, paste0("Wales_pcon_w8w", wave)][bes[, paste0("Wales_pcon_w8w", 
        wave)] == 0] <- NA
    bes$Region <- as_factor(bes[, paste0("newgor_eng_w8w", wave)])
    bes$WelshRegion <- as_factor(bes[, paste0("Wales_pcon_w8w", 
        wave)])
    names(attributes(bes[, paste0("comb_pv_w8w", wave)])$labels) <- c("Con", 
        "Lab", "LD", "SNP", "SNP (Holyrood) & Lab (wmster)", 
        "Oth", "DNV")
    bes$HolyroodPastVote <- as_factor(bes[, paste0("comb_pv_w8w", 
        wave)])
    if (region == "England") {
        names(attributes(bes[, paste0("partyid2010_Eng_w8w", 
            wave)])$labels) <- c("Labour", "Con", "Lib Dem", 
            "Oth", "None / DK")
        bes$Partyid2010 <- as_factor(bes[, paste0("partyid2010_Eng_w8w", 
            wave)])
        bes <- bes[!bes$gor %in% c(7, 11, 10) & !is.na(bes$gor) & 
            is.na(bes[, paste0("Wales_pcon_w8w", wave)]) & is.na(bes[, 
            paste0("comb_pv_w8w", wave)]), ]
    }
    if (region != "England") {
        names(attributes(bes[, paste0("partyid2010_Wales_w8w", 
            wave)])$labels) <- c("Labour", "Con", "Lib Dem", 
            "SNP/PC", "Oth", "None / DK")
        bes$Partyid2010 <- as_factor(bes[, paste0("partyid2010_Wales_w8w", 
            wave)])
    }
    if (region == "Wales") {
        bes <- bes[!is.na(bes[, paste0("Wales_pcon_w8w", wave)]) & 
            is.na(bes[, paste0("comb_pv_w8w", wave)]), ]
    }
    if (region == "London") {
        bes <- bes[bes$gor == 7 & is.na(bes[, paste0("Wales_pcon_w8w", 
            wave)]) & is.na(bes[, paste0("comb_pv_w8w", wave)]), 
            ]
    }
    if (region == "Scotland") {
        bes <- bes[!is.na(bes[, paste0("comb_pv_w8w", wave)]) & 
            is.na(bes[, paste0("Wales_pcon_w8w", wave)]), ]
    }
    print(unique(targets$table)[!unique(targets$table) %in% colnames(bes)])
    if (any(waves == 1)) {
        bes <- bes[bes$wave1 == 1, ]
    }
    if (any(waves == 2)) {
        bes <- bes[bes$wave2 == 1, ]
    }
    if (any(waves == 3)) {
        bes <- bes[bes$wave3 == 1, ]
    }
    if (any(waves == 4)) {
        bes <- bes[bes$wave4 == 1, ]
    }
    if (any(waves == 5)) {
        bes <- bes[bes$wave5 == 1, ]
    }
    if (any(waves == 6)) {
        bes <- bes[bes$wave6 == 1, ]
    }
    bes <- bes[, c("id", unique(targets$table))]
    bes$region.weighted <- region
    return(bes)
  }

jon-mellon/weightBES documentation built on May 19, 2019, 7:26 p.m.