R/data-houserace10.R

In usdata: Data on the States and Counties of the United States

#' Election results for the 2010 U.S. House of Represenatives races
#'
#' Election results for the 2010 U.S. House of Represenatives races
#'
#' This analysis in the Examples section was inspired by and is similar to that
#' of Nate Silver's district-level analysis on the FiveThirtyEight blog in the
#' New York Times: \url{https://fivethirtyeight.com/features/2010-an-aligning-election/}
#'
#' @name houserace10
#' @docType data
#' @format A data frame with 435 observations on the following 24 variables.
#' \describe{
#'   \item{id}{Unique identifier for the race, which does not
#' overlap with other 2010 races (see \code{\link{govrace10}} and
#' \code{\link{senaterace10}})}
#'   \item{state}{State name}
#'   \item{abbr}{State name abbreviation}
#'   \item{num}{District number for the state}
#'   \item{name1}{Name of the winning candidate}
#'   \item{perc1}{Percentage of vote for winning candidate (if more than
#' one candidate)}
#'   \item{party1}{Party of winning candidate}
#'   \item{votes1}{Number of votes for winning candidate}
#'   \item{name2}{Name of candidate with second most votes}
#'   \item{perc2}{Percentage of vote for candidate who came in second}
#'   \item{party2}{Party of candidate with second most votes}
#'   \item{votes2}{Number of votes for candidate who came in second}
#'   \item{name3}{Name of candidate with third most votes}
#'   \item{perc3}{Percentage of vote for candidate who came in third}
#'   \item{party3}{Party of candidate with third most votes}
#'   \item{votes3}{Number of votes for candidate who came in third}
#'   \item{name4}{Name of candidate with fourth most votes}
#'   \item{perc4}{Percentage of vote for candidate who came in fourth}
#'   \item{party4}{Party of candidate with fourth most votes}
#'   \item{votes4}{Number of votes for candidate who came in fourth}
#'   \item{name5}{Name of candidate with fifth most votes}
#'   \item{perc5}{Percentage of vote for candidate who came in fifth}
#'   \item{party5}{Party of candidate with fifth most votes}
#'   \item{votes5}{Number of votes for candidate who came in fifth}
#'   }
#' @source MSNBC.com, retrieved 2010-11-09.
#' @keywords datasets
#' @examples
#'
#' hr <- table(houserace10[, c("abbr", "party1")])
#' nr <- apply(hr, 1, sum)
#'
#' pr <- prrace08[prrace08$state != "DC", c("state", "p_obama")]
#' hr <- hr[as.character(pr$state), ]
#' (fit <- glm(hr ~ pr$p_obama, family = binomial))
#'
#' x1 <- pr$p_obama[match(houserace10$abbr, pr$state)]
#' y1 <- (houserace10$party1 == "Democrat") + 0
#' g <- glm(y1 ~ x1, family = binomial)
#'
#'
#' x <- pr$p_obama[pr$state != "DC"]
#' nr <- apply(hr, 1, sum)
#' plot(x, hr[, "Democrat"] / nr,
#'   pch = 19, cex = sqrt(nr), col = "#22558844",
#'   xlim = c(20, 80), ylim = c(0, 1),
#'   xlab = "Percent vote for Obama in 2008",
#'   ylab = "Probability of Democrat winning House seat"
#' )
#' X <- seq(0, 100, 0.1)
#' lo <- -5.6079 + 0.1009 * X
#' p <- exp(lo) / (1 + exp(lo))
#' lines(X, p)
#' abline(h = 0:1, lty = 2, col = "#888888")
"houserace10"