跳转到内容

File:UK EU referendum polling.svg

页面内容不支持其他语言。
這個文件來自維基共享資源
维基百科,自由的百科全书

原始文件 (SVG文件,尺寸为900 × 630像素,文件大小:329 KB)


摘要

描述
Deutsch: Entwicklung der Befragungsergebnisse für das Referendum über den Verbleib des Vereinigten Königreiches in der Europäischen Union
 
bleiben
 
verlassen
 
unentschieden
English: Opinion polling on the United Kingdom European Union membership referendum
 
remain
 
leave
 
undecided
Français : Sondages d'opinion sur le référendum autour du maintien/sortie du R.U. dans l'U.E.
 
Rester
 
Quitter
 
NSP encore
Italiano: Sondaggio di opinione sul referendum per la permanenza del Regno Unito nell'Unione Europea
 
Rimanere
 
Abbandonare
 
Indecisi
Македонски: Исход од испитувањето на јавното мислење на референдумот за членството на Велика Бротанија во ЕУ.
 
останување
 
напуштање
 
нерешени
Polski: Sondaże w sprawie referendum w Wielkiej Brytanii o członkostwie w Unii Europejskiej
 
zostać
 
wyjść
 
nie ma zdania
Español: Sondaje de opinión respecto al Referéndum sobre la permanencia del Reino Unido en la Unión Europea
 
continuar en la UE
 
dejar la UE
 
indecisos
日期
来源 自己的作品
作者 T.seppelt
SVG开发
InfoField
 
SVG的源代码为有效代码
 
矢量图使用R创作。
源代码
InfoField
R code
The data can be edited at [[User:T.seppelt/UK EU referendum polling.csv]]. [[:User:T.seppelt|T.seppelt]] is going to refresh the diagram after updating this page. The diagram was generated with this script:

require(ggplot2)
library(scales)

download.file("https://commons.wikimedia.org/w/index.php?title=User:T.seppelt/UK_EU_referendum_polling.csv&action=raw", destfile = "/tmp/test.csv",method="curl")

data <- read.csv("/tmp/test.csv", dec=".", sep="," ,colClasses=c("Date","numeric","numeric","numeric","numeric",NA, NA));

data$remain <- data$remain / 100
data$leave <- data$leave / 100
data$undecided <- data$undecided / 100

df1 <- data.frame(date = data$date, remain = data$remain,leave = data$leave,undecided = data$undecided);

green <- "#24B14C"

svg("UK EU referendum polling.svg", width = 10, height = 7, family="sans-serif", bg="transparent")
g <- ggplot(df1,aes(x=date));
g <- g + scale_x_date(labels = date_format("%Y-%m-%d"), minor_breaks="2 week");
g <- g + labs(title = "United Kingdom European Union membership referendum \n Opinion polling")
g <- g + xlab("date");
g <- g + ylab("proportion of the interviewed persons")
g <- g + geom_point(data=df1,aes(x=date,y=remain,colour="Remain"));
g <- g + geom_smooth(data=df1,aes(x=date,y=remain), colour=green)
g <- g + geom_point(data=df1,aes(x=date,y=leave,colour="Leave"));
g <- g + geom_smooth(data=df1,aes(x=date,y=leave), colour="red")
g <- g + geom_point(data=df1,aes(x=date,y=undecided,colour="Undecided"));
g <- g + geom_smooth(data=df1,aes(x=date,y=undecided), colour="blue")
#g <- g + geom_line(aes(y=50),color="black")
g <- g +  scale_colour_manual("", 
                              breaks = c("Remain", "Leave", "Undecided"),
                              values = c("red", green, "blue"))
g <- g + scale_y_continuous(labels=percent)
g <- g + theme_classic() + theme(
  rect = element_rect(fill = "transparent",colour = NA),
  panel.grid.major = element_line(colour = "#bbbbbb", size = 0.5),
  panel.grid.minor = element_line(colour = "#cccccc", size = 0.3),
  panel.background  = element_rect(fill = "transparent",colour = NA),
  legend.key = element_rect(fill = "transparent",colour = NA)
) + theme(legend.position="top")+theme(plot.title=element_text(size=20));
g
dev.off();
g
R code (2)
I had to make some slight adjustments to the script to get it to work with R 3.2.3 and ggplot2 2.0.0. – [[:User:Kanoch|Kanoch]] 

require(ggplot2)
library(scales)

download.file("https://commons.wikimedia.org/w/index.php?title=User:T.seppelt/UK_EU_referendum_polling.csv&action=raw", destfile = "/tmp/test.csv",method="curl")

