R Markdown

Este trabalho tem como objetivo analisar dados fictícios sobre o público de um teatro.

1. Criação da base de dados

library(ggplot2)

teatro <- data.frame(
  mes = c("Janeiro", "Fevereiro", "Março", "Abril"),
  publico = c(120, 150, 180, 140),
  genero = c("Comédia", "Drama", "Musical", "Infantil"),
  preco = c(30, 35, 40, 25)
)

teatro
##         mes publico   genero preco
## 1   Janeiro     120  Comédia    30
## 2 Fevereiro     150    Drama    35
## 3     Março     180  Musical    40
## 4     Abril     140 Infantil    25

2. Gráfico de barras – Público por gênero teatral

publico_genero <- aggregate(
  publico ~ genero,
  data = teatro,
  sum
)

ggplot(publico_genero, aes(x = genero, y = publico, fill = genero)) +
  geom_col() +
  labs(
    title = "Público por gênero teatral",
    x = "Tipo de peça",
    y = "Quantidade de espectadores"
  ) +
  theme_minimal()

#Gráfico de pizza – Participação do público por gênero

ggplot(publico_genero, aes(x = "", y = publico, fill = genero)) +
  geom_col(width = 1) +
  coord_polar("y") +
  labs(
    title = "Participação do público por gênero",
    fill = "Gênero teatral"
  ) +
  theme_void()

#Histograma – Distribuição de espectadores

ggplot(teatro, aes(x = publico)) +
  geom_histogram(
    bins = 4,
    fill = "skyblue",
    color = "black"
  ) +
  labs(
    title = "Distribuição de espectadores",
    x = "Quantidade de espectadores",
    y = "Número de apresentações"
  ) +
  theme_minimal()

  1. Gráfico de linhas – Público por mês
ggplot(teatro, aes(x = mes, y = publico, group = 1)) +
  geom_line(color = "blue", linewidth = 1) +
  geom_point(color = "red", size = 3) +
  labs(
    title = "Público por mês",
    x = "Meses",
    y = "Quantidade de espectadores"
  ) +
  theme_minimal()

#Gráfico Boxplot – Distribuição do público

ggplot(teatro, aes(x = genero, y = publico, fill = genero)) +
  geom_boxplot() +
  labs(
    title = "Distribuição do público por gênero teatral",
    x = "Gênero teatral",
    y = "Quantidade de espectadores"
  ) +
  theme_minimal()