README.md

In tomasbarcellos/marini:

marini

Installation

remotes::install_github("tomasbarcellos/marini)

Example

Para conhecer os textos com o termo “subimperislimo” no título podemos usar:

library(marini)
library(dplyr)
"subimperialismo" %>% 
  busca_marini() %>% 
  nuvem()

Por exemplo as fontes mais comuns são:

library(stringr)
textos_marini %>% 
  mutate(fonte = str_remove(fonte, "[,\\.].+")) %>% 
  count(fonte, sort = TRUE)
#> # A tibble: 54 x 2
#>    fonte                                    n
#>    <chr>                                <int>
#>  1 Archivo de Ruy Mauro Marini            136
#>  2 El reformismo y la contrarrevolución    28
#>  3 El Sol de México                        26
#>  4 Correo de la Resistencia                20
#>  5 Excélsior                               16
#>  6 Ruy Mauro Marini                        12
#>  7 Punto Final Internacional                7
#>  8 Cuadernos Políticos n                    6
#>  9 El Universal                             4
#> 10 Subdesarrollo y Revolución               4
#> # … with 44 more rows

A evolução da produção anual de Marini:

library(ggplot2)
textos_marini %>% 
  count(ano, sort = TRUE) %>% 
  ggplot(aes(ano, n)) + 
  geom_col(fill = "darkred") + 
  theme_minimal() + 
  theme(panel.grid.minor = element_blank(),
        panel.grid.major.y = element_line(linetype = 2, color = "gray50"),
        panel.grid.major.x = element_line(linetype = 4)) +
  scale_x_continuous(breaks = seq(1965, 1996, 5))

Se quisermos conhecer o conteúdo dos artigos do Sol do México:

textos_marini %>% 
  mutate(fonte = str_remove(fonte, "[,\\.].+")) %>% 
  filter(fonte == "El Sol de México") %>% 
  nuvem()

O exemplo abaixo apresenta os textos que contém o termo rascismo e uma núvem de palavras de seus conteúdos.

racismo <- textos_marini %>% 
  filter(str_detect(texto, "racismo")) 

racismo
#> # A tibble: 5 x 5
#>      id titulo           fonte                    ano texto                
#>   <int> <chr>            <chr>                  <dbl> <chr>                
#> 1   109 El camino legal… El reformismo y la co…  1976 "Una de las dificult…
#> 2    71 Brasil: da dita… "Archivo de Ruy Mauro…  1990 "No curso da década …
#> 3    86 Las raíces del … Archivo de Ruy Mauro …  1994 "El pensamiento soci…
#> 4   109 El camino legal… El reformismo y la co…  1976 "Una de las dificult…
#> 5   131 La influencia d… Excélsior, México, 11…  1976 La importancia de Áf…
nuvem(racismo)

tomasbarcellos/marini documentation built on June 17, 2020, 7 a.m.