data <- read.csv("/tmp/test.csv", dec=".", sep="," ,colClasses=c("Date",NA,NA,NA,NA,NA,NA));

data$remain <- data$remain / 100
data$leave <- data$leave / 100
data$undecided <- data$undecided / 100

svg("UK EU referendum polling.svg", width = 10, height = 7, family="sans-serif", bg="transparent")
df1 <- data.frame(date = data$date, remain = data$remain,leave = data$leave,undecided = data$undecided);
g <- ggplot(df1,aes(x=date,df1));
g <- g + scale_x_date(date_labels="%Y-%m-%d", date_minor_breaks="2 week");
g <- g + labs(title = "United Kingdom European Union membership referendum \n Opinion polling")
g <- g + xlab("date");
g <- g + ylab("proportion of the interviewed persons")
g <- g + geom_point(data=df1,aes(x=date,y=remain,colour="Remain"));
g <- g + geom_smooth(data=df1,aes(x=date,y=remain), colour="green")
g <- g + geom_point(data=df1,aes(x=date,y=leave,colour="Leave"));
g <- g + geom_smooth(data=df1,aes(x=date,y=leave), colour="red")
g <- g + geom_point(data=df1,aes(x=date,y=undecided,colour="Undecided"));
g <- g + geom_smooth(data=df1,aes(x=date,y=undecided), colour="blue")
g <- g +  scale_colour_manual("", 
                              breaks = c("Remain", "Leave", "Undecided"),
                              values = c("red", "green", "blue"))
g <- g + theme(legend.position="top")+theme(plot.title=element_text(size=20));
g <- g + scale_y_continuous(labels=percent)
g
dev.off();

许可协议

我,本作品著作权人,特此采用以下许可协议发表本作品:
w:zh:知识共享
署名 相同方式共享
本文件采用知识共享署名-相同方式共享 4.0 国际许可协议授权。
您可以自由地:
  • 共享 – 复制、发行并传播本作品
  • 修改 – 改编作品
惟须遵守下列条件:
  • 署名 – 您必须对作品进行署名,提供授权条款的链接,并说明是否对原始内容进行了更改。您可以用任何合理的方式来署名,但不得以任何方式表明许可人认可您或您的使用。
  • 相同方式共享 – 如果您再混合、转换或者基于本作品进行创作,您必须以与原先许可协议相同或相兼容的许可协议分发您贡献的作品。

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描繪內容

文件历史

点击某个日期/时间查看对应时刻的文件。

最新 | 最旧) 查看(较新10条 | )(10 | 20 | 50 | 100 | 250 | 500
日期/时间缩⁠略⁠图大小用户备注
当前2016年6月24日 (五) 10:492016年6月24日 (五) 10:49版本的缩略图900 × 630(329 KB)T.seppeltfinal update to 277 polls
2016年6月23日 (四) 09:082016年6月23日 (四) 09:08版本的缩略图900 × 630(327 KB)T.seppeltupdate to 275 polls
2016年6月21日 (二) 20:212016年6月21日 (二) 20:21版本的缩略图900 × 630(324 KB)T.seppeltupdate to 271 polls
2016年6月20日 (一) 08:252016年6月20日 (一) 08:25版本的缩略图900 × 630(322 KB)T.seppeltupdate to 268 polls after rebuild of 2016 dataset
2016年6月19日 (日) 12:462016年6月19日 (日) 12:46版本的缩略图900 × 630(318 KB)T.seppeltupdate to 261 polls. Thanks Louis-Kenzo and Diaryfolio
2016年6月15日 (三) 18:362016年6月15日 (三) 18:36版本的缩略图900 × 630(314 KB)T.seppeltupdate to 257 polls. Thanks Gugganij.
2016年6月12日 (日) 18:262016年6月12日 (日) 18:26版本的缩略图900 × 630(310 KB)T.seppeltupdate green to {{legend|#24B14C}}
2016年6月12日 (日) 17:372016年6月12日 (日) 17:37版本的缩略图900 × 630(305 KB)T.seppeltnew transparent layout, update to 252 polls. Thanks to UAIED and Gugganij
2016年6月7日 (二) 14:282016年6月7日 (二) 14:28版本的缩略图900 × 630(305 KB)T.seppeltupdate to 247 polls. Thanks UAIED, Smurrayinchester and 987poiuytrewq
2016年5月31日 (二) 19:262016年5月31日 (二) 19:26版本的缩略图900 × 630(302 KB)T.seppeltupdate to 242 polls. Thanks to Gugganij and Kwekubo.
最新 | 最旧) 查看(较新10条 | )(10 | 20 | 50 | 100 | 250 | 500

全域文件用途

以下其他wiki使用此文件:

元数据