¿Cómo arreglar la relación de aspecto en ggplot2 Plot en R?

En este artículo, veremos el enfoque para corregir la relación de aspecto en el gráfico ggplot2 usando funciones en el lenguaje de programación R.

La relación de aspecto de un gráfico de datos se define como la relación entre la altura y el ancho del tamaño del gráfico. Se puede arreglar automáticamente usando la función coord_fixed() cuando se llama con los datos apropiados.

Un sistema de coordenadas de escala fija fuerza una relación específica entre la representación física de las unidades de datos en los ejes. La razón representa el número de unidades en el eje y equivalente a una unidad en el eje x. Por defecto, ratio = 1, esta función se utiliza para fijar la relación de aspecto.

Sintaxis:

coord_fixed(ratio = 1, xlim = NULL, ylim = NULL, expandir = TRUE, clip = “on”)

Parámetros:

• ratio: relación de aspecto, expresada como y/x
• xlim: Límites para los ejes x e y.
• ylim: Límites para los ejes x e y.
• expandir: si es VERDADERO, el valor predeterminado agrega un pequeño factor de expansión a los límites para garantizar que los datos y los ejes no se superpongan.
• clip: ¿Debe recortarse el dibujo en la medida del panel de trazado?

Veamos cómo aparecerá la trama sin la relación de aspecto establecida para que la diferencia sea evidente.

Ejemplo:

library("ggplot2")   
  
gfg_data<-data.frame(x=c(1,2,3,4,5),y=c(5,4,3,2,1))
  
gfg_plot<-ggplot(data=gfg_data, aes(x, y)) +
  geom_bar(stat="identity")
  
gfg_plot

Producción:

Ahora, para arreglar la relación de aspecto, simplemente llámelo con la trama.

Ejemplo 1:

library("ggplot2")   
  
gfg_data<-data.frame(x=c(1,2,3,4,5),y=c(5,4,3,2,1))
  
gfg_plot<-ggplot(data=gfg_data, aes(x, y)) +
  geom_bar(stat="identity")
gfg_plot + coord_fixed()

Producción:

También es posible arreglarlo explícitamente. Simplemente pasar la relación de argumentos a la función corrd_fixed() para arreglar el gráfico ggplot2 según los requisitos del usuario hará el trabajo.

Ejemplo 2:

library("ggplot2")   
  
gfg_data<-data.frame(x=c(1,2,3,4,5),y=c(5,4,3,2,1))
  
gfg_plot<-ggplot(data=gfg_data, aes(x, y)) +
  geom_bar(stat="identity")
  
gfg_plot + coord_fixed(5)

Producción: