R Markdown e Mineração de Texto

1. “Eu tenho um sonho…”

Martin Luther King Jr. proferiu o discurso “Eu Tenho um Sonho” durante a Marcha em Washington por Empregos e Liberdade, em 1963. Nesse discurso, ele compartilhou sua visão de uma América mais justa, igualitária e livre da discriminação racial e da segregação. Suas palavras têm inspirado a luta contínua pelos direitos civis e pela harmonia entre todas as raças e culturas.

Através das abordagens de amáçise e mineração de texto é possível ter um panorama dos temas presentes no discruso:

Nuvem de Palavras

  • Primerio, o discurso é associado a uma variável do R:
mlk = '"Eu estou contente em unir-me com vocês no dia que entrará para a história como a maior demonstração pela liberdade na história de nossa nação.

Cem anos atrás, um grande americano, na qual estamos sob sua simbólica sombra, assinou a Proclamação de Emancipação. Esse importante decreto veio como um grande farol de esperança para milhões de escravos negros que tinham murchados nas chamas da injustiça. Ele veio como uma alvorada para terminar a longa noite de seus cativeiros.
Mas cem anos depois, o Negro ainda não é livre.
Cem anos depois, a vida do Negro ainda é tristemente inválida pelas algemas da segregação e as cadeias de discriminação.
Cem anos depois, o Negro vive em uma ilha só de pobreza no meio de um vasto oceano de prosperidade material. Cem anos depois, o Negro ainda adoece nos cantos da sociedade americana e se encontram exilados em sua própria terra. Assim, nós viemos aqui hoje para dramatizar sua vergonhosa condição.

De certo modo, nós viemos à capital de nossa nação para trocar um cheque. Quando os arquitetos de nossa república escreveram as magníficas palavras da Constituição e a Declaração da Independência, eles estavam assinando uma nota promissória para a qual todo americano seria seu herdeiro. Esta nota era uma promessa que todos os homens, sim, os homens negros, como também os homens brancos, teriam garantidos os direitos inalienáveis de vida, liberdade e a busca da felicidade. Hoje é óbvio que aquela América não apresentou esta nota promissória. Em vez de honrar esta obrigação sagrada, a América deu para o povo negro um cheque sem fundo, um cheque que voltou marcado com "fundos insuficientes".

Mas nós nos recusamos a acreditar que o banco da justiça é falível. Nós nos recusamos a acreditar que há capitais insuficientes de oportunidade nesta nação. Assim nós viemos trocar este cheque, um cheque que nos dará o direito de reclamar as riquezas de liberdade e a segurança da justiça.

Nós também viemos para recordar à América dessa cruel urgência. Este não é o momento para descansar no luxo refrescante ou tomar o remédio tranqüilizante do gradualismo.
Agora é o tempo para transformar em realidade as promessas de democracia.
Agora é o tempo para subir do vale das trevas da segregação ao caminho iluminado pelo sol da justiça racial.
Agora é o tempo para erguer nossa nação das areias movediças da injustiça racial para a pedra sólida da fraternidade. Agora é o tempo para fazer da justiça uma realidade para todos os filhos de Deus.

Seria fatal para a nação negligenciar a urgência desse momento. Este verão sufocante do legítimo descontentamento dos Negros não passará até termos um renovador outono de liberdade e igualdade. Este ano de 1963 não é um fim, mas um começo. Esses que esperam que o Negro agora estará contente, terão um violento despertar se a nação votar aos negócios de sempre

. Mas há algo que eu tenho que dizer ao meu povo que se dirige ao portal que conduz ao palácio da justiça. No processo de conquistar nosso legítimo direito, nós não devemos ser culpados de ações de injustiças. Não vamos satisfazer nossa sede de liberdade bebendo da xícara da amargura e do ódio. Nós sempre temos que conduzir nossa luta num alto nível de dignidade e disciplina. Nós não devemos permitir que nosso criativo protesto se degenere em violência física. Novamente e novamente nós temos que subir às majestosas alturas da reunião da força física com a força de alma. Nossa nova e maravilhosa combatividade mostrou à comunidade negra que não devemos ter uma desconfiança para com todas as pessoas brancas, para muitos de nossos irmãos brancos, como comprovamos pela presença deles aqui hoje, vieram entender que o destino deles é amarrado ao nosso destino. Eles vieram perceber que a liberdade deles é ligada indissoluvelmente a nossa liberdade. Nós não podemos caminhar só.

E como nós caminhamos, nós temos que fazer a promessa que nós sempre marcharemos à frente. Nós não podemos retroceder. Há esses que estão perguntando para os devotos dos direitos civis, "Quando vocês estarão satisfeitos?"

Nós nunca estaremos satisfeitos enquanto o Negro for vítima dos horrores indizíveis da brutalidade policial. Nós nunca estaremos satisfeitos enquanto nossos corpos, pesados com a fadiga da viagem, não poderem ter hospedagem nos motéis das estradas e os hotéis das cidades. Nós não estaremos satisfeitos enquanto um Negro não puder votar no Mississipi e um Negro em Nova Iorque acreditar que ele não tem motivo para votar. Não, não, nós não estamos satisfeitos e nós não estaremos satisfeitos até que a justiça e a retidão rolem abaixo como águas de uma poderosa correnteza.

Eu não esqueci que alguns de você vieram até aqui após grandes testes e sofrimentos. Alguns de você vieram recentemente de celas estreitas das prisões. Alguns de vocês vieram de áreas onde sua busca pela liberdade lhe deixaram marcas pelas tempestades das perseguições e pelos ventos de brutalidade policial. Você são o veteranos do sofrimento. Continuem trabalhando com a fé que sofrimento imerecido é redentor. Voltem para o Mississippi, voltem para o Alabama, voltem para a Carolina do Sul, voltem para a Geórgia, voltem para Louisiana, voltem para as ruas sujas e guetos de nossas cidades do norte, sabendo que de alguma maneira esta situação pode e será mudada. Não se deixe caiar no vale de desespero.

Eu digo a você hoje, meus amigos, que embora nós enfrentemos as dificuldades de hoje e amanhã. Eu ainda tenho um sonho. É um sonho profundamente enraizado no sonho americano.

Eu tenho um sonho que um dia esta nação se levantará e viverá o verdadeiro significado de sua crença - nós celebraremos estas verdades e elas serão claras para todos, que os homens são criados iguais.

Eu tenho um sonho que um dia nas colinas vermelhas da Geórgia os filhos dos descendentes de escravos e os filhos dos desdentes dos donos de escravos poderão se sentar junto à mesa da fraternidade.

Eu tenho um sonho que um dia, até mesmo no estado de Mississippi, um estado que transpira com o calor da injustiça, que transpira com o calor de opressão, será transformado em um oásis de liberdade e justiça.

Eu tenho um sonho que minhas quatro pequenas crianças vão um dia viver em uma nação onde elas não serão julgadas pela cor da pele, mas pelo conteúdo de seu caráter. Eu tenho um sonho hoje!

Eu tenho um sonho que um dia, no Alabama, com seus racistas malignos, com seu governador que tem os lábios gotejando palavras de intervenção e negação; nesse justo dia no Alabama meninos negros e meninas negras poderão unir as mãos com meninos brancos e meninas brancas como irmãs e irmãos. Eu tenho um sonho hoje!

Eu tenho um sonho que um dia todo vale será exaltado, e todas as colinas e montanhas virão abaixo, os lugares ásperos serão aplainados e os lugares tortuosos serão endireitados e a glória do Senhor será revelada e toda a carne estará junta.

Esta é nossa esperança. Esta é a fé com que regressarei para o Sul. Com esta fé nós poderemos cortar da montanha do desespero uma pedra de esperança. Com esta fé nós poderemos transformar as discórdias estridentes de nossa nação em uma bela sinfonia de fraternidade. Com esta fé nós poderemos trabalhar juntos, rezar juntos, lutar juntos, para ir encarcerar juntos, defender liberdade juntos, e quem sabe nós seremos um dia livre. Este será o dia, este será o dia quando todas as crianças de Deus poderão cantar com um novo significado.

"Meu país, doce terra de liberdade, eu te canto.

Terra onde meus pais morreram, terra do orgulho dos peregrinos,

De qualquer lado da montanha, ouço o sino da liberdade!"

E se a América é uma grande nação, isto tem que se tornar verdadeiro.

E assim ouvirei o sino da liberdade no extraordinário topo da montanha de New Hampshire.

Ouvirei o sino da liberdade nas poderosas montanhas poderosas de Nova York.

Ouvirei o sino da liberdade nos engrandecidos Alleghenies da Pennsylvania.

Ouvirei o sino da liberdade nas montanhas cobertas de neve Rockies do Colorado.

Ouvirei o sino da liberdade nas ladeiras curvas da Califórnia.

Mas não é só isso. Ouvirei o sino da liberdade na Montanha de Pedra da Geórgia.

Ouvirei o sino da liberdade na Montanha de Vigilância do Tennessee.

Ouvirei o sino da liberdade em todas as colinas do Mississipi.

Em todas as montanhas, ouviu o sino da liberdade.

E quando isto acontecer, quando nós permitimos o sino da liberdade soar, quando nós deixarmos ele soar em toda moradia e todo vilarejo, em todo estado e em toda cidade, nós poderemos acelerar aquele dia quando todas as crianças de Deus, homens pretos e homens brancos, judeus e gentios, protestantes e católicos, poderão unir mãos e cantar nas palavras do velho spiritual negro:

"Livre afinal, livre afinal.

Agradeço ao Deus todo-poderoso, nós somos livres afinal."'

Andrade et al. (2009) - Agora o texto precisa ser tratdo para remover espaços em branco, organizar todos os caracteres no mesmo formato, remover palavras que não irão contribuir pro entendimento do texto, entre outros ajustes. Para isso, as bilbiotecas “tm” e “wordcloud” serão necessárias.

chooseCRANmirror(graphics=FALSE, ind=1)
install.packages("tm")
## Installing package into 'C:/Users/victor.silva/AppData/Local/R/win-library/4.3'
## (as 'lib' is unspecified)
## package 'tm' successfully unpacked and MD5 sums checked
## 
## The downloaded binary packages are in
##  C:\Users\victor.silva\AppData\Local\Temp\RtmpKunci3\downloaded_packages
install.packages("wordcloud")
## Installing package into 'C:/Users/victor.silva/AppData/Local/R/win-library/4.3'
## (as 'lib' is unspecified)
## package 'wordcloud' successfully unpacked and MD5 sums checked
## 
## The downloaded binary packages are in
##  C:\Users\victor.silva\AppData\Local\Temp\RtmpKunci3\downloaded_packages
library(tm)
## Warning: package 'tm' was built under R version 4.3.1
## Carregando pacotes exigidos: NLP
library(wordcloud)
## Warning: package 'wordcloud' was built under R version 4.3.1
## Carregando pacotes exigidos: RColorBrewer
## Transformando para o formato copus
mlk <- VectorSource(mlk)
corpus <- Corpus(mlk)

#Tudo minúsculo
corpus <- tm_map(corpus, content_transformer(tolower))
## Warning in tm_map.SimpleCorpus(corpus, content_transformer(tolower)):
## transformation drops documents
#Removendo pontuação
corpus <- tm_map(corpus, removePunctuation)
## Warning in tm_map.SimpleCorpus(corpus, removePunctuation): transformation drops
## documents
#Removendo espaços em branco
corpus <- tm_map(corpus, stripWhitespace)
## Warning in tm_map.SimpleCorpus(corpus, stripWhitespace): transformation drops
## documents
#Removendo Números
corpus<- tm_map(corpus, removeNumbers)
## Warning in tm_map.SimpleCorpus(corpus, removeNumbers): transformation drops
## documents
#Removendo palavras que não interferem no entendimento do texto
corpus <- tm_map(corpus, removeWords, stopwords("portuguese"))
## Warning in tm_map.SimpleCorpus(corpus, removeWords, stopwords("portuguese")):
## transformation drops documents
#Corpus terá o seguinte formato 
inspect(corpus)
## <<SimpleCorpus>>
## Metadata:  corpus specific: 1, document level (indexed): 0
## Content:  documents: 1
## 
## [1]   contente  unirme    dia  entrará   história   maior demonstração  liberdade  história   nação cem anos atrás  grande americano    sob  simbólica sombra assinou  proclamação  emancipação  importante decreto veio   grande farol  esperança  milhões  escravos negros   murchados  chamas  injustiça  veio   alvorada  terminar  longa noite   cativeiros  cem anos   negro ainda  é livre cem anos   vida  negro ainda é tristemente inválida  algemas  segregação   cadeias  discriminação cem anos   negro vive   ilha   pobreza  meio   vasto oceano  prosperidade material cem anos   negro ainda adoece  cantos  sociedade americana   encontram exilados   própria terra assim  viemos aqui hoje  dramatizar  vergonhosa condição  certo modo  viemos  capital   nação  trocar  cheque   arquitetos   república escreveram  magníficas palavras  constituição   declaração  independência   assinando  nota promissória    todo americano   herdeiro  nota   promessa  todos  homens sim  homens negros    homens brancos  garantidos  direitos inalienáveis  vida liberdade   busca  felicidade hoje é óbvio   américa  apresentou  nota promissória  vez  honrar  obrigação sagrada  américa deu   povo negro  cheque  fundo  cheque  voltou marcado  fundos insuficientes    recusamos  acreditar   banco  justiça é falível   recusamos  acreditar   capitais insuficientes  oportunidade nesta nação assim  viemos trocar  cheque  cheque   dará  direito  reclamar  riquezas  liberdade   segurança  justiça   viemos  recordar  américa dessa cruel urgência   é  momento  descansar  luxo refrescante  tomar  remédio tranqüilizante  gradualismo agora é  tempo  transformar  realidade  promessas  democracia agora é  tempo  subir  vale  trevas  segregação  caminho iluminado  sol  justiça racial agora é  tempo  erguer  nação  areias movediças  injustiça racial   pedra sólida  fraternidade agora é  tempo  fazer  justiça  realidade  todos  filhos  deus  fatal   nação negligenciar  urgência desse momento  verão sufocante  legítimo descontentamento  negros  passará  termos  renovador outono  liberdade  igualdade  ano    é  fim   começo   esperam   negro agora estará contente   violento despertar   nação votar  negócios  sempre   algo     dizer   povo   dirige  portal  conduz  palácio  justiça  processo  conquistar  legítimo direito   devemos ser culpados  ações  injustiças  vamos satisfazer  sede  liberdade bebendo  xícara  amargura   ódio  sempre   conduzir  luta  alto nível  dignidade  disciplina   devemos permitir   criativo protesto  degenere  violência física novamente  novamente    subir  majestosas alturas  reunião  força física   força  alma  nova  maravilhosa combatividade mostrou  comunidade negra   devemos ter  desconfiança   todas  pessoas brancas  muitos   irmãos brancos  comprovamos  presença  aqui hoje vieram entender   destino  é amarrado   destino  vieram perceber   liberdade  é ligada indissoluvelmente   liberdade   podemos caminhar     caminhamos    fazer  promessa   sempre marcharemos  frente   podemos retroceder     perguntando   devotos  direitos civis   estarão satisfeitos  nunca estaremos satisfeitos enquanto  negro  vítima  horrores indizíveis  brutalidade policial  nunca estaremos satisfeitos enquanto  corpos pesados   fadiga  viagem  poderem ter hospedagem  motéis  estradas   hotéis  cidades   estaremos satisfeitos enquanto  negro  puder votar  mississipi   negro  nova iorque acreditar     motivo  votar      satisfeitos    estaremos satisfeitos    justiça   retidão rolem abaixo  águas   poderosa correnteza   esqueci  alguns   vieram  aqui após grandes testes  sofrimentos alguns   vieram recentemente  celas estreitas  prisões alguns   vieram  áreas onde  busca  liberdade  deixaram marcas  tempestades  perseguições   ventos  brutalidade policial    veteranos  sofrimento continuem trabalhando   fé  sofrimento imerecido é redentor voltem   mississippi voltem   alabama voltem   carolina  sul voltem   geórgia voltem  louisiana voltem   ruas sujas  guetos   cidades  norte sabendo   alguma maneira  situação pode   mudada   deixe caiar  vale  desespero  digo   hoje  amigos  embora  enfrentemos  dificuldades  hoje  amanhã  ainda   sonho é  sonho profundamente enraizado  sonho americano    sonho   dia  nação  levantará  viverá  verdadeiro significado   crença  celebraremos  verdades    claras  todos   homens  criados iguais    sonho   dia  colinas vermelhas  geórgia  filhos  descendentes  escravos   filhos  desdentes  donos  escravos poderão  sentar junto  mesa  fraternidade    sonho   dia    estado  mississippi  estado  transpira   calor  injustiça  transpira   calor  opressão  transformado   oásis  liberdade  justiça    sonho   quatro pequenas crianças vão  dia viver   nação onde    julgadas  cor  pele   conteúdo   caráter    sonho hoje    sonho   dia  alabama   racistas malignos   governador    lábios gotejando palavras  intervenção  negação nesse justo dia  alabama meninos negros  meninas negras poderão unir  mãos  meninos brancos  meninas brancas  irmãs  irmãos    sonho hoje    sonho   dia todo vale  exaltado  todas  colinas  montanhas virão abaixo  lugares ásperos  aplainados   lugares tortuosos  endireitados   glória  senhor  revelada  toda  carne estará junta  é  esperança  é  fé   regressarei   sul   fé  poderemos cortar  montanha  desespero  pedra  esperança   fé  poderemos transformar  discórdias estridentes   nação   bela sinfonia  fraternidade   fé  poderemos trabalhar juntos rezar juntos lutar juntos  ir encarcerar juntos defender liberdade juntos   sabe    dia livre    dia    dia  todas  crianças  deus poderão cantar   novo significado  país doce terra  liberdade   canto terra onde  pais morreram terra  orgulho  peregrinos  qualquer lado  montanha ouço  sino  liberdade    américa é  grande nação     tornar verdadeiro  assim ouvirei  sino  liberdade  extraordinário topo  montanha  new hampshire ouvirei  sino  liberdade  poderosas montanhas poderosas  nova york ouvirei  sino  liberdade  engrandecidos alleghenies  pennsylvania ouvirei  sino  liberdade  montanhas cobertas  neve rockies  colorado ouvirei  sino  liberdade  ladeiras curvas  califórnia   é   ouvirei  sino  liberdade  montanha  pedra  geórgia ouvirei  sino  liberdade  montanha  vigilância  tennessee ouvirei  sino  liberdade  todas  colinas  mississipi  todas  montanhas ouviu  sino  liberdade    acontecer   permitimos  sino  liberdade soar   deixarmos  soar  toda moradia  todo vilarejo  todo estado   toda cidade  poderemos acelerar  dia  todas  crianças  deus homens pretos  homens brancos judeus  gentios protestantes  católicos poderão unir mãos  cantar  palavras  velho spiritual negro livre afinal livre afinal agradeço  deus todopoderoso   livres afinal
## Nuvem de Palavras

