Tutorial sobre como añadir y modificar el título del gráfico y los ejes, en R.

Puedes seguir el tutorial por vídeo en https://youtu.be/vHc1zD-xda0

Establecemos el directorio de trabajo.

setwd("~/Expression/Expression Encoder/Output/39 GGPLOT2. Modificar nombre del grafico y de 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 maduración 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

Plot02.jpeg

jpeg(filename="Grafico2.jpeg",   # Nombre del archivo y extensión
     height = 11,
     width = 18,
     res= 200,       # Resolución
     units = "cm")  # Unidades.
Grafico2               # Gráfico
dev.off() 
## png 
##   2