首頁猿問在gggplot...

在gggplot 2中如何去除軸與面積之間的空間？

R語言

慕妹3242003 2019-07-11 20:43:12

在gggplot 2中如何去除軸與面積之間的空間？我有以下數(shù)據(jù)：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, 199 7L, 1998L, 1999L, 2000L, 2001L, 2002L, 2003L, 2004L, 2005L, 2006L, 2007L, 2008L, 2009L, 2010L, 2011L, 2012L, 2013L, 2014L, 1986L, 198 7L, 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,當(dāng)我用：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()但是，我想刪除軸和實(shí)際圖形之間的空間。當(dāng)我加上theme(panel.grid = element_blank(), panel.margin = unit(-0.8, "lines"))我收到以下錯誤消息：Error in theme(panel.grid = element_blank(), panel.margin = unit(-0.8, : could not find function "unit"對于如何解決這個問題，有什么建議嗎？

查看完整描述

3 回答

瀟湘沐

TA貢獻(xiàn)1816條經(jīng)驗(yàn) 獲得超6個贊

這個問題通過增加expand=c(0,0)到scale_x_continuous和scale_y_continuous..這也消除了添加panel.margin參數(shù)。

守則：

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())

反對回復(fù) 2019-07-11

RISEBY

TA貢獻(xiàn)1856條經(jīng)驗(yàn) 獲得超5個贊

截至ggplot2 version 3，有一個expand_scale()函數(shù)，您可以將該函數(shù)傳遞給expand=參數(shù)，該參數(shù)允許為縮放的每一側(cè)指定不同的展開值。

它還允許您選擇是否希望展開成為絕對大小(使用add=參數(shù))或繪圖大小的百分比(使用mult=參數(shù))：

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 = expand_scale(mult = c(0, .1))) +
  theme_bw()

反對回復(fù) 2019-07-11

FFIVE

TA貢獻(xiàn)1797條經(jīng)驗(yàn) 獲得超6個贊

另一個產(chǎn)生相同結(jié)果的選項(xiàng)是使用coord_cartesian而不是連續(xù)的位置標(biāo)度(x&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())

反對回復(fù) 2019-07-11