Exercíocio 11

Respostas Lista de Exercícios 11

Neste documento constam as respostas das questões da Lista de Exercícios 11 - R Mardown e Mineração de texto

Questão 1

Como o discurso “Eu tenho um sonho” de Martin Luther King foi feito num contexto de luta contra o preconceito racial e contra a perseguição que os negros estavam enfrentando. Pode-se perceber que as palavras de Martin Luther King são permeadas por palavras de ordem que expressam seu desejo de liberdade e o sonho que ele e toda a população negra dos EUA tinham que um dia iam viver numa nção justa onde negros e brancos iriam viver satisfeitos e em paz. Este discuros mostra toda a luta e dores de uma população que vivia e ainda vive sendo perseguida por causa da cor de sua pele. A busca por justiça e liberdade da população negra ainda é uma realidade e os mesmos sonhos de antes continuam permeando no coração dessa população que busca pelo dia que irá poder caminhar livre e sem medo pelas ruas. Para melhor comprovar e analisar o conteúdo do discurso foi construído um gráfico de barras mostrando a frequencia das palavras mais citadas no texto. Vale salientar que o gráfico mostra as palavras com mais de 4 citações. Em seguida foi feita uma núvem de palavras a partir do texto para deixar mais evidente as palavras mais frequentes bem como aquelas que também aparecem com menor frequência.

library(tm)

## Loading required package: NLP

library(wordcloud)

## Loading required package: RColorBrewer

texto <- "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."
VS1 <- VectorSource(texto)
corpus1 <- Corpus(VS1)
corpus1 <- tm_map(corpus1, content_transformer(tolower))
corpus1 <- tm_map(corpus1, removePunctuation)
corpus1 <- tm_map(corpus1, stripWhitespace)
corpus1 <- tm_map(corpus1, removeNumbers)
corpus1 <- tm_map(corpus1, removeWords, stopwords('portuguese'))
tdm1 <- as.matrix(TermDocumentMatrix(corpus1))
fre1 <- sort(rowSums(tdm1), decreasing = TRUE)
aux1 <- subset(fre1,fre1>4)
barplot(aux1, las=2, col = rainbow(10),main = "Palavras mais Frequentes")

wordcloud(corpus1,min.freq = 1,max.words = 80,
          random.order = FALSE,rot.per = 0.15,
          colors = brewer.pal(8,"Dark2"), scale = c(2.5,.5))

Questão 2

Ao fazer o estudo sobre os tweets relacionados a #blacklivesmatter é possível perceber que a maioria das citações se referem a palavras de ordem referentes a luta coontra o racismo e o toda a discriminação que existe em todas as esferas da sociedade. Um fato bastante interessante que mostrou a nuvem de palavras foi a presença do nome Miguel e a frase “Justiça por Miguel.” Miguel foi o menino de 5 anos que faleceu após cair do nono andar de um prédio de luxo no centro de Recife. O nome dele está associado ao movimento Black Lives Matter pois se trata de um garoto negro e de origens humildes, sua mãe e avó trabalhavam para a família que viva neste condomínio. Logo as acusações foram imprudência em relação a criança por parte da patroa da mão do menino. Ainda tivemos no dia 25/05/2021 várias homenagens a George Floyde que no dia 25/05/2020 foi morto devido a uma abordagem policial. Então diante disso podemos ver pela análise de sentimentos que quando o assunto é racismo e discriminação o sentimento que predomina é negativo deviso a grande desigualdade que encontramos na sociedade. Confirmando este fato mostram que muitas pessoas se sentem com raiva, tristes e até desgostosas com a situação a qual vivemos. Com tudo podemos perceber que o sentimento de felicidade é grande, felicidade de representar uma raça tão guerreira e batalhadora como é raça negra fazendo com que as pessoas sintam orgulho de suas orignes e ganhem força para continua batalhando por dias melhores.

library(tm)
library(wordcloud)
library(readr)
library(syuzhet)
library(twitteR)
consumer_key <- 'jbxMGfpO7qsLiMpKD7LSM2xkx'
consumer_secret <- 'dC6s5JlUNqEfAG583go3kZ080Lmt4S7ZSSqO4l12rZ1cPCrHu7'
access_token <- '1379563748197863425-Y9AuWuAVYXGAIHRinykc8VtRk34r0U'
access_secret <- '4Dwa3y22tTVyNgH41sw5CrLM1egkfUtUGZ7a4WJgcImMN'
setup_twitter_oauth(consumer_key, consumer_secret, access_token, access_secret)

## [1] "Using direct authentication"