wordcloud(corpus, min.freq = 1, max.words=60, random.order=F, rot.per=0.35, colors=brewer.pal(8, "Dark2"))

Nesta nuvem de palavras, palavras como, “liberdade”, “sonho”, “nação” e “negro” estão em destaque, pois são termos-chave que refletem os principais temas abordados por Martin Luther King Jr. no seu discurso. Ao criar a nuvem de palavras, os termos mais recorrentes e impactantes do discurso de Martin Luther King Jr. foram destacados, proporcionando uma representação visual poderosa das mensagens e ideais que ele compartilhou com o mundo durante a Marcha em Washington por Empregos e Liberdade em 1963.

Araujo et al. (2018),

2. Tweets

Araujo et al. (2014)

3. Equções com Latex

LaTeX é um sistema de preparação de documentos amplamente utilizado para criar textos com alta qualidade tipográfica. É popular em campos acadêmicos, científicos e técnicos devido à sua eficiência na manipulação de fórmulas matemáticas e gráficos complexos. LaTeX separa o conteúdo do documento da formatação, permitindo que os escritores se concentrem no conteúdo sem se preocupar com o design. É altamente customizável e permite criar documentos profissionais, incluindo artigos acadêmicos, teses, livros e apresentações.

A seguir alguns exemplos do uso de Latex com R markdown:

  • A identidade de Euler: \(e^{i\pi} + 1 = 0\)

  • A forma geral de um número complexo: \(z = a + bi\)

  • A definição do conjugado complexo de um número complexo: \(z^* = a - bi\)

  • A fórmula para calcular o módulo (magnitude) de um número complexo: \(|z| = \sqrt{a^2 + b^2}\)

  • O teorema de De Moivre, que expressa um número complexo na forma polar \(z = r(\cos \theta + i \sin \theta)\)

