Datoteka:UK EU referendum polling.svg

Izvor: Hrvatska internetska enciklopedija
Skoči na:orijentacija, traži

Vidi sliku u punoj veličini(SVG datoteka, nominalno 900 × 630 piksela, veličina datoteke: 329 KB)


Pogreška pri izradbi sličice: Spremanje smanjene slike ("thumbnail") na ponuđenu mjesto nije moguće.
Ova je datoteka sa stranica Zajedničkog poslužitelja Zaklade Wikimedije i smiju je rabiti drugi projekti. Opis s njezine stranice s opisom datoteke prikazan je ispod.

Sažetak

Opis
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
Datum
Izvor Vlastito djelo postavljača
Autor T.seppelt
SVG genesis
InfoField
 Izvorni kôd ove SVG datoteke je valjan.
 Ova je vektorska slika napravljena programom R.
Izvorni kod
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();

Licencija

Ja, nositelj autorskog prava za ovo djelo, ovime ga objavljujem pod sljedećom licencijom:
w:hr:Creative Commons
imenovanje autora dijeli pod istim uvjetima
Slobodno smijete:
  • dijeliti – umnožavati, distribuirati i javnosti priopćavati djelo
  • remiksirati – prerađivati djelo
Pod sljedećim uvjetima:
  • imenovanje autora – Morate pripisati odgovarajuće autorske zasluge, dati poveznicu na licenciju, te naznačiti jesu li načinjene promjene autorskog djela. Prethodno navedeno možete učiniti na svaki razuman način, ali ne na način koji bi sugerirao da Vi ili Vaše korištenje licencorova djela ima izravno licencorovo odobrenje.
  • dijeli pod istim uvjetima – Ako ovo djelo izmijenite, preoblikujete ili stvarate na osnovu tog materijala, svoje doprinose morate distribuirati pod istom ili kompatibilnom licencijom kao što je i licencija originala.

Opisi

Dodajte kratko objašnjenje što predstavlja ova datoteka

Predmeti prikazani u ovoj datoteci

motiv

29. listopada 2015

Povijest datoteke

Kliknite na datum/vrijeme kako biste vidjeli datoteku kakva je tada bila.

Datum/VrijemeMinijaturaDimenzijeSuradnikKomentar
sadašnja10:49, 24. lipnja 2016.Minijatura za inačicu od 10:49, 24. lipnja 2016.900 × 630 (329 KB)T.seppeltfinal update to 277 polls

Na ovu sliku vode poveznice sa sljedećih stranica:

Metapodatci