tweets <- searchTwitter("#blacklivesmatter", n=500, lang = "pt")
tweets <- twListToDF(tweets)
tweets_t <- paste(tweets$text, collapse = " ")
tweets_s <- VectorSource(tweets_t)
corpus2 <- Corpus(tweets_s)
corpus2 <- tm_map(corpus2,tolower)
corpus2 <- tm_map(corpus2,removePunctuation)
corpus2 <- tm_map(corpus2,stripWhitespace)
corpus2 <- tm_map(corpus2,removeWords, stopwords('portuguese'))
removeURL <- function(x) gsub("http[^[:space:]]*", "",x)
corpus2 <- tm_map(corpus2, removeURL)
removeNumPunct <- function(x) gsub("[^[:alpha:][:space:]]*", "",x)
corpus2 <- tm_map(corpus2, content_transformer(removeNumPunct))
dtm <- TermDocumentMatrix(corpus2)
dtm <- as.matrix(dtm)
fre <- sort(rowSums(dtm),decreasing = TRUE)
wordcloud(corpus2,min.freq = 3,max.words = 60,random.order = FALSE,
          rot.per = 0.15,
          colors = brewer.pal(8,"Dark2"),scale = c(2.5,.5))

tweets<-tweets$text
s<-get_nrc_sentiment(tweets)
barplot(colSums(s),las=2,col=rainbow(10),ylab = "Contagem",
        main = "Sentimentos em relação ao Racismo")

Questão 3

Comprimento de uma correia cruzada com polias de diâmetro diferente: \[L = \pi\times(R+r)+2\times\sqrt{c^2+(R+r)^2}\]

Série de Fourier: \[f(x)=\frac{a_0}{2}+\sum_{n=1}^{\infty}[a_ncos(\frac{n\pi x}{L})+b_nsen(\frac{n\pi x}{L})]\] Coeficientes de Fourier: \[a_0=\frac{1}{L}\int_{-L}^{L}f(x)dx\] \[a_n=\frac{1}{L}\int_{-L}^{L}f(x)cos(\frac{n\pi x}{L})dx\] \[b_n=\frac{1}{L}\int_{-L}^{L}f(x)sen(\frac{n\pi x}{L})dx\] Arranjo simples: \[A_{n,p} = \frac{n!}{(n - p)!}\] Arranjo com repetição: \[A_{n,p}^{r} = n^{p}\] Combinação simples: \[C_{n,p} = \frac{A_{n,p}}{p!} = \frac{n!}{(n - p)! p!}\]

Questão 4

Figuras relacionadas a Data Science

knitr::include_graphics("diagrama-data-science.png")

Figura 1 - Diagrama da Data Science

knitr::include_graphics("escopo-de-premissas.png")

Figura 2 - Ciclo de Vida dos Dados

Tabelas extraídas dos Data Frames iris e airquality

library(DT)
DT::datatable(iris[1:20, c(5, 1:4)], rownames = FALSE)

DT::datatable(airquality[30:100, c(5, 1:4)], rownames = FALSE)

Questão 5

NASCIMENTO (2020); SILVA JUNIOR (2020); Araújo Filho et al. (2016); Zarzar et al. (2021); Oliveira et al. (2010);

Referências

Araújo Filho, Oscar Olimpio, Alexandre Douglas Araújo de Moura, Everthon Rodrigues de Araújo, Maurı́lio José dos Santos, Cezar Henrique Gonzalez, and Flávio José da Silva. 2016. “Manufacturing and Characterization of Aa1100 Aluminum Alloy Metal Matrix Composites Reinforced by Silicon Carbide and Alumina Processed by Powder Metallurgy.” In Materials Science Forum, 869:447–51. Trans Tech Publ.

NASCIMENTO, Diogo Monteiro do. 2020. “Processamento e Caracterização de Compósitos de Matriz Metálica Da Liga de Alumı́nio Aa6061 Com Reforço Particulado Cerâmico Através Da técnica de Moagem de Alta Energia e Extrusão a Quente.” Master’s thesis, Universidade Federal de Pernambuco.

Oliveira, Carlos Augusto do Nascimento, Cezar Henrique Gonzalez, Carlos José de Araújo, Oscar Olı́mpio de Araújo Filho, and Severino Leopoldino Urtiga Filho. 2010. “Thermoelastic Properties on Cu-Zn-Al Shape Memory Springs.” Materials Research 13 (2): 219–23.

SILVA JUNIOR, Moisés Euclides da. 2020. “Fabricação Das Ligas de Alumı́nio Aa3003 e Aa3303 a Partir Dos pós Elementares de Alumı́nio e de Manganês Através de técnicas de Metalurgia Do pó.” Master’s thesis, Universidade Federal de Pernambuco.

Zarzar, Sandra Torres, Diogo Monteiro do Nascimento, José Endreo Baracho da Costa, Moisés Euclides da Silva Junior, and Oscar Olimpio de Araujo Filho. 2021. “Fabricação e Caracterização Da Liga de Alumı́nio Aa8079 Através Das técnicas de Metalurgia Do pó/Manufacturing and Characterization of the Aluminum Alloy Aa8079 Through Powder Metallurgy Techniques.” Brazilian Applied Science Review 5 (2): 1054–67.