File:DonValleyGraph.png

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file ‎(944 × 519 pixels, file size: 106 KB, MIME type: image/png)

Captions

Captions

Add a one-line explanation of what this file represents

Summary[edit]

Description
English: United Kingdom general election results for Don Valley constituency from its creation in 1918 to 2005. © Jeremy Atherton 2005.
Date 21 December 2005 (original upload date)
Source Transferred from en.wikipedia to Commons by Sreejithk2000 using CommonsHelper.
Author JeremyA at English Wikipedia
File:DonValleyGraph.svg is a vector version of this file. It should be used in place of this PNG file when not inferior.
File:DonValleyGraph.png → File:DonValleyGraph.svg
For more information, see Help:SVG.
In other languages
Alemannisch ∙ Bahasa Indonesia ∙ Bahasa Melayu ∙ British English ∙ català ∙ čeština ∙ dansk ∙ Deutsch ∙ eesti ∙ English ∙ español ∙ Esperanto ∙ euskara ∙ français ∙ Frysk ∙ galego ∙ hrvatski ∙ Ido ∙ italiano ∙ lietuvių ∙ magyar ∙ Nederlands ∙ norsk bokmål ∙ norsk nynorsk ∙ occitan ∙ Plattdüütsch ∙ polski ∙ português ∙ português do Brasil ∙ română ∙ Scots ∙ sicilianu ∙ slovenčina ∙ slovenščina ∙ suomi ∙ svenska ∙ Tiếng Việt ∙ Türkçe ∙ vèneto ∙ Ελληνικά ∙ беларуская (тарашкевіца) ∙ български ∙ македонски ∙ нохчийн ∙ русский ∙ српски / srpski ∙ татарча/tatarça ∙ українська ∙ ქართული ∙ հայերեն ∙ বাংলা ∙ தமிழ் ∙ മലയാളം ∙ ไทย ∙ 한국어 ∙ 日本語 ∙ 简体中文 ∙ 繁體中文 ∙ עברית ∙ العربية ∙ فارسی ∙ +/−
New SVG image

Notes[edit]

The Background colour indicates the party of the sitting MP at any given year. From 1918 to 1922 the seat was held by the National Democratic Party

Graph drawn with R

Statistics gathered from:

Parties:

Data used:

Year Conservative Labour Liberal UKIP Other
1918.95 24.5 29.3 46.2
1922.87 47 25.4 27.6
1923.93 39.6 60.4
1924.8 46.1 53.9
1929.41 26.7 73.3
1931.82 41.4 58.6
1935.87 31.1 68.9
1945.51 28.3 71.1
1950.148 24.6 75.4
1951.9 25.9 74.1
1955.5 26.3 73.7
1959.83 29.1 70.9
1964.83 28.1 71.9
1966.33 25.1 74.9
1970.5 30.5 69.5
1974.25 29.9 70.1
1974.86 21.2 63.3 15.6
1979.42 31.2 55.6 11.6 1.6
1983.5 32.4 45.1 22.5
1987.5 32.3 53.1 11.9
1992.33 31.7 55 11.9 1.4
1997.42 24.6 58.3 9.7 7.5
2001.5 28.6 54.6 11.2 2.1 3.5
2005.42 29.4 52.7 18
2010.35 29.7 37.9 17.1 4.4 10.9
2015.35 25.3 46.2 3.5 23.5 1.6
2017.44 41.7 53 1.9 3.5

Code:

The following R code will reproduce the graph using the data on this page. 

library(tidyverse)
library(htmltab)

don <- as.tibble(htmltab("https://commons.wikimedia.org/wiki/File:DonValleyGraph.png",2, rm_nodata_cols = F))

tidy_don <- gather(don, "Party", "Votes", 2:6)
tidy_don$Year <- as.numeric(tidy_don$Year)
tidy_don$Party <- factor(tidy_don$Party, levels = c("Conservative", "Labour", "Liberal", "Green", "SNP", "UKIP", "Other"))
tidy_don$Votes <- as.numeric(tidy_don$Votes)

party_colours <- c("#0087DC", "#DC241F", "#FAA61A", "#008066", "#FFF95D", "#EFE600", "dark grey")
names(party_colours) <- c("Conservative", "Labour", "Liberal", "Green", "SNP", "UKIP", "Other")

