Dane

Bank Danych Lokalnych via API. Dane dot frekwencji w grupach wiekowych (w procentach): 38,6 (18–29 lat), 49,5 (39–39), 55,1 (40–49), 62,4 (50–59), 51,4 (60 i więcej).

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.4.4     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.0
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
source='źródło: Bank Danych Lokalnych'
p1 <- ggplot(d1, aes(x=gr, y=p *100)) +
  ylab(label="%") + 
  #ylab(label="") + 
  ggtitle('Ludność wg grup wiekowych w % (2022)') +
  geom_bar(stat="identity", fill='blue', alpha=.5) +
  geom_text(aes(label=sprintf("%.1f", p *100)), vjust=+1.25, color='white', size=3.5) +
  labs(caption=source)
p1

p2 <- ggplot(d1, aes(x=gr, y=val)) +
  ylab(label="") + 
  #ylab(label="") + 
  ggtitle('Liczba ludności w grupach wiekowych (2022)') +
  geom_bar(stat="identity", fill='blue', alpha=.5) +
  geom_text(aes(label=sprintf("%i", val)), vjust=+1.25, color='white', size=3.5) +
  labs(caption=source)
p2

label1 <- 'jeżeli w grupie 18-29 frekwencja wyniosłaby np. 50%\nto przełożyłoby się to na 535563 głosów więcej\n(1,6% większą frekwencję ogółem)'
p3 <- ggplot(d1, aes(x=gr, y=v)) +
  ylab(label="") + 
  #ylab(label="") + 
  annotate("text", x = "gr18_29", y = 4000000, label = label1, hjust = 0, size=3, alpha=.9) +
  ggtitle('Głosujący w grupach wiekowych', subtitle='liczba ludności w 2022 x frekwencja podana ') +
  geom_bar(stat="identity", fill='blue', alpha=.5) +
  geom_text(aes(label=sprintf("%.0f", v)), vjust=+1.25, color='white', size=3.5) +
  geom_text(aes(label=sprintf("(%.1f%%)", f * 100)), vjust=+3.25, color='yellow', size=3.5) +
  labs(caption=source)
p3

ggsave(p1, file='frek24.png')
## Saving 7 x 5 in image
ggsave(p2, file='llud24.png')
## Saving 7 x 5 in image
ggsave(p3, file='lglo24.png')
## Saving 7 x 5 in image