# caricamento libreria
library(ggplot2)
# impostazione tema (classic)
theme_set(theme_classic())

# Istogramma di una variabile continua (numerica): cilindrata motori
# esaminare i dati: in R scrivere il nome della variabile (mpg) e premere invio

# creo oggetto ggplot (la variabile che lo contiene e' g) e specifico su quale parte di essa mi voglio focalozzare (displ)
# inoltre specifico che per il riempimento delle barre voglio utilizzare una tavolozza di colori ( palette="spectral") e non un solo colore
g <- ggplot(mpg, aes(displ)) + scale_fill_brewer(palette = "Spectral")

# Modifico l'oggetto grafico (g) creato in precedenza. Questo equivale ad impostare alcuni dei suoi parametri scrivendo g + ...
# Cio' che segue il simbolo + sono parametri aggiuntivi. Separati da , 
# imposto un parametro estetico (mediante la funzione aes() il cui nome sta per aesthetic). Dico che il riempimento (fill) non lo voglio casuale ma fatto in base alla classe (class) dei veicoli
g + geom_histogram(aes(fill=class), 
	binwidth = .1, 			# Non specifica un numero fisso di bin: numero bin dipende dai dati
	col="black", 			# colore della linea di contorno delle barre
	size=.1) +  
  	labs(title="Histogram with Auto Binning", # etichette del grafico
             subtitle="Engine Displacement across Vehicle Classes")