library(tidyverse)
library(carData)

# scatterplot semplice
cars %>% 
  ggplot(aes(x = speed, y = dist)) + 
  geom_point()                        

# terza variabile con colore
ChickWeight %>% 
  ggplot(aes(Time, weight)) +
  geom_point(aes(color = Diet)) +
  labs(title = "Weight by Time",
       x = "Time",
       y = "Weight")   

# dimensione e colore dei punti

cars %>% 
  ggplot(aes(speed, dist)) +
  geom_point(aes(size = dist, col = speed))   
  
cars %>% 
  ggplot(aes(speed, dist, 
             size = dist, col = speed)) +
  geom_point()     

mtcars %>% 
  ggplot(aes(disp, mpg)) +
  geom_point(aes(size = hp), 
             shape = 21,         # simbolo 21
             fill = "orange",    # colore di riempimento
             col = "brown") +    # colore del bordo
  labs(x = "Cilindrata",
       y = "Miglia") 

mtcars %>% 
  rename(Cilindrata = disp, Miglia = mpg, Potenza = hp) %>% 
  ggplot(aes(x = Cilindrata, y = Miglia, size = Potenza)) +
  geom_point(shape = 21, 
             fill = "lightblue",
             col = "blue")