Load required libraries

suppressPackageStartupMessages(library(tidyverse))
#library(googlesheets4)
library(ggrepel)
library(ggthemes)
library(ggthemr)

Loads screenplay scene list

df_escaleta <- read_csv("escaleta.csv")

Numero da Cena	Nome da Cena	Abrev Cena	Lugar	Personagens	Tempo	Ano da Cena
1	Reza em Iorubá	Iorubá	SG	PSL, FIG1	Forward	2015
2	Leitura da Torá	Torá	PoA	FIG2	Forward	2014
3	Reencontro com Filha	Reencontro	Ale	D, E	to	2013
4	Memorial dos Mortos	Memorial	Ale	D, E	t1	2013

Make sure all scene names are unique

df_escaleta %>% count(`Abrev Cena`) %>% count(n)

## # A tibble: 1 x 2
##       n    nn
##   <int> <int>
## 1     1    84

Counting scenes per year

df_escaleta %>%
  ggplot(aes(x=`Ano da Cena`)) +
  geom_bar(stat="count") +
  coord_flip()

Data Wrangles to prepare plot

df_ren <- df_escaleta %>%
  rename(ano=`Ano da Cena`,
         cena=`Numero da Cena`,
         abrev=`Abrev Cena`,
         nome=`Nome da Cena`) %>%
  arrange(cena)

abrev_kap <- "Kaparot|Festa 2|Faca 3|Vernissage|Rabina"
kap <- df_ren%>%
  filter(abrev%>%str_detect(abrev_kap))%>%
  pull(cena)

main_line <- 2010:2050
df_out <- df_ren %>% filter(!(ano%in%main_line))
df_main <- df_ren %>% filter(ano%in%main_line) %>%
  mutate(hjust=if_else(cena%in%kap,"right","left"),
         nudge_y=if_else(cena%in%kap,-1,1.5))

Create timeline plot

ggthemr('solarized', type = 'outer')

## Warning: New theme missing the following elements: panel.grid, plot.tag,
## plot.tag.position

timeline_plot <- df_ren %>%
  ggplot(aes(x=cena,y=ano)) +
  geom_step(color="gray") +
  geom_point() +
  geom_text(aes(x=cena,y=nudge_y+ano,label=abrev,hjust=hjust),
            angle=45,size=2.5,
            inherit.aes=F,
            data=df_main) +
  geom_text_repel(aes(x=cena,y=ano,label=sprintf("%s (%d)",abrev,ano)),size=2.5,
                  hjust="left",inherit.aes=F,
                  data=df_out) +
  coord_fixed(ratio=.33
              ,ylim=c(min(df_ren$ano),2040)
              ,xlim=c(1,nrow(df_ren)+2)
              ) +
  scale_y_continuous(breaks=seq(1900,2040,10)) +
  scale_x_continuous(breaks=c(1,seq(5,max(df_ren$cena),5))) +
  theme(axis.text.y = element_text(angle = 0, hjust = 1))

ggsave("faca.png",width=16,height=8,plot=timeline_plot)