don_victor <- tidy_don %>% filter(is.na(Votes) == FALSE) %>% group_by(Year) %>% summarize(Party = Party[which(Votes == max(Votes))])
don_victor$start_year <- don_victor$Year
don_victor$end_year <- c(don_victor$Year[-1], 2019)
don_victor[1,3] <- floor(don_victor[1,3]-1)

start_year <- don_victor[[1,3]]
end_year <- 2019

ggplot(tidy_don) +
  geom_rect(data = don_victor,
            aes(xmin = start_year,xmax = end_year, ymin = -Inf, ymax = Inf, fill = Party),
            alpha = 0.35,
            show.legend = F) +
  geom_line(aes(x = Year, y = Votes, colour = Party), size = 0.703) +
  geom_point(aes(x = Year, y = Votes, colour = Party)) +
  geom_hline(yintercept = 100, color="black", size = 1.5) +
  geom_vline(xintercept = 2019, color="black", size = 1.5) +
  scale_colour_manual(values = party_colours, labels = c("Conservative", "Labour", "Liberal", "UKIP", "Other")) +
  scale_fill_manual(values = party_colours) +
  theme(text = element_text(color="black", size = 14),
        axis.text = element_text(color="black", size = 11),
        axis.line.x = element_line(color="black", size = 0.703),
        axis.ticks.x = element_line(color="black", size = 0.703),
        axis.line.y = element_line(color="black", size = 0.703),
        axis.ticks.y = element_line(color="black", size = 0.703),
        axis.ticks.length = unit(5, "points"),
        panel.grid.major = element_line(color="blue", size = 0.5, linetype = 3),
        panel.grid.minor = element_blank(),
        panel.background = element_blank(),
        legend.position = c(.99, .98),
        legend.text = element_text(color="black", size = 11),
        legend.title=element_blank(),
        legend.justification = c("right", "top"),
        legend.box.just = "right",
        legend.key = element_blank(),
        legend.background = element_rect(fill = "white", colour = "black"),
        legend.margin = margin(0, 4, 4, 4)) +
  scale_x_continuous(expand = c(0, 0), limits = c(start_year, end_year), breaks = seq(1890, 2010, 10)) +
  scale_y_continuous(expand = c(0, 0), limits = c(0, 100), breaks = seq(0, 100, 20)) +
  labs(x = "Year", y = "Percentage Vote")

ggsave("DonGraph.png", device = "png", units = "cm", width = 20, height = 11, dpi = 120)

Licensing[edit]

JeremyA at the English-language Wikipedia, the copyright holder of this work, hereby publishes it under the following license:
w:en:Creative Commons
attribution share alike 		This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license. Subject to disclaimers.
Attribution: JeremyA at the English-language Wikipedia
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.
This licensing tag was added to this file as part of the GFDL licensing update.
GNU head Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the license is included in the section entitled GNU Free Documentation License. Subject to disclaimers.


Original upload log[edit]

The original description page was here. All following user names refer to en.wikipedia.
  • 2010-05-08 19:54 JeremyA 945×520× (61414 bytes)
  • 2005-12-21 03:37 JeremyA 945×520× (20568 bytes) United Kingdom general election results for [[Don Valley (UK Parliament constituency)|Don Valley]] constituency from its creation in 1918 to 2005. © Jeremy Atherton 2005. ==Notes== The Background colour indicates the party of the sitti

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current15:33, 13 June 2017Thumbnail for version as of 15:33, 13 June 2017944 × 519 (106 KB)JeremyA (talk | contribs)Update data.
06:22, 3 June 2010Thumbnail for version as of 06:22, 3 June 2010945 × 520 (60 KB)File Upload Bot (Magnus Manske) (talk | contribs) {{BotMoveToCommons|en.wikipedia|year={{subst:CURRENTYEAR}}|month={{subst:CURRENTMONTHNAME}}|day={{subst:CURRENTDAY}}}} {{Information |Description={{en|United Kingdom general election results for Don Valley

You cannot overwrite this file.

There are no pages that use this file.

Retrieved from "https://commons.wikimedia.org/w/index.php?title=File:DonValleyGraph.png&oldid=749529114"