File:Opinion polling for the 2024 Moldovan presidential election.svg

此SVG文件的PNG预览的大小：800 × 356像素。其他分辨率：320 × 142像素 | 640 × 284像素 | 1,024 × 455像素 | 1,280 × 569像素 | 2,560 × 1,138像素 | 1,728 × 768像素。

原始文件（SVG文件，尺寸为1,728 × 768像素，文件大小：150 KB）

本文件并非来自中文维基百科，而是来自维基共享资源。请参阅维基共享资源上的详细描述、讨论页、页面历史、日志。

维基共享资源是一个储存自由版权作品的项目。您可以向此项目作出贡献。

摘要

描述

English: Opinion polling for the 2024 Moldovan presidential election (first round) using local regressions (LOESS)
Code template: https://gitlab.com/gbuvn1/opinion-polling-graph

ggplot.R

Sys.setlocale("LC_TIME", "English")
library(ggplot2)
library(anytime)
library(tidyverse)
library(svglite)
library(Rcpp)

polls <- read.table("CAT.csv", header=T, sep=",", fileEncoding="UTF-8", stringsAsFactor=F)
polls$polldate <- as.Date(anydate(polls$polldate))

spansize <- 0.75           # general smoothing parameter for trend line
nnum <- 600                 # number of points used for trendline (resolution)
startdate <- '2020-11-01'   # date of previous election
enddate <- '2024-10-20'     # (latest) date of next election

# retrieve party names from CSV
party1 <- colnames(polls)[2]
party2 <- colnames(polls)[3]
party3 <- colnames(polls)[4]
party4 <- colnames(polls)[5]
party5 <- colnames(polls)[6]
party6 <- colnames(polls)[7]
party7 <- colnames(polls)[8]
party8 <- colnames(polls)[9]

# define party colors (taken from https://en.wikipedia.org/wiki/Category:Germany_political_party_colour_templates)
col1 <- '#FFDE00'
col2 <- '#8B0000'
col3 <- '#054D7F'
col4 <- '#097F66'
col5 <- '#D2222A'
col6 <- '#71004B'
col7 <- '#5CBB72'
col8 <- '#5FE0E6'

transp <-'55'       # transparency level of points

