- Se carga el paquete ggplot2 con la función
library(ggplot2)
2. Se establece la ubicación de los datos con la función setwd().
setwd("D:/RUTA")
3. Se cargan los datos con la función read.csv().
datos <- read.csv(«Tecoma_stans.csv»)
4. Se crea el gráfico de dispersión con la función ggplot(). Esta función recibe como argumentos los datos a representar y las variables a usar en el eje x e y, especificadas mediante aes(x = Ancho.de.la.hoja..cm., y = Longitud.de.la.hoja..cm.).
5. Con la función geom_point() se agrega una capa de puntos al gráfico, con un color y tamaño especificados.
6. Con la función geom_smooth() se agrega una capa de línea de regresión lineal, con el argumento method = "lm" y se = FALSE para no mostrar la banda de incertidumbre.
7. Con las funciones labs() y ggtitle() se especifican los títulos y etiquetas de los ejes y el gráfico.
8. Con la función theme() se personaliza el aspecto del gráfico, en este caso se ajusta el título centralizándolo y haciendo más grande la letra.
Dis <- ggplot(datos, aes(x = Ancho.de.la.hoja..cm., y = Longitud.de.la.hoja..cm.)) +
geom_point(color = "#A2CD5A", size = 4) +
geom_smooth(method = "lm", se = FALSE, color = "red") +
labs(title = "Grafico de disperción",
x = "Ancho de la hoja (cm)",
y = "Longitud de la hoja (cm)") +
ggtitle("Grafico de disperción", subtitle = "") +
theme(plot.title = element_text(hjust = 0.5, size = 18, face = "bold"),
axis.title = element_text(size = 14, face = "bold"))
9. Se grafica
Dis
10. Finalmente, con la función ggsave() se guarda el gráfico en un archivo de imagen con las especificaciones deseadas.
ggsave("grafico_dispersion.png", plot = Dis, width = 8, height = 6, units = "in")
