R テキストラベルのオーバーラップを避ける { ggrepel }による作図

Reference - https://twitter.com/Rbloggers/status/686759541883551744
Script
library(ggrepel)
dataset
g<-ggplot()
g<-g+geom_point(aes(dataset[,2],dataset[,3]),color="red")
g<-g+geom_text_repel(
  aes(dataset[,2],dataset[,3],label=paste(dataset[,1],"-",dataset[,2],",",dataset[,3],"%")),
  size=5,
  box.padding=unit(0.5,"lines"),
  force=2,
  max.iter=1e4)
g<-g+ggtitle("Foreign exchange-Turnover in April 2013 Source:BIS")
g<-g+xlab("Amount(in billions of US dollar)")+ylab("Percent")
g<-g+theme(plot.title=element_text(size=20,family="Meiryo"))
g<-g+theme(axis.title.x=element_text(size=20,family="Meiryo")) 
g<-g+theme(axis.title.y=element_text(size=20,family="Meiryo")) 
g<-g+theme(axis.text.x=element_text(size=20,angle=0,family="Meiryo")) 
g<-g+theme(axis.text.y=element_text(size=20,angle=90,family="Meiryo")) 
g
Result
> dataset
   Currency pair Amount Percent
1      USD / EUR   1289    24.1
2      USD / JPY    978    18.3
3      USD / GBP    472     8.8
4      USD / AUD    364     6.8
5      USD / CAD    200     3.7
6      USD / CHF    184     3.4
7      USD / MXN    128     2.4
8      USD / CNY    113     2.1
9      USD / NZD     82     1.5
10     USD / RUB     79     1.5
11     USD / HKD     69     1.3
12     USD / SGD     65     1.2
13     USD / TRY     63     1.2
14     USD / KRW     60     1.1
15     USD / SEK     55     1.0
16     USD / ZAR     51     1.0
17     USD / INR     50     0.9
18     USD / NOK     48     0.9
19     USD / BRL     48     0.9
20     USD / PLN     22     0.4
21     USD / TWD     22     0.4
22    USD / OTH     213     4.0

2016年03月29日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第4週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月22日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第3週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月15日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第2週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移