Desempenho_algoritmo

RPI 5 TEMPO DE EXECUÇÃO:

RPI 5 SPEED UP:

RPI 4 TEMPO DE EXECUÇÃO:

library(ggplot2)
library(dplyr)
library(tidyr)

# Dados - Raspberry Pi 4
dados_rasp4 <- data.frame(
  Algoritmo = c("HEAP", "MERGE", "QUICK", "RADIX"),
  Seq = c(76.113316, 66.43812, 27.595866, 5.362759),
  OpenMP = c(86.540118, 25.1378, 8.650967, 4.556075),
  MPI = c(129.174083, 20.537927, 42.492975, 12.818432)
)

# Calcular speedup
dados_rasp4 <- dados_rasp4 %>%
  mutate(Speedup_OpenMP = Seq / OpenMP,
         Speedup_MPI = Seq / MPI)

# Tempo de execução (formato longo)
dados_long_rasp4 <- pivot_longer(dados_rasp4, cols = c("Seq", "OpenMP", "MPI"),
                                names_to = "Versão", values_to = "Tempo")

ggplot(dados_long_rasp4, aes(x = Algoritmo, y = Tempo, fill = Versão)) +
  geom_bar(stat = "identity", position = position_dodge(width = 0.9)) +
  geom_text(aes(label = round(Tempo, 2)),
            position = position_dodge(width = 0.9),
            hjust = -0.1, size = 3) +   # hjust < 0 desloca pra fora da barra
  labs(title = "Tempos de Execução - Raspberry Pi 4", y = "Tempo (s)", x = "Algoritmo") +
  theme_minimal() +
  coord_flip() +
  expand_limits(y = max(dados_long_rasp4$Tempo) * 1.1)  # espaço extra à direita para texto

RPI 4 SPEED UP: