In mcnakhaee/delgosha: An opinionated package with additional RTL ggplot2 themes and palettes for Persian

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

Installation

remotes::install_github('mcnakhaee/delgosha')

Basic Usage

library(delgosha)
library(tidyverse)


spotify <- dadegan::spotify
spotify %>% 
  filter(artist_name %in% c('Alireza Eftekhari','Mohammadreza Shajarian','Alireza Ghorbani')) %>% 
  ggplot((aes(valence,popularity,color = artist_name_farsi))) +
  geom_point(alpha = 0.6,size = 3) +
  labs(x = 'شادی',
       y = 'محبوبیت',
       title = 'مقایسه ای بین محبوبیت و شادی آهنگ های سه خواننده محبوب سنتی',
       subtitle = '',
       caption =  'مصورسازی: محمد چناریان نخعی',
       color = '') +
  facet_wrap(~artist_name_farsi) +
  scale_color_farsh() +
  theme_farsh_fa()

factnameh <- dadegan::factnameh


factnameh %>%
  count(tags, sort = TRUE) %>%
  filter(!is.na(tags)) %>%
  slice(1:10) %>%
  ggplot(aes(fct_reorder(tags, n), n)) +
  geom_col() +
  coord_flip() +
  labs(
    x = '',
    y = '',
    title = 'موضوعات با بیشترین تعداد درستی سنجی',
    subtitle = 'بیشترین برچسب هایی که در مقالات درستی سنجی وبسایت فکت نامه مورد استفاده قرار  گرفته اند.'
  ) +
  theme_hamshahri()

Fonts

colors <- c(
  'احمدی نژاد' =   '#F94144',
  'کروبی' =         '#F94144',
  'موسوی' =   '#F94144',
  'رضائی' =   '#F94144',
  'آرای باطله' =   '#F94144'

)
grid <- read_csv('data/iran_provinces.csv')
iran_2009_election <- read_csv('data/iran.csv')
provinces <- iran_2009_election %>% 
  distinct(province) %>% 
  pull()
grid_filtered <- grid %>% 
  filter(name %in% provinces)

iran_2009_election %>%
  pivot_longer(
    cols = c("ahmadinejad":"mousavi", "voided_votes"),
    names_to = 'candidate',
    values_to = 'votes'
  ) %>%
  mutate(percentage_votes = (votes / total_votes_cast) * 100) %>%
  group_by(province, candidate) %>%
  summarise(mean_percentage_votes = mean(percentage_votes),
            share_votes = as.integer(mean_percentage_votes)) %>%
  #mutate(share_votes = as.integer(round(mean_percentage_votes))) %>%
  mutate(candidate_name_fa = plyr::mapvalues(
    candidate,
    c('ahmadinejad', 'karrubi', 'mousavi', 'rezai', 'voided_votes'),
    c('احمدی نژاد',
      'کروبی',
      'موسوی',
      'رضائی',
      'آرای باطله')
  )) %>%
  left_join(grid_filtered, by = c('province' = 'name')) %>%

  write_csv('data/iran_election_2009.csv')

library(waffle)
colors <- c(
   'ahmadinejad' = '#F94144',
  'karrubi' = '#9c89b8',
  'mousavi' = '#43AA8B',
  'rezai' = '#577590',
  'voided_votes' = '#F3722C'
)

iran_election_2009 %>%
  ggplot(aes(fill = candidate, values = share_votes)) +
  geom_waffle(
    n_rows = 10,
    size = 2,
    make_proportional = TRUE,
    color = 'white',
    flip = TRUE
  ) +
  scale_x_discrete(expand = c(0, 0)) +
  scale_y_discrete(expand = c(0, 0)) +
  scale_fill_manual(
    values = colors,
    labels = c('احمدی نژاد',
               'کروبی',
               'موسوی',
               'رضائی',
               'آرای باطله')
  ) +
  labs(title = 'سهم رای کاندیدهای ریاست جمهوری در انتخابات سال 88',
       fill = '') +
  facet_wrap(~ name_farsi) +
  theme_void() +
  theme_fa(
    strip_text_size = 25,
    plot_title_size = 35,
    plot_title_margin = 20
  ) +
  theme(
    plot.margin = margin(30, 30, 30, 30),
    legend.position = 'top',
    legend.text = element_text(size = 25, margin = margin(b = 10)),
    strip.text = element_text(margin = margin(t = 10, b = 10)),
    panel.spacing.x = unit(2, "lines"),
    panel.spacing.y = unit(2, "lines")
  )

mcnakhaee/delgosha documentation built on Oct. 18, 2020, 8:55 a.m.