Questão 1

Carregando bibliotecas necessarias

library("tm")
library("SnowballC")
library("wordcloud")
library("RColorBrewer")
library("DT")

Inserindo o discurso “Eu tenho um sonho” de Martin Luther King Jr na variavel text

text <- "Eu tenho um sonho que um dia esta nação se levantará e viverá o verdadeiro significado de sua crença - nós celebramos essas verdades e ela será autoevidente, que todos os homens são criados iguais.
Eu tenho um sonho que um dia nas colinas vermelhas da Geórgia os filhos dos ex-escravos e os filhos dos ex-donos de escravos poderão se sentar juntos à mesa da fraternidade.
Eu tenho um sonho que um dia até mesmo o estado do Mississippi, um estado deserto, sufocado pelo calor da injustiça e da opressão, será transformado num oásis de liberdade e justiça.
Eu tenho um sonho que meus quatro filhos viverão um dia numa nação onde eles não serão julgados pela cor de sua pele, mas pelo conteúdo de seu caráter.
Eu tenho um sonho hoje!
Eu tenho um sonho que um dia, lá em Alabama, com seus racistas viciosos, com seu governador de lábios gotejando palavras de intervenção e anulação; um dia mesmo lá no Alabama, meninos negros e meninas negras poderão dar as mãos a meninos brancos e meninas brancas, como irmãos e irmãs.
Eu tenho um sonho hoje!
Eu tenho um sonho que um dia todo vale será exaltado, e cada montanha e colina será aplainada, os lugares acidentados serão nivelados e os lugares tortuosos serão endireitados, e a glória do Senhor será revelada, e toda a carne juntamente a verá.
Essa é a nossa esperança. Essa é a fé com que eu volto ao Sul. Com essa fé poderemos esculpir da montanha do desespero uma pedra de esperança.
Com essa fé poderemos transformar as discórdias estridentes de nossa nação em uma bela sinfonia de fraternidade. Com essa fé poderemos trabalhar juntos, rezar juntos, lutar juntos, ser presos juntos, lutar por liberdade juntos, sabendo que um dia seremos livres.
Esse será o dia, esse será o dia em que todas as crianças de Deus poderão cantar com um novo significado: 'Meu país, é de ti, doce terra de liberdade, é de ti que canto. Terra onde meus pais morreram, terra do orgulho dos peregrinos, de cada lado da montanha, ouço o sino da liberdade!'"

Criando um corpus com o discurso

text <- Corpus(VectorSource(text))

Usando o tm para limpar o texto e deixa-lo manipulavel

text <- tm_map(text, removePunctuation)
text <- tm_map(text, removeNumbers)
text <- tm_map(text, tolower)
text <- tm_map(text, removeWords, stopwords("portuguese"))
text <- tm_map(text, stemDocument)

Construindo um term-document matrix

tdm <- TermDocumentMatrix(text)

Gerando a nuvem de palavras utilizando o wordcloud

m <- as.matrix(tdm)
v <- sort(rowSums(m), decreasing = TRUE)
d <- data.frame(word = names(v), freq = v)
wordcloud(words = d$word, freq = d$freq, min.freq = 1,
          max.words = 200, random.order = FALSE,
          rot.per = 0.35,
          colors = brewer.pal(8, "Dark2"))

Criando o gráfico de palavras mais frequentes

barplot(d[1:10,]$freq, las = 2, names.arg = d[1:10,]$word,
        col ="lightblue", main ="PALAVRAS MAIS FREQUENTES",
        ylab = "Numero de palavras")

Questão 2 (Não fiz)

Questão 3

Equação de Euler:

\[ e^{i\pi} + 1 = 0 \]

Fórmula do somatório:

\[ \sum_{i=1}^{n} i = \frac{n(n+1)}{2} \]

Equação de Schrödinger (Equação de Onda na Mecânica Quântica):

\[ i\hbar \frac{\partial}{\partial t} \Psi(\mathbf{r},t) = \hat{H} \Psi(\mathbf{r},t) \]

Equação de Maxwell (Lei de Gauss para o campo elétrico):

\[ \nabla \cdot \mathbf{E} = \frac{\rho}{\varepsilon_0} \]

Fórmula do teorema de Pitágoras:

\[ c^2 = a^2 + b^2 \]

Questão 4

Figuras

Figura 1 - Ciência de Dados
Figura 1 - Ciência de Dados
Figura 2 - Ciência de Dados
Figura 2 - Ciência de Dados

Tabelas

Tabela 1

Tabela 2