下面的代码生成下面的图像。如何修改代码以使绘图在彩色组之外没有灰色空间？从某种意义上说，我希望图像的颜色部分接触图像周围的白色。
#import the libraries
library(ggplot2)
library(dplyr)
#creates the values and data frame
time<- as.numeric(rep(seq(1,7),each=7))
value<- runif(49,30,100)
group<- rep(LETTERS[1:7], times=7)
data1<-data.frame(time,value,group)
#plot the area stacked area chart
ggplot(data1, aes(x=time, y=value, fill=group))+geom_area()
