# Conteúdo da Aba 1
# Carregando o arquivo CSV
tweetsAmazonia <- read.csv("./data/tweetsAmazonia.csv")
# Filtrando os tweets não neutros e separando positivos e negativos
tweetsnaoneutros <- tweetsAmazonia %>% filter(Neutro == 0)
tweetsPositivos <- tweetsnaoneutros %>% filter(Positivo == 1)
tweetsNegativos <- tweetsnaoneutros %>% filter(Negativo == 1)
# Contando tweets positivos e negativos
n_positivos <- nrow(tweetsPositivos)
n_negativos <- nrow(tweetsNegativos)
# Preparando os dados para o gráfico
dados_grafico <- data.frame(
Categoria = c("Positivos", "Negativos"),
Quantidade = c(n_positivos, n_negativos)
)
# Criando o gráfico de barras
ggplot(dados_grafico, aes(x = Categoria, y = Quantidade, fill = Categoria)) +
geom_bar(stat = "identity") +
theme_minimal() +
labs(title = "Comparação entre Tweets Positivos e Negativos não neutros",
x = "Categoria",
y = "Quantidade")
# Conteúdo da Aba 2
datatable(mtcars, options = list(pageLength = 10, autoWidth = TRUE))
Fórmula de Bhaskara (solução da equação quadrática) \[ x = \frac{-b \pm \sqrt{b^2 - 4ac}}{2a} \]
Capacidade de um Canal de Comunicação (Teoria da Informação) \[ C = B \log_2(1 + \frac{S}{N}) \]
Equação de onda para uma corda vibrante (Física de ondas) \[ \frac{\partial^2 y}{\partial t^2} = c^2 \frac{\partial^2 y}{\partial x^2} \]
Fórmula do interesse composto (Matemática financeira) \[ A = P(1 + \frac{r}{n})^{nt} \]
Equação de Bernoulli (Mecânica dos fluidos) \[ P + \frac{1}{2}\rho v^2 + \rho gh = \text{constante} \]