library(ggplot2)

# Dades d'exemple
data(mpg)

# Gràfic bàsic
p <- ggplot(mpg, aes(x = displ, y = hwy)) +
  geom_point()

# Personalització d'aixetes i etiquetes
p + labs(
  title = "Relació entre Desplaçament i Consum en Carretera",
  x = "Desplaçament (litres)",
  y = "Consum en Carretera (mpg)",
  caption = "Font: dades mpg"
)

# Gràfic amb personalització de colors i formes
p + geom_point(aes(color = class, shape = drv)) +
  scale_color_brewer(palette = "Set1") +
  scale_shape_manual(values = c(16, 17, 18))

# Gràfic amb tema personalitzat
p + theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 20, face = "bold"),
    axis.title = element_text(size = 15),
    legend.position = "bottom"
  )

# Gràfic amb facetes per classe de vehicle
p + facet_wrap(~ class)

# Gràfic amb facetes en graelles per classe de vehicle i tipus de tracció
p + facet_grid(drv ~ class)

# Gràfic amb tema predefinit
p + theme_bw()

# Creació d'un tema personalitzat
my_theme <- theme(
  plot.title = element_text(hjust = 0.5, size = 20, face = "bold"),
  axis.title = element_text(size = 15),
  legend.position = "bottom"
)

# Aplicació del tema personalitzat
p + my_theme

# Gràfic amb múltiples capes
p + geom_point(aes(color = class)) +
  geom_smooth(method = "lm", se = FALSE, color = "black") +
  labs(title = "Relació entre Desplaçament i Consum en Carretera amb Regressió Lineal")

# Gràfic amb anotacions
p + geom_point(aes(color = class)) +
  annotate("text", x = 6, y = 40, label = "Punt d'interès", color = "red", size = 5, angle = 45)

library(ggplot2)

# Dades d'exemple
data(mpg)

# Gràfic personalitzat
ggplot(mpg, aes(x = displ, y = hwy)) +
  geom_point(aes(color = class, shape = drv)) +
  labs(
    title = "Relació entre Desplaçament i Consum en Carretera",
    x = "Desplaçament (litres)",
    y = "Consum en Carretera (mpg)",
    caption = "Font: dades mpg"
  ) +
  scale_color_brewer(palette = "Set1") +
  scale_shape_manual(values = c(16, 17, 18)) +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 20, face = "bold"),
    axis.title = element_text(size = 15),
    legend.position = "bottom"
  )

library(ggplot2)

# Dades d'exemple
data(mpg)

# Gràfic amb facetes
ggplot(mpg, aes(x = displ, y = hwy)) +
  geom_point(aes(color = class)) +
  facet_grid(drv ~ class) +
  labs(
    title = "Relació entre Desplaçament i Consum en Carretera per Classe de Vehicle i Tipus de Tracció",
    x = "Desplaçament (litres)",
    y = "Consum en Carretera (mpg)",
    caption = "Font: dades mpg"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 20, face = "bold"),
    axis.title = element_text(size = 15),
    legend.position = "bottom"
  )