File:Nationwide polls for the 2016 Democratic Party presidential primaries.svg
Aus Wikimedia Commons, dem freien Medienarchiv
Zur Navigation springen
Zur Suche springen
Größe der PNG-Vorschau dieser SVG-Datei: 800 × 444 Pixel. Weitere Auflösungen: 320 × 178 Pixel | 640 × 356 Pixel | 1.024 × 569 Pixel | 1.280 × 711 Pixel | 2.560 × 1.422 Pixel | 810 × 450 Pixel.
Originaldatei (SVG-Datei, Basisgröße: 810 × 450 Pixel, Dateigröße: 232 KB)
Dateiinformationen
Strukturierte Daten
Bildtexte
Beschreibung[Bearbeiten]
BeschreibungNationwide polls for the 2016 Democratic Party presidential primaries.svg |
English: A combination of nationwide opinion polls during the 2016 Democratic Party presidential primaries. The trend lines are Local Regressions with α = 0.8 and 95% confidence interval ribbons. The point sizes and trend lines are weighted according to the margin of error of each poll. |
Datum | |
Quelle | Eigenes Werk |
Urheber | Abjiklam |
Lizenz[Bearbeiten]
Ich, der Urheber dieses Werkes, veröffentliche es unter der folgenden Lizenz:
Diese Datei ist lizenziert unter der Creative-Commons-Lizenz „Namensnennung – Weitergabe unter gleichen Bedingungen 4.0 international“.
- Dieses Werk darf von dir
- verbreitet werden – vervielfältigt, verbreitet und öffentlich zugänglich gemacht werden
- neu zusammengestellt werden – abgewandelt und bearbeitet werden
- Zu den folgenden Bedingungen:
- Namensnennung – Du musst angemessene Urheber- und Rechteangaben machen, einen Link zur Lizenz beifügen und angeben, ob Änderungen vorgenommen wurden. Diese Angaben dürfen in jeder angemessenen Art und Weise gemacht werden, allerdings nicht so, dass der Eindruck entsteht, der Lizenzgeber unterstütze gerade dich oder deine Nutzung besonders.
- Weitergabe unter gleichen Bedingungen – Wenn du das Material wiedermischst, transformierst oder darauf aufbaust, musst du deine Beiträge unter der gleichen oder einer kompatiblen Lizenz wie das Original verbreiten.
Code[Bearbeiten]
The graph is generated by the following R script, largely inspired by this file.
library(RCurl)
library(reshape)
library(htmltab)
library(ggplot2)
library(stringr)
library(scales)
#get the table from the url
theurl <- getURL("https://en.wikipedia.org/wiki/Nationwide_opinion_polling_for_the_Democratic_Party_2016_presidential_primaries", ssl.verifyPeer=FALSE)
table <- htmltab(theurl, which=3)
table2 <- htmltab(theurl, which=4)
table = table[,1:6]
table2 = table2[,c(1:5,7)]
names(table) <- c("Source", "Size", "Error", "Date", "Clinton", "Sanders")
names(table2) <- names(table)
df = rbind(table, table2)
for (i in c(3, 5:7)) {
df[[i]] = as.numeric(sub("%", "", df[[i]]))/100
}
df$Date = sub("[0-9]+\\s*–\\s*([0-9]+)", "\\1", df$Date)
df$Date = sub(".*–", "", df$Date)
df$Date = sub("[0-9]+\\s*-\\s*([0-9]+)", "\\1", df$Date)
df$Date = sub(".*-", "", df$Date)
df$Date = trimws(df$Date)
df$Date = as.Date(df$Date, format="%B %d, %Y")
df$Size = as.numeric(sub(",", "", df$Size))
df$Error = 1/sqrt(df$Size)
mdata <- melt(df, id=c("Date", "Source", "Error", "Size"))
names(mdata)[5:6] = c("Candidate", "Support")
colors = c("#D4AA00", "#228b22")
labels = c("Clinton", "Sanders")
results = mdata
#breaks() returns n evenly spaced numbers between x and y
#whose squares are divisible by p
#the function is used for the legend
breaks <- function(x, y, n, p) {
x = sqrt(ceiling(as.integer(x^2) / p) * p)
y = sqrt(floor(as.integer(y^2) / p) * p)
s = seq(x, y, length.out=n)
for (i in 2:(n-1)) {
s[i] = sqrt(round(s[i]^2 / p) * p)
}
return(unique(s))
}
d = ggplot(results, aes(x=Date, y=Support, colour=Candidate, size=1/Error, weight=1/Error)) +
geom_point(alpha=0.7) +
geom_smooth(span=0.8, show.legend=F) +
scale_colour_manual(values = colors) +
labs(title="Nationwide opinion polling for the 2016 Democratic Party primaries") +
scale_size_area(max_size=3,
breaks=function(x) breaks(x[1], x[2], 5, 100), #5 numbers divisible by 100
labels=function(x) comma_format()(x^2),
name="Sample Size") +
scale_y_continuous(breaks=seq(0,1,0.1), minor_breaks=seq(0,1,0.02),
labels=percent, limits=c(0.2,0.7)) +
scale_x_date(labels=date_format("%b %d"),
breaks=sort(c(seq(as.Date("2016/1/1"), as.Date("2016/7/28"), "month"),
seq(as.Date("2016/1/15"), as.Date("2016/7/28"), "month"),
as.Date("2016/7/28"))),
limits=c(as.Date("2016/1/1"), as.Date("2016/7/28"))) +
theme(panel.grid.minor=element_line(size=0.2),
panel.grid.major=element_line(size=0.6))
#save plot as "dp.svg"
svg(filename="dp.svg",
width=9,
height=5,
pointsize=12,
bg="transparent")
d
dev.off()
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 16:32, 29. Jun. 2016 | 810 × 450 (232 KB) | Χ (Diskussion | Beiträge) | update | |
14:10, 8. Jun. 2016 | 810 × 450 (228 KB) | Χ (Diskussion | Beiträge) | update | ||
11:57, 6. Jun. 2016 | 810 × 360 (226 KB) | Χ (Diskussion | Beiträge) | update | ||
03:41, 31. Mai 2016 | 810 × 360 (223 KB) | Χ (Diskussion | Beiträge) | better sample size legend | ||
04:33, 30. Mai 2016 | 810 × 360 (220 KB) | Χ (Diskussion | Beiträge) | kept only major candidates (as was done for the republican graph) | ||
15:50, 29. Mai 2016 | 810 × 360 (238 KB) | Χ (Diskussion | Beiträge) | update | ||
14:42, 22. Mai 2016 | 810 × 360 (233 KB) | Χ (Diskussion | Beiträge) | update | ||
22:24, 16. Mai 2016 | 810 × 360 (231 KB) | Χ (Diskussion | Beiträge) | update | ||
17:42, 8. Mai 2016 | 810 × 360 (229 KB) | Χ (Diskussion | Beiträge) | update | ||
12:36, 2. Mai 2016 | 810 × 360 (225 KB) | Χ (Diskussion | Beiträge) | update |
Du kannst diese Datei nicht überschreiben.
Dateiverwendung
Keine Seiten verwenden diese Datei.
Globale Dateiverwendung
Die nachfolgenden anderen Wikis verwenden diese Datei:
- Verwendung auf da.wikipedia.org
- Verwendung auf en.wikipedia.org
Metadaten
Diese Datei enthält weitere Informationen, die in der Regel von der Digitalkamera oder dem verwendeten Scanner stammen. Durch nachträgliche Bearbeitung der Originaldatei können einige Details verändert worden sein.
Breite | 648pt |
---|---|
Höhe | 360pt |