如何使垂直条更小？

Question

我的R代码

#!/usr/bin/R

library(vcd)

fcm <-c(13.0,12.5,11.8)
gk  <-c(10.9 ,   10.5  ,  10.2)
gg  <-c(12.0 ,   11.0 ,   10.8)
data <- rbind(fcm,gk,gg)
colnames(data) <- c(5,6,7)

barplot(as.matrix(data),ylim=c(0,13),main="P wave",
        xlab="number of clusters", ylab="traveltime rms(ms)",
        col=c("red", "black", "green"), beside=TRUE)

legend("topright", 
       legend = c("fcm","gk","gg"), 
       fill = c( "red", "black", "green"))

我当时对图像感到满意。问题是我已经提交了这张图片和许多其他图片，以便在科学期刊上发表。其中一个版本抱怨说，由于空间问题，这样的图像应该变小。任何想法如何使垂直条更小，但保持主要信息可见？