Paes et al. (2022)

4. Imagens e Tabelas

Importando Imagens

  • Information Cloud Figura 1

  • Sharing Words Figura 2

Importando Tabelas

install.packages("DT")
## Installing package into 'C:/Users/victor.silva/AppData/Local/R/win-library/4.3'
## (as 'lib' is unspecified)
## package 'DT' successfully unpacked and MD5 sums checked
## 
## The downloaded binary packages are in
##  C:\Users\victor.silva\AppData\Local\Temp\RtmpKunci3\downloaded_packages
install.packages("data.table")
## Installing package into 'C:/Users/victor.silva/AppData/Local/R/win-library/4.3'
## (as 'lib' is unspecified)
## package 'data.table' successfully unpacked and MD5 sums checked
## 
## The downloaded binary packages are in
##  C:\Users\victor.silva\AppData\Local\Temp\RtmpKunci3\downloaded_packages
library(DT)
## Warning: package 'DT' was built under R version 4.3.1
library(data.table)
## Warning: package 'data.table' was built under R version 4.3.1
## Tabela dados
dados <- data.table(
  Nome = c("João", "Maria", "Pedro", "Ana"),
  Idade = c(30, 25, 32, 28),
  Salario = c(4000, 3500, 4200, 3800)
)

datatable(dados)
## Tabela vendas
vendas <- data.frame(
  Produto = c("Camiseta", "Calça", "Tênis", "Boné", "Jaqueta"),
  Quantidade_Vendida = c(50, 30, 25, 40, 20),
  Preco_Unitario = c(25.99, 39.99, 79.99, 12.99, 59.99),
  Total_Vendido = c(1299.50, 1199.70, 1999.75, 519.60, 1199.80)
)

datatable(vendas)

Lima, Falcão, and Andrade (2021)

Referencia

Andrade, Ermeson, Paulo Maciel, Gustavo Callou, and Bruno Nogueira. 2009. “A Methodology for Mapping Sysml Activity Diagram to Time Petri Net for Requirement Validation of Embedded Real-Time Systems with Energy Constraints.” In 2009 Third International Conference on Digital Society, 266–71. IEEE.
Araujo, Julian, Paulo Maciel, Ermeson Andrade, Gustavo Callou, Vandi Alves, and Paulo Cunha. 2018. “Decision Making in Cloud Environments: An Approach Based on Multiple-Criteria Decision Analysis and Stochastic Models.” Journal of Cloud Computing 7 (1): 1–19.
Araujo, Julian, Paulo Maciel, Matheus Torquato, Gustavo Callou, and Ermeson Andrade. 2014. “Availability Evaluation of Digital Library Cloud Services.” In 2014 44th Annual IEEE/IFIP International Conference on Dependable Systems and Networks, 666–71. IEEE.
Lima, John Wesley Soares de, Taciana Pontual Falcão, and Ermeson Andrade. 2021. “Desenvolvimento e Avaliação de Uma Ferramenta Interativa Baseada Em Exemplos Para o Aprendizado de Modelagem de Sistemas Usando Redes de Petri.” Revista Brasileira de Informática Na Educação 29: 1232–61.
Paes, Vinı́cius J, Danilo Araújo, Kellyton Brito, and Ermeson Andrade. 2022. “Análise de Sentimento Em Tweets Relacionados Ao Desmatamento Da Floresta Amazônica.” In Anais Do XI Brazilian Workshop on Social Network Analysis and Mining, 61–72. SBC.