Lista de exercícios 11 - Computação para análise de dados
Bruno Vasconcelos
2023-07-25
Tabs
Primeira
Nuvem de palavra do discurso “Eu tenho um sonho” de Martin Luther King Jr. Também plote as palavras mais frequentes.
Preparação dos dados para o primeiro ponto
text <- read_file("i_have_a_dream.txt")
regexp <- "[[:alpha:]]+"
words <- str_extract_all(text, regexp)
corpus <- Corpus(VectorSource(words))
inspect(corpus)## <<SimpleCorpus>>
## Metadata: corpus specific: 1, document level (indexed): 0
## Content: documents: 1
##
## [1] c("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", \n"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", \n"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", \n"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", \n"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", \n"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"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", \n"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", \n"liberdade", "e", "igualdade", "Este", "ano", "de", "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", \n"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", \n"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", \n"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", \n"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"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", \n"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", \n"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", \n"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", \n"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", \n"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", \n"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", \n"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", \n"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", \n"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", \n"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", \n"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", \n"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", \n"spiritual", "negro", "Livre", "afinal", "livre", "afinal", "Agradeço", "ao", "Deus", "todo", "poderoso", "nós", "somos", "livres", "afinal")#Coloca tudo em minúsculo
corpus <- tm_map(corpus,tolower)## Warning in tm_map.SimpleCorpus(corpus, tolower): transformation drops documents#Remove pontuação
corpus <- tm_map(corpus,removePunctuation)## Warning in tm_map.SimpleCorpus(corpus, removePunctuation): transformation drops
## documents#Remove números
corpus <- tm_map(corpus,removeNumbers)## Warning in tm_map.SimpleCorpus(corpus, removeNumbers): transformation drops
## documents#Remove espaços extras em branco
corpus <- tm_map(corpus, stripWhitespace)## Warning in tm_map.SimpleCorpus(corpus, stripWhitespace): transformation drops
## documents#Remove palavras ruído
corpus <- tm_map(corpus, removeWords, stopwords("portuguese"))## Warning in tm_map.SimpleCorpus(corpus, removeWords, stopwords("portuguese")):
## transformation drops documentsNuvem de palavras
wordcloud(corpus, min.freq= 1, max.words=60, random.order=FALSE, rot.per=0.35, colors=brewer.pal(8, "Dark2"))
Gráfico das palavras mais frequentes
tdm <- as.matrix(TermDocumentMatrix(corpus))
fre <- sort(rowSums(tdm), decreasing = T)
top_10 <- fre[0:10]
barplot(top_10, las=2, col = rainbow(10))
Segunda
Nuvem de palavras a partir dos tweets sobre o Desmatamento no Brasil. Também faça uma análise de sentimentos com relação a esses tweets. Use o dataset anexado a esta atividade. Note que o dataset possui mais de 250 mil tweets. Se seu computador não tiver um alto poder computacional, use uma quantidade menor de tweets. Porém, o mínimo são 5 mil tweets.
Carregar base de dados
tweets <- read.csv("tweetsAmazonia.csv")
head(tweets)## id conversation_id created_at
## 1 1,08459959983744E+018 1,08459858565469E+018 2019-01-13 20:54:30 -03
## 2 1,08455408683651E+018 1,08455408683651E+018 2019-01-13 17:53:38 -03
## 3 1,08454386634108E+018 1,08454386634108E+018 2019-01-13 17:13:02 -03
## 4 1,08454269619741E+018 1,08454269619741E+018 2019-01-13 17:08:23 -03
## 5 1,08452233434461E+018 1,08452233434461E+018 2019-01-13 15:47:28 -03
## 6 1,08452190038929E+018 1,08452190038929E+018 2019-01-13 15:45:45 -03
## date time timezone user_id username
## 1 2019-01-13 20:54:30 -300 2663964890 nelsonrabat
## 2 2019-01-13 17:53:38 -300 9,21801127322153E+017 _____insight
## 3 2019-01-13 17:13:02 -300 4497684585 maiconob45
## 4 2019-01-13 17:08:23 -300 7,73569207183213E+017 marinacomh
## 5 2019-01-13 15:47:28 -300 541156738 mariluparreiras
## 6 2019-01-13 15:45:45 -300 541156738 mariluparreiras
## name place
## 1 nelson rabat lemos
## 2 G.
## 3 Maicon Mauricio
## 4 marih 🇧🇷
## 5 #LulaRousseff #ComLulaEm2022
## 6 #LulaRousseff #ComLulaEm2022
## tweet
## 1 @FotosDeFatos daqui há alguns anos vai ser só um fiapo de rio, devido ao desmatamento que vão fazer na amazônia.....
## 2 Depois que São Paulo virar um deserto por conta do desmatamento da Amazônia, lembrem-se da família bolsonaro, mas também dos que votaram nele.
## 3 Recomeçou já o desmatamento descontrolado da Amazônia https://t.co/QvAXdwHBbP
## 4 tava conversando com o cara sentado do meu lado sobre o desmatamento da amazônia e ele pareceu ser legal até falar mal sobre stalin e no exato momento sorri falso e coloquei meus fones
## 5 @ONU_es @ONUHumanRights Dezenas de grileiros invadiram a Terra Indígena Uru-eu-wau-wau nos últimos dias, em área próxima ao município Jorge Teixeira (RO), a 322 km de Porto Velho. O DESMATAMENTO DA AMAZÔNIA É O GRANDE OBJETIVO … https://t.co/C4b1lZkCXX
## 6 @ONU_es @ONUHumanRights PROFESSOR INDÍGENA FOI ESPANCADO ATÉ À MORTE … E O DESMATAMENTO DA AMAZÔNIA É O GRANDE INTERESSE … https://t.co/GaNV5alHhI
## language
## 1 pt
## 2 pt
## 3 pt
## 4 pt
## 5 pt
## 6 pt
## mentions
## 1 []
## 2 []
## 3 []
## 4 []
## 5 [{'screen_name': 'onuhumanrights', 'name': 'onu derechos humanos colombia', 'id': '95326483'}]
## 6 [{'screen_name': 'onuhumanrights', 'name': 'onu derechos humanos colombia', 'id': '95326483'}]
## urls
## 1 []
## 2 []
## 3 ['https://www.facebook.com/100003882912440/posts/1375089452630472/']
## 4 []
## 5 ['https://www1.folha.uol.com.br/amp/poder/2019/01/terra-indigena-e-invadida-por-grileiros-em-rondonia.shtml']
## 6 ['http://agenciabrasil.ebc.com.br/geral/noticia/2018-01/professor-indigena-e-morto-pauladas-em-santa-catarina?amp']
## photos replies_count retweets_count likes_count hashtags cashtags
## 1 [] 1 0 4 [] []
## 2 [] 0 1 1 [] []
## 3 [] 0 0 0 [] []
## 4 [] 0 0 2 [] []
## 5 [] 0 0 0 [] []
## 6 [] 0 0 0 [] []
## link retweet
## 1 https://twitter.com/nelsonrabat/status/1084599599837442050 False
## 2 https://twitter.com/_____insight/status/1084554086836514818 False
## 3 https://twitter.com/MaiconOb45/status/1084543866341081088 False
## 4 https://twitter.com/marinacomh/status/1084542696197406722 False
## 5 https://twitter.com/MariluParreiras/status/1084522334344613888 False
## 6 https://twitter.com/MariluParreiras/status/1084521900389294080 False
## quote_url video thumbnail near geo source user_rt_id user_rt retweet_id
## 1 0
## 2 0
## 3 0
## 4 0
## 5 0
## 6 0
## reply_to
## 1 [{'screen_name': 'FotosDeFatos', 'name': 'Fotos de Fatos', 'id': '2959459379'}]
## 2 []
## 3 []
## 4 []
## 5 []
## 6 []
## retweet_date translate trans_src trans_dest Raiva Antecipação Nojo Medo
## 1 0 0 0 0
## 2 2 1 2 3
## 3 0 0 0 0
## 4 3 0 3 1
## 5 0 1 0 0
## 6 1 1 1 1
## Alegria Tristeza Surpesa Confiança Negativo Positivo Neutro Sentiment X X.1
## 1 0 0 0 0 0 0 1 0 NA
## 2 0 3 0 1 1 0 0 -1 NA
## 3 0 0 0 0 1 0 0 -1 NA
## 4 0 3 0 3 1 0 0 -1 NA
## 5 0 0 0 2 0 1 0 1 NA
## 6 0 1 1 2 0 1 0 1 NA
## X.2 X.3 X.4 X.5 X.6 X.7 X.8 X.9 X.10 X.11 X.12 X.13 X.14 X.15 X.16 X.17 X.18
## 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## 4 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## 5 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## 6 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## X.19
## 1 NA
## 2 NA
## 3 NA
## 4 NA
## 5 NA
## 6 NAPreparar dados para nuvem de palavras
regexp <- "[[:alpha:]]+"
concatenated_tweets <- paste(tweets$tweet, collapse= " ")
substr(concatenated_tweets, 0, 200)## [1] "@FotosDeFatos daqui há alguns anos vai ser só um fiapo de rio, devido ao desmatamento que vão fazer na amazônia..... Depois que São Paulo virar um deserto por conta do desmatamento da Amazônia, lembre"words <- str_extract_all(concatenated_tweets, regexp)
vector <- VectorSource(words)
tweet_corpus <- Corpus(vector)
#Coloca tudo em minúsculo
tweet_corpus <- tm_map(tweet_corpus,tolower)## Warning in tm_map.SimpleCorpus(tweet_corpus, tolower): transformation drops
## documents#Remove pontuação
tweet_corpus <- tm_map(tweet_corpus,removePunctuation)## Warning in tm_map.SimpleCorpus(tweet_corpus, removePunctuation): transformation
## drops documents#Remove números
tweet_corpus <- tm_map(tweet_corpus,removeNumbers)## Warning in tm_map.SimpleCorpus(tweet_corpus, removeNumbers): transformation
## drops documents#Remove espaços extras em branco
tweet_corpus <- tm_map(tweet_corpus, stripWhitespace)## Warning in tm_map.SimpleCorpus(tweet_corpus, stripWhitespace): transformation
## drops documents#Remove palavras ruído
tweet_corpus <- tm_map(tweet_corpus, removeWords, stopwords("portuguese"))## Warning in tm_map.SimpleCorpus(tweet_corpus, removeWords,
## stopwords("portuguese")): transformation drops documentsNuvem de palavras
wordcloud(tweet_corpus, min.freq= 1, max.words=60, random.order=FALSE, rot.per=0.35, colors=brewer.pal(8, "Dark2"))
Análise de sentimentos
library("dplyr")## Warning: package 'dplyr' was built under R version 4.3.1##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union# Seleciona colunas de sentimentos
sentiments <- tweets %>% select(Raiva:Neutro)
# Converte os valores para numérico (estavam como char)
numeric_sentiments <- sentiments %>% mutate_all(as.numeric)## Warning: There were 10 warnings in `mutate()`.
## The first warning was:
## ℹ In argument: `Raiva = .Primitive("as.double")(Raiva)`.
## Caused by warning:
## ! NAs introduzidos por coerção
## ℹ Run `dplyr::last_dplyr_warnings()` to see the 9 remaining warnings.# Transforma numa matriz para ser lido pelo barplot
sentiments_matrix <- as.matrix(numeric_sentiments)
# Soma os valores para cada sentimento ignorando os NA
sentiments_sum <- colSums(sentiments_matrix, na.rm = TRUE)
# Plota o gráfico
barplot(sentiments_sum,las=2,col=rainbow(10),ylab= "Quantidade",main= "Pontuação de Sentimentos para os Tweets Sobre A Amazônia")
Terceira
5 equações complexas usando Latex
Sequência de Fibonacci
\(f_n = f_{n-1} + f_{n-2}\)
Equação de Bhaskara
\(x = \dfrac{-b \pm \sqrt{b^2 - 4ac}}{2a}\)
Equação da derivada de \(e^x\)
\(\dfrac{d}{dx} e^x = e^x\)*
Equação da integral de \(e^x\)
\(\int e^x dx = e^x + C\)
Equação da série de Taylor para \(e^x\)
\(e^x = \sum_{n=0}^{\infty} \dfrac{x^n}{n!}\)
Quarta
2 Figuras relacionadas a ciência de dados e 2 tabelas (dica: use datatable() do pacote DT).
Imagem mostrando dados num estilo futurístico.
Disponível em “https://www.lse.ac.uk/study-at-lse/Graduate/Assets/Images/video-images/MSc-Data-Science.jpg”
Imagem gerada por inteligência artificial usando
Stabble Diffusion 2.1 com o prompt: “person analysing data in a computer
with some charts”
Quinta
5 referências usando o BibTex.
(Manual?){R-base, title = {R: A Language and Environment for Statistical Computing}, author = {{R Core Team}}, organization = {R Foundation for Statistical Computing}, address = {Vienna, Austria}, year = {2022}, url = {https://www.R-project.org/}, }
(Book?){wickham2016r, author = {Hadley Wickham}, title = {R for Data Science}, publisher = {O’Reilly Media}, year = {2016}, isbn = {9781491910595}, }
(Article?){chang2013shiny, author = {Winston Chang}, title = {Shiny: Web Application Framework for R}, journal = {Journal of Statistical Software}, year = {2013}, volume = {56}, number = {1}, pages = {1–32}, doi = {10.18637/jss.v056.i01}, }
(Book?){gasser2013introduction, author = {Gasser, Thomas and Brännström, Per}, title = {Introduction to Statistical Learning with Applications in R}, publisher = {Springer}, year = {2013}, isbn = {9781461468787}, }
(Article?){wickham2019tidyverse, author = {Hadley Wickham and Mara Averick and Jennifer Bryan and Karthik Ram et al.}, title = {Welcome to the {Tidyverse}}, journal = {Journal of Open Source Software}, year = {2019}, volume = {4}, number = {43}, pages = {1686}, doi = {10.21105/joss.01686}, }