ggplot删除图表周围的白色区域

Question

您好我想删除ggplot中图表周围的白色区域。 plot.background和plot.margin在那里不起作用。

这是我的情节（图表左侧和右侧的巨大白色区域）。我在油漆中添加黑色轮廓。

我想要ggplot保存我的情节，如下所示

有我的代码：

library(data.table)
library(ggplot2)
library(plyr)
library(grid)
srednia<- c(39,17,13)
plus<-srednia+2
minus<-srednia-2
nazwa<-c("name")
labels2<-c("1", "2", "3")
bars=srednia
  df<- data.frame(labels2,srednia, plus, minus, bars)

  ggplot(df, aes(x = factor(labels2), y = srednia, dodge=factor(labels2))) +
  ################################################################################
  labs(title = nazwa, size=3)+   theme(plot.title = element_text(vjust=2.5))+ 
    theme(plot.title = element_text(lineheight=0, color="black", size=8, vjust=.5))+
  ################################################################################
  ylab("Fold change")+theme(axis.title.y = element_text(size = rel(.5), face="italic"))+
    theme(axis.title.x = element_text(size = rel(.5), face="italic"))+ xlab("Cell line") +
    ####################################################################################
  theme(axis.text.y = element_text(colour = 'red', angle = 0, 
                                   size = 5, hjust = 0, vjust = 0, face = 'italic'))+
    ###############################################################################
  theme(axis.text.x = element_text(colour = 'red', angle = 0, 
                                   size = 5, hjust = 0, vjust = 0, face = 'italic'))+
    #################################################################################
  theme(axis.ticks.y = element_line(colour = 'black', size = .2))+
    theme(axis.ticks.x = element_blank())+ 
    theme(axis.line=element_line(colour="black",size=.2))+
    ###################################################################################
  geom_bar(aes(fill=factor(labels2)),alpha=I(.5),stat="identity",fill=labels2, 
           colour=scale_colour_manual(values=cbPalette)) +
    scale_y_continuous(expand = c(0,0)) + scale_x_discrete(expand = c(0.1,0))+
    geom_text(aes(label=bars), size = 2, hjust = 0.5, vjust = 7, position ="stack",                colour="white")+
    ###############################################################################
  geom_errorbar(aes(ymin=(minus), ymax=(plus)), size=.3, linetype="dashed")+
    #############################################################################
  theme(plot.background=element_blank(),panel.grid.minor=element_blank(), 
        panel.grid.major=element_blank(),
        panel.background=element_blank(),legend.position="none",
        plot.margin=unit(c(0,0,0,0),"in"))+coord_equal(1/5)


  ggsave("graph.png",width=3, height=2.5)

你有解决方案吗？