R调整条形图中的刻度线

Question

我想调整刻度线，以便我可以很好地打印出我的数据。

这是我的代码和添加的条形图

> data
   Attributes Year Contribution rank
2           a 2014        0.211    2
1           a 2013        0.188    1
3           b 2013        0.160    3
4           b 2014        0.160    4
5           d 2013        0.152    5
7           c 2013        0.150    7
6           c 2014        0.146    6
9           e 2013        0.145    9
8           d 2014        0.139    8
10          e 2014        0.121   10
12          f 2014        0.117   12
11          f 2013        0.110   11
14          g 2014        0.079   14
13          g 2013        0.063   13


#fix for sorting the Attributes in order to plot in a sorted way

data <- data[with(data,order(-Contribution)), ] ## Sorting
data$Attributes <- ordered(data$Attributes, levels=levels(data$Attributes)[unclass(data$Attributes)])

ggplot(data, aes(Attributes, Contribution)) + geom_bar(aes(Attributes, fill = Year), position = "dodge", stat="identity") + coord_flip() +
  scale_fill_manual(values=c("#016c59","#02818a"))  +  coord_flip() + xlim(rev(levels(data$Attributes))) 

此代码生成图：

我想在属性轴上有均匀间距，任何想法??