Файл: UK EU referendum polling.svg

Данные можно редактировать в [[User:T.seppelt/UK EU referendum polling.csv]]. [[:User:T.seppelt|T.seppelt]] обновит диаграмму после обновления этой страницы. Диаграмма была создана с помощью этого скрипта:требуется(ggplot2)библиотека(весы)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")данные <- read.csv("/tmp/test.csv", dec=".", sep="," ,colClasses=c("Дата","числовой","числовой","числовой","числовой",NA, NA));данные$остаются <- данные$остаются / 100данные$отпуск <- данные$отпуск / 100данные$неопределено <- данные$неопределено / 100df1 <- data.frame(дата = data$date, осталось = data$remain, осталось = data$leave,не принято = data$undecided);зеленый <- "#24B14C"svg("Опрос по референдуму в Великобритании о выходе из ЕС.svg", width = 10, height = 7, family="sans-serif", bg="transparent")г <- ggplot(df1,aes(x=дата));г <- г + scale_x_date(labels = date_format("%Y-%m-%d"), minor_breaks="2 неделя");g <- g + labs(title = "Референдум о членстве Великобритании в Европейском Союзе \n Опрос общественного мнения")г <- г + xlab("дата");g <- g + ylab("доля опрошенных лиц")g <- g + geom_point(data=df1,aes(x=date,y=remain,colour="Remain"));g <- g + geom_smooth(data=df1,aes(x=дата,y=остаток), цвет=зеленый)g <- g + geom_point(data=df1,aes(x=date,y=leave,colour="Leave"));g <- g + geom_smooth(data=df1,aes(x=дата,y=отпуск), цвет="красный")g <- g + geom_point(data=df1,aes(x=date,y=undecided,colour="Undecided"));g <- g + geom_smooth(data=df1,aes(x=дата,y=не решено), colour="blue")#g <- g + geom_line(aes(y=50),color="черный")г <- г + scale_colour_manual("", breaks = c("Остаться", "Выйти", "Не определился"), значения = c("красный", зеленый, "синий"))г <- г + масштаб_y_непрерывный(метки=процент)г <- г + тема_классик() + тема( rect = element_rect(заполнение = "прозрачный",цвет = NA), panel.grid.major = element_line(цвет = "#bbbbbb", размер = 0.5), panel.grid.minor = element_line(цвет = "#cccccc", размер = 0.3), панель.фон = элемент_прямоугольник(заполнение = "прозрачный",цвет = NA), legend.key = element_rect(fill = "прозрачный",color = NA)) + тема(легенда.position="top")+тема(участок.title=текст_элемента(размер=20));гdev.выкл();г

Мне пришлось внести небольшие изменения в скрипт, чтобы он работал с R 3.2.3 и ggplot2 2.0.0. – [[:User:Kanoch|Kanoch]]требуется(ggplot2)библиотека(весы)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));данные$остаются <- данные$остаются / 100данные$отпуск <- данные$отпуск / 100данные$неопределено <- данные$неопределено / 100svg("Опрос по референдуму в Великобритании о выходе из ЕС.svg", width = 10, height = 7, family="sans-serif", bg="transparent")df1 <- data.frame(дата = data$date, осталось = data$remain, осталось = data$leave,не принято = data$undecided);г <- ggplot(df1,aes(x=дата,df1));г <- г + scale_x_date(date_labels="%Y-%m-%d", date_minor_breaks="2 неделя");g <- g + labs(title = "Референдум о членстве Великобритании в Европейском Союзе \n Опрос общественного мнения")г <- г + xlab("дата");g <- g + ylab("доля опрошенных лиц")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=дата,y=отпуск), цвет="красный")g <- g + geom_point(data=df1,aes(x=date,y=undecided,colour="Undecided"));g <- g + geom_smooth(data=df1,aes(x=дата,y=не решено), colour="blue")г <- г + scale_colour_manual("", breaks = c("Остаться", "Выйти", "Не определился"), значения = c("красный", "зеленый", "синий"))г <- г + тема(легенда.position="top")+тема(плот.title=текст_элемента(размер=20));г <- г + масштаб_y_непрерывный(метки=процент)гdev.выкл();