File:Delegate count for the 2016 Republican Party presidential primaries-2016-04-29.svg
From Wikimedia Commons, the free media repository
Jump to navigation
Jump to search
![File:Delegate count for the 2016 Republican Party presidential primaries-2016-04-29.svg](https://upload.wikimedia.org/wikipedia/commons/thumb/c/c0/Delegate_count_for_the_2016_Republican_Party_presidential_primaries-2016-04-29.svg/454px-Delegate_count_for_the_2016_Republican_Party_presidential_primaries-2016-04-29.svg.png?20160522051645)
Size of this PNG preview of this SVG file: 454 × 311 pixels. Other resolutions: 320 × 219 pixels | 640 × 438 pixels | 1,024 × 701 pixels | 1,280 × 877 pixels | 2,560 × 1,754 pixels.
Original file (SVG file, nominally 454 × 311 pixels, file size: 22 KB)
File information
Structured data
Captions
Captions
Add a one-line explanation of what this file represents
Summary
[edit]DescriptionDelegate count for the 2016 Republican Party presidential primaries-2016-04-29.svg |
English: Delegate count for the 2016 Republican Party presidential primaries. Graph may not reflect the latest developments. Graph generated with an R script. |
Date | |
Source | Own work, adapted from File:Delegate count for the 2016 Republican Party presidential primaries.svg |
Author | Kaahbonk |
Licensing
[edit]I, the copyright holder of this work, hereby publish it under the following license:
![w:en:Creative Commons](https://upload.wikimedia.org/wikipedia/commons/thumb/7/79/CC_some_rights_reserved.svg/90px-CC_some_rights_reserved.svg.png)
![attribution](https://upload.wikimedia.org/wikipedia/commons/thumb/1/11/Cc-by_new_white.svg/24px-Cc-by_new_white.svg.png)
![share alike](https://upload.wikimedia.org/wikipedia/commons/thumb/d/df/Cc-sa_white.svg/24px-Cc-sa_white.svg.png)
This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.
- You are free:
- to share – to copy, distribute and transmit the work
- to remix – to adapt the work
- Under the following conditions:
- attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
- share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
Code
[edit]The graph is generated by the following R script:
library(RCurl)
library(reshape)
library(htmltab)
library(ggplot2)
library(stringr)
#get the table from the url
theurl <- getURL("https://en.wikipedia.org/wiki/Results_of_the_Republican_Party_presidential_primaries,_2016", ssl.verifyPeer=FALSE)
table <- htmltab(theurl, which=7)
#keep only the useful columns and name them
df <- table[3:61, 1:ncol(table)-1]
names(df)[1:2] <- c("Date", "State")
#extract delegate count
for (i in 3:ncol(df)) {
df[[i]] = str_extract_all(df[[i]], "[0-9,]+ delegate")
df[[i]] = as.numeric(str_extract(df[[i]], "[0-9,]+"))
df[is.na(df)] = 0
}
#sum up minor candidates
df[[7]] = rowSums(df[,7:14], na.rm=TRUE)
names(df)[7] = "Others"
df = df[,1:7]
#extract state names
df[[2]] = str_replace(df[[2]], "Binding[A-Za-z ]+", "")
df[[2]] = str_replace(df[[2]], "Territorial[A-Za-z ]+", "")
df[[2]] = str_replace(df[[2]], "State[A-Za-z ]+", "")
df[[2]] = str_replace(df[[2]], "District Co[A-Za-z ]+", "")
df[[2]] = str_replace(df[[2]], "Conv[A-Za-z ]+", "")
#extract date
df$Date = as.Date(df$Date, format="%b %d")
#order dates
df=df[order(as.Date(df$Date, format="%d/%m/%Y")),]
#remove contests that haven't happened
df = df[rowSums(df[,3:7], na.rm=TRUE)!=0,]
#new dataframes for unique dates and cumulative count
df2 = data.frame(Date=unique(df$Date))
df3 = df2
for (i in 3:7) {
df2[[names(df)[i]]] = rep(NA, length(df2$Date))
df3[[names(df)[i]]] = rep(NA, length(df2$Date))
for (j in 1:length(df2$Date)) {
df2[[names(df)[i]]][j] = sum(subset(df, Date==df2$Date[j])[[names(df)[i]]])
df3[[names(df)[i]]][j] = sum(df2[[names(df)[i]]][1:j])
}
}
#reshape data so that candidate becomes a variable
mdata <- melt(df2, id=c("Date"))
mdata2 <- melt(df3, id=c("Date"))
names(mdata) <- c("Date", "Candidate", "Delegates")
mdata[["Cumulative"]] <- mdata2[, 3]
results = mdata
#nomination threshold
nomination <- data.frame(yintercept=1237, nomination=factor(1237))
#colors
colors <- c("#283681", "#DAA520", "#29AB87", "#C60E3B", "#000000")
labels = c("Trump", "Cruz", "Kasich", "Rubio", "Other")
#generate plot
d <- ggplot(results, aes(x=Date, y=Cumulative, group=Candidate, colour=Candidate)) +
geom_hline(aes(yintercept=yintercept, linetype=nomination), data=nomination, show.legend=TRUE) +
geom_path() +
geom_point() +
scale_color_manual(values=colors, labels=labels) +
scale_linetype_manual(values=c("dashed")) +
labs(x="Date", y="Delegates", title="Cumulative delegate count", linetype="Nomination")
#display plot
d
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 05:16, 22 May 2016 | ![]() | 454 × 311 (22 KB) | Byteflush (talk | contribs) | Updated to results as of May 17th |
20:14, 29 April 2016 | ![]() | 454 × 311 (123 KB) | Kaahbonk (talk | contribs) | User created page with UploadWizard |
You cannot overwrite this file.
File usage on Commons
There are no pages that use this file.
Metadata
This file contains additional information such as Exif metadata which may have been added by the digital camera, scanner, or software program used to create or digitize it. If the file has been modified from its original state, some details such as the timestamp may not fully reflect those of the original file. The timestamp is only as accurate as the clock in the camera, and it may be completely wrong.
Width | 363pt |
---|---|
Height | 249pt |