GGPLOT2. Modificar nombre del gráfico y de los ejes

Raúl Ortiz

Durante esta sesión veremos como añadir y modificar el título del gráfico y los ejes.

Empezamos introduciendo nuestros datos y creando el DataFrame

Tratamiento = factor(c(1,2,1,2,1,2),labels=c("Testigo", "Tratado"))
Color = factor(c(1,1,2,2,3,3),labels=c("Verde","Envero","Negra"))
Aceitunas = c(72,33,11,8,17,59)

df=data.frame(Tratamiento,Color,Aceitunas) 
df

##   Tratamiento  Color Aceitunas
## 1     Testigo  Verde        72
## 2     Tratado  Verde        33
## 3     Testigo Envero        11
## 4     Tratado Envero         8
## 5     Testigo  Negra        17
## 6     Tratado  Negra        59

#install.packages("ggplot2") # Si es la primera vez que lo usas, tendrás que instalar primero el paquete.
#install.packages("extrafont")

library (ggplot2) # Después hay que cargarlo al iniciar la sesión.
library(extrafont)

## Registering fonts with R

fonts()

Plot01. “Gráfico base”

Grafico = ggplot(data=df, aes(x=Tratamiento, y=Aceitunas, fill=Color)) + 
    geom_bar(stat="identity", position=position_dodge()) +
    scale_fill_manual(values=c("darkgreen", "purple","black"))

Grafico

Plot02. “Estado de maduracion de aceitunas con distintos tratamientos”

Grafico2 = Grafico + 
    theme (text = element_text(size=8)) + # Tamaño de fuente del grafico por defecto
    ggtitle ("Estado de maduracion de aceitunas \n con distintos tratamientos") + # Título del gráfico
    theme (plot.title = element_text(family="Comic Sans MS",
                                  size=rel(2), #Tamaño relativo de la letra del título
                                  vjust=2, #Justificación vertical, para separarlo del gráfico
                                  face="bold", #Letra negrilla. Otras posibilidades "plain", "italic", "bold" y "bold.italic"
                                  color="red", #Color del texto
                                  lineheight=1.5)) + #Separación entre líneas
    labs(x = "Tratamientos",y = "Porcentaje de aceitunas (%)") + # Etiquetas o títulos de los ejes
    #theme(axis.title = element_text(face="italic", colour="brown", size=rel(1.5))) # Tamaño de los títulos de los ejes
    theme(axis.title.x = element_text(face="bold", vjust=-0.5, colour="orange", size=rel(1.5))) +
    theme(axis.title.y = element_text(face="bold", vjust=1.5, colour="blue", size=rel(1.5))) 

Grafico2