Файл:LivingstonGraph.svg
Материал из Википедии — свободной энциклопедии
Перейти к навигации
Перейти к поиску
Размер этого PNG-превью для исходного SVG-файла: 800 × 441 пкс. Другие разрешения: 320 × 176 пкс | 640 × 353 пкс | 1024 × 564 пкс | 1280 × 705 пкс | 2560 × 1410 пкс | 944 × 520 пкс.
Исходный файл (SVG-файл, номинально 944 × 520 пкс, размер файла: 85 КБ)
Этот файл находится на Викискладе. Сведения о нём показаны ниже.
Викисклад — централизованное хранилище для свободных файлов, используемых в проектах Викимедиа.
Сообщить об ошибке с файлом |
Краткое описание
ОписаниеLivingstonGraph.svg |
English: United Kingdom general election results for Livingston constituency from its creation in 1983 to 2017. |
Дата | |
Источник | Собственная работа |
Автор | JeremyA |
Notes
Statistics gathered from:
- http://www.psr.keele.ac.uk/area/uk/edates.htm archive copy at the Wayback Machine
- http://news.bbc.co.uk/hi/english/static/vote2001/results_constituencies/constituencies/380.stm
- http://news.bbc.co.uk/1/shared/vote2005/html/715.stm
Parties:
- Conservative = Conservative Party (UK)
- Labour = Labour Party (UK)
- Liberal = SDP-Liberal Alliance (1983–1987); Liberal Democrats (UK) (1992–present).
- SNP = Scottish National Party
Graph drawn with R
Source Data:
Year | Conservative | Labour | Liberal | SNP | Other |
---|---|---|---|---|---|
1983.5 | 24.2 | 37.7 | 24.6 | 13.5 | |
1987.5 | 18.7 | 45.6 | 19.1 | 16.6 | |
1992.33 | 19.4 | 44.4 | 8.6 | 26.6 | 1 |
1997.42 | 9.4 | 54.9 | 6.7 | 27.5 | 1.5 |
2001.5 | 8.3 | 53 | 11 | 23.6 | 4.1 |
2005.42 | 10.1 | 51.1 | 15.4 | 21.6 | 1.8 |
2005.74 | 6.8 | 41.8 | 14.8 | 32.7 | 4 |
2010.35 | 10.8 | 48.5 | 11.1 | 25.9 | 3.7 |
2015.35 | 10.3 | 27.6 | 2.1 | 56.9 | 3.1 |
2017.44 | 24.4 | 32.7 | 2.9 | 40.1 | |
2019.95 | 22.3 | 21.8 | 6.3 | 46.9 | 2.6 |
Code:
The following R code will reproduce the graph using the data on this page.
library(tidyverse)
library(htmltab)
election_graph <- function(pageURL) {
election <- htmltab(pageURL,
which = 2,
rm_nodata_cols = F)
election <- as.tibble(lapply(election, function(x) {gsub("unopp", "100", x)}))
tidy_election <- gather(election, "Party", "Votes", 2:length(election))
tidy_election$Year <- as.numeric(tidy_election$Year)
tidy_election$Party <- factor(tidy_election$Party, levels = c("Conservative", "Labour", "Liberal", "Green", "SNP", "UKIP", "Other"))
tidy_election$Votes <- as.numeric(tidy_election$Votes)
election_victor <- tidy_election %>% filter(is.na(Votes) == FALSE) %>% group_by(Year) %>% summarize(Party = Party[which(Votes == max(Votes))])
election_victor$Year <- as.numeric(election_victor$Year)
election_victor$start_year <- election_victor$Year
election_victor$end_year <- c(election_victor$Year[-1], ceiling(election_victor$Year[length(election_victor$Year)] + 1))
election_victor[1,3] <- floor(election_victor[1,3] - 1)
tidy_election$Votes <- as.numeric(sapply(tidy_election$Votes, function(x) {gsub(100, NA, x)}))
party_colours <- c("#0087DC", "#DC241F", "#FAA61A", "#008066", "#FFF95D", "#EFE600", "dark grey")
names(party_colours) <- c("Conservative", "Labour", "Liberal", "Green", "SNP", "UKIP", "Other")
ggplot(tidy_election) +
geom_rect(data = election_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 = 2021, color="black", size = 1.5) +
scale_colour_manual(values = party_colours) +
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(.98, .97),
legend.direction = "horizontal",
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(election_victor[[1,3]], election_victor$end_year[length(election_victor$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")
}
election_graph("https://commons.wikimedia.org/wiki/File:LivingstonGraph.svg")
ggsave("LivingstonGraph.svg", device = "svg", units = "cm", width = 20, height = 11, dpi = 120)
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
Элементы, изображённые на этом файле
изображённый объект
У этого свойства есть некоторое значение без элемента в
15 июня 2017
История файла
Нажмите на дату/время, чтобы посмотреть файл, который был загружен в тот момент.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 18:30, 31 мая 2024 | 944 × 520 (85 КБ) | JeremyA | +2019 | |
18:20, 31 мая 2024 | 512 × 282 (21 КБ) | JeremyA | Reverted to version as of 14:42, 15 June 2017 (UTC) SVG issue | ||
18:19, 31 мая 2024 | 756 × 416 (16 КБ) | JeremyA | +2019 | ||
14:42, 15 июня 2017 | 512 × 282 (21 КБ) | JeremyA | User created page with UploadWizard |
Использование файла
Нет страниц, использующих этот файл.
Глобальное использование файла
Данный файл используется в следующих вики:
- Использование в en.wikipedia.org
Метаданные
Файл содержит дополнительные данные, обычно добавляемые цифровыми камерами или сканерами. Если файл после создания редактировался, то некоторые параметры могут не соответствовать текущему изображению.
Ширина | 708pt |
---|---|
Высота | 390pt |