Политическа ориентация на българските партии през годините

Политическа ориентация на българските партии през годините

Използвам данни от https://manifesto-project.wzb.eu/, за да визуализирам RILE score на партиите, за които са събирали програмите. Този score показва колко лява или дясна е една партия според програмите им, смята се процент десни изречения минус процент леви такива. 0 център, -20 до 0 е център-ляво. От 20 надолу се смята за крайно ляво. Огледално за дясното. Датата на съответните избори се виждат като текст като преместите мишката да седи над точка от графиката.

Всички избори 1990-2017

Избори 10.06.1990

plot_1990

p

Избори 13.10.1991

plot_1991

p

Избори 18.12.1994

plot_1994

p

Избори 19.04.1997

plot_1997

p

Избори 17.06.2001

plot_2001

p

Избори 25.06.2005

plot_2005

p

Избори 05.07.2009

plot_2009

p

Избори 12.05.2013

plot_2013

p

Избори 05.10.2014

plot_2014

## Warning: Ignoring 1 observations

p

Избори 26.03.2017

plot_2017

p

ГЕРБ средно

gerb_data <- bulgaria_data %>%
  filter(partyabbrev == "GERB")

# Calculate average RILE score for GERB
average_rile_gerb <- gerb_data %>%
  summarize(avg_rile = mean(rile, na.rm = TRUE))

# Print the average RILE score for GERB
print(average_rile_gerb)

## # A tibble: 1 × 1
##   avg_rile
##      <dbl>
## 1     1.48

БСП

bsp_data <- bulgaria_data %>%
  filter(grepl("BSP|KzB", partyname, ignore.case = TRUE))

# Calculate average RILE score for these parties
average_rile_bsp <- bsp_data %>%
  summarize(avg_rile = mean(rile, na.rm = TRUE))

# Print the average RILE score for BSP-related parties
print(average_rile_bsp)

## # A tibble: 1 × 1
##   avg_rile
##      <dbl>
## 1    -8.91

АТАКА

ataka_data <- bulgaria_data %>%
  filter(grepl("ATAKA", partyabbrev, ignore.case = TRUE))

# Calculate average RILE score for these parties
average_rile_ataka <- ataka_data %>%
  summarize(avg_rile = mean(rile, na.rm = TRUE))

# Print the average RILE score for BSP-related parties
print(average_rile_ataka)

## # A tibble: 1 × 1
##   avg_rile
##      <dbl>
## 1    -4.22

ДПС

dps_data <- bulgaria_data %>%
  filter(grepl("DPS", partyabbrev, ignore.case = TRUE))

# Calculate average RILE score for these parties
average_rile_dps <- dps_data %>%
  summarize(avg_rile = mean(rile, na.rm = TRUE))

# Print the average RILE score for BSP-related parties
print(average_rile_dps)

## # A tibble: 1 × 1
##   avg_rile
##      <dbl>
## 1     3.52