2

我正在使用图表制作图表ggplot，但无法减少条形之间的空间。我只能通过增加条的大小来做到这一点，但我希望它们变薄而不是那么远。

我用过position_dodge(width = 0.5)但没有帮助我。

我的脚本

library(scales)
seguro <- matrix(0,4,3)
seguro <- as.data.frame(seguro)
seguro[,1] <- c("2010","2011","2012","2013")
seguro[,2] <-c(89,86,87,88)
seguro[,3] <-c("89%","86%","87%","88%")
names(seguro)[c(1)]<-c("Ano")
ggplot(seguro, aes(Ano, V2, fill=Ano))+
         geom_bar(width=0.3,stat="identity",
                 position="identity", aes(fill=Ano)) +
         scale_y_continuous(labels=percent) +
         geom_text(data=seguro,aes(x=Ano,label=V3),vjust=0)
4

1 回答 1

1

也许通过更改输出窗口大小而不是调整函数中的代码可以更好地回答您的问题ggplot：

library(scales)
seguro <- matrix(0,4,3)
seguro <- as.data.frame(seguro)
seguro[,1] <- c("2010","2011","2012","2013")
seguro[,2] <-c(89,86,87,88)
seguro[,3] <-c("89%","86%","87%","88%")
names(seguro)[c(1)]<-c("Ano")

x11(height=7,width=5)

ggplot(seguro, aes(Ano, V2, fill=Ano))+
         geom_bar(width=0.3,stat="identity",
                 position="identity", aes(fill=Ano)) +
         scale_y_continuous(labels=percent) +
         geom_text(data=seguro,aes(x=Ano,label=V3),vjust=0)

如果您将其输出为 pdf 或 jpeg，您可以执行类似的操作：

pdf("test.pdf",height=7,width=5)
ggplot(seguro, aes(Ano, V2, fill=Ano))+
         geom_bar(width=0.3,stat="identity",
                 position="identity", aes(fill=Ano)) +
         scale_y_continuous(labels=percent) +
         geom_text(data=seguro,aes(x=Ano,label=V3),vjust=0)
dev.off()
于 2013-10-07T19:52:17.867 回答