graph <- ggplot(polls)+
  geom_vline(xintercept = as.Date(startdate), color='#aaaaaabb')+       # vertical line (last election)
  geom_vline(xintercept = as.Date(enddate), color='#aaaaaabb')+         # vertical line (next election)
  # geom_segment(aes(x=as.Date(startdate), xend=as.Date(enddate), y=50, yend=50), color='#666666bb', linetype='dashed')+      # horizontal line (election threshold 5%)
  # add poll points
  geom_point(aes_string(x='polldate',y=party1),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col1,transp),fill=paste0(col1,transp))+
  geom_point(aes_string(x='polldate',y=party2),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col2,transp),fill=paste0(col2,transp))+
  geom_point(aes_string(x='polldate',y=party3),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col3,transp),fill=paste0(col3,transp))+
  geom_point(aes_string(x='polldate',y=party4),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col4,transp),fill=paste0(col4,transp))+
  geom_point(aes_string(x='polldate',y=party5),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col5,transp),fill=paste0(col5,transp))+
  geom_point(aes_string(x='polldate',y=party6),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col6,transp),fill=paste0(col6,transp))+
  geom_point(aes_string(x='polldate',y=party7),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col7,transp),fill=paste0(col7,transp))+
  geom_point(aes_string(x='polldate',y=party8),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col8,transp),fill=paste0(col8,transp))+
  # add trend lines
  # the "span" (smoothing parameter) should be manually changed for individual parties that have less polling data
  geom_smooth(aes_string(x='polldate',y=party1,color=shQuote('col1')),method="loess",span=spansize,n=nnum,se=FALSE)+
  geom_smooth(aes_string(x='polldate',y=party2,color=shQuote('col2')),method="loess",span=spansize,n=nnum,se=FALSE)+
  geom_smooth(aes_string(x='polldate',y=party3,color=shQuote('col3')),method="loess",span=spansize,n=nnum,se=FALSE)+
  geom_smooth(aes_string(x='polldate',y=party4,color=shQuote('col4')),method="loess",span=spansize,n=nnum,se=FALSE)+
  geom_smooth(aes_string(x='polldate',y=party5,color=shQuote('col5')),method="loess",span=spansize,n=nnum,se=FALSE)+
  geom_smooth(aes_string(x='polldate',y=party6,color=shQuote('col6')),method="loess",span=spansize,n=nnum,se=FALSE)+
  geom_smooth(aes_string(x='polldate',y=party7,color=shQuote('col7')),method="loess",span=0.8,n=nnum,se=FALSE)+
  geom_smooth(aes_string(x='polldate',y=party8,color=shQuote('col8')),method="loess",span=spansize,n=nnum,se=FALSE)+
  scale_y_continuous(labels = function(x) paste0(x, "%"),limits=c(0,40))+    # add %, manual limits on y-axis
  scale_x_date(limits = as.Date(c(startdate,enddate)), date_minor_breaks = "1 months", date_breaks = "3 months", date_labels = "%b %Y")+    # grid: 1 month, labels: 3 months
  labs(x = "", y = "")+
  scale_color_manual(name="",
                     breaks = c('col1','col2','col3','col4','col5','col6','col7','col8'),
                     labels = c(party1,party2,party3,party4,party5,party6,party7,party8),
                     values = c('col1'=col1,'col2'=col2,'col3'=col3,'col4'=col4,'col5'=col5,'col6'=col6,'col7'=col7,'col8'=col8))+
  # legend appearance
  theme(
    axis.text.x = element_text(size = 11),
    axis.text.y = element_text(size = 12),
    axis.title.y = element_text(size = 16),
    legend.position="right",
    legend.key.width=unit(24, "pt"),
    legend.key.height=unit(24, "pt"),
    legend.text = element_text(size=16, margin = margin(b = 5, t = 5, unit = "pt")))

graph + theme()

ggsave(file="polls.svg", plot=graph, width=18, height=8)

# workaround since svglite doesn't properly work in Wikipedia
aaa=readLines("polls.svg",-1)
bbb <- gsub(".svglite ", "", aaa)
writeLines(bbb,"polls.svg")

CAT.csv

polldate,Sandu,Dodon,Usatii,Ceban,Voronin,Chicu,SOR candidates,Vlah
2020-11-01,36.16,32.61,16.90,,,,6.49,
2024-05-27,30.4,14.3,3.9,3.0,2.5,6.1,,1.6
2024-05-19,35.2,16.4,4.7,5.9,5.3,5.7,,4.1
2024-04-13,35.1,15.8,3.9,5.4,4.6,5.6,1.7,4.5
2024-03-24,27.9,13.3,3.0,4.4,2.6,5.7,,4.3
2024-02-22,30,24,4,6,,5,4,4
2024-02-12,29.8,14.8,4.4,4.5,1.6,5.0,8.5,4.8
2024-01-30,24.1,,,,,,,
2023-12-16,30.1,24.0,4.1,8.1,2.7,6.1,,5.6
2023-09-24,27.8,16.0,6.0,6.0,4.3,5.9,,4.9
2023-08-23,29.4,18.1,5.1,5.6,1.5,4.1,3.2,
2023-07-28,32.6,17.8,4.3,5.3,4.3,2.9,6.3,
2023-06-19,37.9,14.2,4.7,6.2,4.7,5.0,6,
2023-05-19,28.5,23.9,3.8,8.3,3.7,7.2,2.7,
2023-05-08,30.4,18.3,4.5,6.7,,5.9,12.2,2.8
2023-04-13,38.3,18.4,3.2,6.2,3.2,4.9,4.7,
2023-03-26,29.4,17.6,1.7,7.2,0.9,5.4,9.2,3.1
2023-03-03,31.8,17.8,2.0,4.7,3.5,3.3,3.8,2.1
2023-02-23,25.2,20.4,3.4,8.2,4.9,5.4,4.3,
2023-01-26,28.2,17.6,3.5,8.5,3.9,3.9,6.6,1.8
2022-12-26,27.2,24.1,0.5,10.0,0.6,5.0,13.6,0.1
2022-11-29,26.9,19.6,2.2,8.8,4.0,7.1,2.8,
2022-11-10,27.3,15.4,2.9,7.1,4.3,,9.1,
2022-10-11,34.1,19.1,3.3,7.1,5.2,2.5,6.3,1.2
2022-07-18,24.4,25.4,2.8,9.2,7.1,5.2,3.6,

日期

2024年6月24日

来源

自己的作品

作者

PLATEL

许可协议

我，本作品著作权人，特此采用以下许可协议发表本作品：

	本作品采用知识共享 CC0 1.0 通用公有领域贡献许可协议授权。
	采用本宣告发表本作品的人，已在法律允许的范围内，通过在全世界放弃其对本作品拥有的著作权法规定的所有权利（包括所有相关权利），将本作品贡献至公有领域。您可以复制、修改、传播和表演本作品，将其用于商业目的，无需要求授权。 CC0falsefalse

文件历史

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

	日期/时间	大小	用户	备注
当前	2024年11月3日 (日) 09:20	1,728 × 768（150 KB）	MonAx	File uploaded using svgtranslate tool (https://svgtranslate.toolforge.org/). Added translation for uk.
	2024年10月21日 (一) 09:07	1,728 × 768（143 KB）	PLATEL	text fix
	2024年10月21日 (一) 09:05	1,728 × 768（143 KB）	PLATEL	update (polls recounted without the undecided option)
	2024年6月24日 (一) 05:16	1,728 × 768（109 KB）	PLATEL	Uploaded own work with UploadWizard

文件用途

以下页面使用本文件：

2024年摩爾多瓦總統選舉

全域文件用途

以下其他wiki使用此文件：

cs.wikipedia.org上的用途
- Prezidentské volby v Moldavsku 2024
en.wikipedia.org上的用途
- 2024 Moldovan presidential election
es.wikipedia.org上的用途
- Elecciones presidenciales de Moldavia de 2024
fr.wikipedia.org上的用途
- Élection présidentielle moldave de 2024
it.wikipedia.org上的用途
- Elezioni presidenziali in Moldavia del 2024
ro.wikipedia.org上的用途
- Alegeri prezidențiale în Republica Moldova, 2024
uk.wikipedia.org上的用途
- Президентські вибори в Молдові 2024

元数据

此文件中包含有扩展的信息。这些信息可能是由数码相机或扫描仪在创建或数字化过程中所添加。

如果此文件的源文件已经被修改，一些信息在修改后的文件中将不能完全反映出来。

宽度	1296.00pt
高度	576.00pt

File:Opinion polling for the 2024 Moldovan presidential election.svg

摘要

许可协议

说明

此文件中描述的项目

描绘内容

创作作者

某些值没有维基数据项目

版权状态

受版权保护，并由版权所有者释出于公有领域 ^{简体中文（已转写）}

许可协议

CC0

文件来源 ^{简体中文（已转写）}

上传者的原创作品 ^{简体中文（已转写）}

成立或创建时间

24 6 2024

多媒体类型

image/svg+xml

文件历史

文件用途

全域文件用途

元数据

摘要

许可协议

说明

此文件中描述的项目

描绘内容

创作作者

某些值没有维基数据项目

版权状态

受版权保护，并由版权所有者释出于公有领域 简体中文（已转写）

许可协议

CC0

文件来源 简体中文（已转写）

上传者的原创作品 简体中文（已转写）

成立或创建时间

24 6 2024

多媒体类型

image/svg+xml

文件历史

文件用途

全域文件用途

元数据

受版权保护，并由版权所有者释出于公有领域 ^{简体中文（已转写）}

文件来源 ^{简体中文（已转写）}

上传者的原创作品 ^{简体中文（已转写）}