¿Cómo eliminar el espacio entre el eje y el gráfico de área en ggplot2?


113

Tengo el siguiente marco de datos:

uniq <- structure(list(year = c(1986L, 1987L, 1991L, 1992L, 1993L, 1994L, 1995L, 1996L, 1997L, 1998L, 1999L, 2000L, 2001L, 2002L, 2003L, 2004L, 2005L, 2006L, 2007L, 2008L, 2009L, 2010L, 2011L, 2012L, 2013L, 2014L, 1986L, 1987L, 1991L, 1992L, 1993L, 1994L, 1995L, 1996L, 1997L, 1998L, 1999L, 2000L, 2001L, 2002L, 2003L, 2004L, 2005L, 2006L, 2007L, 2008L, 2009L, 2010L, 2011L, 2012L, 2013L, 2014L, 1986L, 1987L, 1991L, 1992L, 1993L, 1994L, 1995L, 1996L, 1997L, 1998L, 1999L, 2000L, 2001L, 2002L, 2003L, 2004L, 2005L, 2006L, 2007L, 2008L, 2009L, 2010L, 2011L, 2012L, 2013L, 2014L), uniq.loc = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("u.1", "u.2", "u.3"), class = "factor"), uniq.n = c(1, 1, 1, 2, 5, 4, 2, 16, 16, 10, 15, 14, 8, 12, 20, 11, 17, 30, 17, 21, 22, 19, 34, 44, 56, 11, 0, 0, 3, 3, 7, 17, 12, 21, 18, 10, 12, 9, 7, 11, 25, 14, 11, 17, 12, 24, 59, 17, 36, 50, 59, 12, 0, 0, 0, 1, 4, 6, 3, 3, 9, 3, 4, 2, 5, 2, 12, 6, 8, 8, 3, 2, 9, 5, 20, 7, 10, 8), uniq.p = c(100, 100, 25, 33.3, 31.2, 14.8, 11.8, 40, 37.2, 43.5, 48.4, 56, 40, 48, 35.1, 35.5, 47.2, 54.5, 53.1, 44.7, 24.4, 46.3, 37.8, 43.6, 44.8, 35.5, 0, 0, 75, 50, 43.8, 63, 70.6, 52.5, 41.9, 43.5, 38.7, 36, 35, 44, 43.9, 45.2, 30.6, 30.9, 37.5, 51.1, 65.6, 41.5, 40, 49.5, 47.2, 38.7, 0, 0, 0, 16.7, 25, 22.2, 17.6, 7.5, 20.9, 13, 12.9, 8, 25, 8, 21.1, 19.4, 22.2, 14.5, 9.4, 4.3, 10, 12.2, 22.2, 6.9, 8, 25.8)), .Names = c("year", "uniq.loc", "uniq.n", "uniq.p"), class = "data.frame", row.names = c(NA, -78L))

Cuando hago un diagrama de área con:

ggplot(data = uniq) + 
  geom_area(aes(x = year, y = uniq.p, fill = uniq.loc), stat = "identity", position = "stack") +
  scale_x_continuous(limits=c(1986,2014)) +
  scale_y_continuous(limits=c(0,101)) +
  theme_bw()

Obtengo este resultado:

ingrese la descripción de la imagen aquí

Sin embargo, quiero eliminar el espacio entre el eje y el gráfico real. Cuando agrego theme(panel.grid = element_blank(), panel.margin = unit(-0.8, "lines")), aparece el siguiente mensaje de error:

Error in theme(panel.grid = element_blank(), panel.margin = unit(-0.8,  : 
  could not find function "unit"

¿Alguna sugerencia sobre cómo solucionar este problema?


3
Creo que necesitaba cargar explícitamente el paquete de cuadrícula paraunit
Tyler Rinker

@TylerRinker ¡Gracias! Ya no recibo un mensaje de error. Ya resolví el problema de otra manera, pero este es un buen recordatorio para el futuro cuando quiera establecer márgenes.
Jaap

3
Esto a veces se denomina diseño ajustado. Mencionar esto aquí para que los motores de búsqueda puedan detectarlo.
anónimo

Respuestas:


191

Actualización: consulte la respuesta de @ divibisan para conocer más posibilidades en las últimas versiones de.


A partir ?scale_x_continuousde la expand-argumento:

Vector de constantes de expansión de rango utilizado para agregar algo de relleno alrededor de los datos, para asegurar que estén colocados a cierta distancia de los ejes. Los valores predeterminados son ampliar la escala en un 5% en cada lado para las variables continuas y en 0,6 unidades en cada lado para las variables discretas.

El problema de este modo se resuelve añadiendo expand = c(0,0)a scale_x_continuousy scale_y_continuous. Esto también elimina la necesidad de agregar el panel.marginparámetro.

El código:

ggplot(data = uniq) + 
  geom_area(aes(x = year, y = uniq.p, fill = uniq.loc), stat = "identity", position = "stack") +
  scale_x_continuous(limits = c(1986,2014), expand = c(0, 0)) +
  scale_y_continuous(limits = c(0,101), expand = c(0, 0)) +
  theme_bw() +
  theme(panel.grid = element_blank(),
        panel.border = element_blank())

El resultado: gráfico de área de parcela sin espacios


41

A partir de ggplot2 version 3, hay una expand_scale()función que puede pasar al expand=argumento que le permite especificar diferentes valores de expansión para cada lado de la escala.

A partir de ggplot2 version 3.3.0, expand_scale()se ha desaprobado en favor de expansionque, de lo contrario, funciona de manera idéntica.

También le permite elegir si desea que la expansión sea un tamaño absoluto (use el add=parámetro) o un porcentaje del tamaño de la parcela (use el mult=parámetro):

ggplot(data = uniq) + 
  geom_area(aes(x = year, y = uniq.p, fill = uniq.loc), stat = "identity", position = "stack") +
  scale_x_continuous(limits = c(1986,2014), expand = c(0, 0)) +
  scale_y_continuous(limits = c(0,101), expand = expansion(mult = c(0, .1))) +
  theme_bw()

ingrese la descripción de la imagen aquí


Nota rápida: expand_scale()ha cambiado a, expansion()pero funciona de manera idéntica en este caso.
Molx

1
@Molx Gracias, ¡he actualizado la respuesta!
Divibisan

14

Otra opción que produce resultados idénticos es utilizar en coord_cartesianlugar de escalas de posición continuas (x e y):

ggplot(data = uniq) +  
  geom_area(aes(x = year, y = uniq.p, fill = uniq.loc), stat = "identity", position = "stack") +  
  coord_cartesian(xlim = c(1986,2014), ylim = c(0,101))+
  theme_bw() + theme(panel.grid=element_blank(), panel.border=element_blank())

2
Buena alternativa, +1. Sin embargo, aún necesitará las scales_x/y_continuouspartes si desea especificar los descansos, etc.
Jaap

o, más fácil, establecido expand = FALSEen coord_cartesiancomo se sugiere en @Marcus comentario en esta pregunta
Tjebo

@Tjebo El resultado es ligeramente diferente, pero de hecho probablemente esté más cerca del resultado esperado por el OP. Lo agregaré más tarde a mi respuesta. Gracias.
mpalanco
Al usar nuestro sitio, usted reconoce que ha leído y comprende nuestra Política de Cookies y Política de Privacidad.
Licensed under cc by-sa 3.0 with attribution required.