Delwedd:UK EU referendum polling cy.svg

Maint llawn ‎(Ffeil SVG, maint mewn enw 900 × 630 picsel, maint y ffeil: 332 KB)

Daw'r ffeil hon o Comin Wikimedia a gellir ei defnyddio gan brosiectau eraill. Dangosir isod y disgrifiad sydd ar dudalen ddisgrifio'r ffeil yno.

{{Mbox The graph is rendered manually by T.seppelt based on the CSV-File User:T.seppelt/UK EU referendum polling.csv.}}

Crynodeb

Disgrifiad

Cymraeg: Refferendwm y DU ar aelodaeth o'r Undeb Ewropeaidd, 2016:Y Polau Piniwn.

bleiben

verlassen

unentschieden

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

Dyddiad

29 Hydref 2015

Ffynhonnell

Gwaith yr uwchlwythwr

Awdur

T.seppelt / User:Llywelyn2000

Diwygiadau eraill

File:UK EU referendum polling.svg

SVG genesis

The SVG code is valid.

This chart was created with R.

Cod ffynhonnell

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();

Trwyddedu

Yr wyf fi, deiliad yr hawlfraint ar y gwaith hwn, yn ei gyhoeddi yn ôl termau'r drwydded a ganlyn:

Trwyddedir y ffeil hon yn ôl termau'r drwydded Creative Commons Attribution-Share Alike 4.0 International.

Mae'n rhydd i chi:

rhannu – gallwch gopïo, dosbarthu a throsglwyddo'r gwaith
ailwampio – gallwch addasu'r gwaith

Ar yr amodau canlynol:

cydnabyddiaeth – Mae'n rhaid i chi nodi manylion y gwaith hwn, rhoi dolen i'r drwydded, a nodi os y bu golygu arni, yn y modd a benwyd gan yr awdur neu'r trwyddedwr (ond heb awgrymu o gwbl eu bod yn eich cymeradwyo chi na'ch defnydd o'r gwaith).
rhannu ar dermau tebyg – Os byddwch yn addasu'r gwaith hwn, neu yn ei drawsnewid, neu yn adeiladu arno, mae'n rhaid i chi ddosbarthu'r gwaith dan drwydded sy'n union yr un fath same a'r gwreiddiol.

Hanes y ffeil

Cliciwch ar ddyddiad / amser i weld y ffeil fel ag yr oedd bryd hynny.

	Dyddiad / Amser	Bawdlun	Hyd a lled	Defnyddiwr	Sylw
cyfredol	04:35, 30 Awst 2017		900 × 630 (332 KB)	Llywelyn2000	User created page with UploadWizard

Cysylltiadau'r ffeil

Mae'r 2 tudalennau a ddefnyddir isod yn cysylltu i'r ddelwedd hon:

Metadata

Mae'r ffeil hon yn cynnwys gwybodaeth ychwanegol, sydd mwy na thebyg wedi dod o'r camera digidol neu'r sganiwr a ddefnyddiwyd i greu'r ffeil neu ei digido. Os yw'r ffeil wedi ei cael ei newid ers ei chreu efallai nad yw'r manylion hyn yn dal i fod yn gywir.

Lled	720pt
Uchder	504pt

Delwedd:UK EU referendum polling cy.svg

Crynodeb

Trwyddedu

Captions

Items portrayed in this file

yn portreadu

statws hawlfraint

dan hawlfraint

trwydded

Creative Commons Attribution-ShareAlike 4.0 International ^Saesneg

source of file ^Saesneg

original creation by uploader ^Saesneg

dechreuwyd

29 Hydref 2015

Hanes y ffeil

Cysylltiadau'r ffeil

Metadata

Delwedd:UK EU referendum polling cy.svg

Crynodeb

Trwyddedu

Captions

Items portrayed in this file

yn portreadu

statws hawlfraint

dan hawlfraint

trwydded

Creative Commons Attribution-ShareAlike 4.0 International Saesneg

source of file Saesneg

original creation by uploader Saesneg

dechreuwyd

29 Hydref 2015

Hanes y ffeil

Cysylltiadau'r ffeil

Metadata

Creative Commons Attribution-ShareAlike 4.0 International ^Saesneg

source of file ^Saesneg

original creation by uploader ^Saesneg