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)