R多个箱线图并标注离群点

在学探索性数据分析的时候，老师让我们做多个箱线图，并且找出其离群点并标注出来，我是R语言的小菜鸟，鼓捣了一天写出来了一个小程序，希望需要这个的人有所帮助。

Sweden=c(7.87,4.22,2.49,0.94,0.89,0.87,0.81,0.78,0.71,0.69)
Netherlans=c(8.68,7.31,6.02,2.64,1.75,1.72,1.51,1.42,1.31,1.29)
Canada=c(11.91,6.72,3.84,2.81,2.73,2.68,2.65,2.49,1.71,1.69)
France=c(28.11,7.83,5.35,3.30,2.94,2.54,2.46,2.33,2.03,1.99)
Mexico=c(31.18,10.12,8.06,3.79,3.46,2.91,2.71,2.17,2.06,1.86)
Argentina=c(29.66,7.61,6.35,4.10,3.8,2.75,2.7,2.69,2.51,2.44)
Spain=c(25.99,16.96,5.01,4.74,3.57,3.34,3.12,2.64,2.14,1.69)
England=c(79.86,11.02,7.22,6.38,5.09,4.88,4.30,3.30,3.10,2.99)
Italy=c(23.59,15.80,11.82,11.14,7.84,5.90,4.54,4.44,3.61,3.36)
WestGermany=c(21.92,18.56,11.42,8.27,7.28,7.02,6.94,6.53,5.84,5.66)
Brazil=c(49.81,38.57,9.68,9.52,8.08,8.03,6.99,5.02,4.95,2.78)
SovietUnion=c(63.34,36.36,13.32,11.37,10.90,10.84,10.70,10.27,9.5,9.17)
Japan=c(110.21,32.14,18.88,16.39,13.37,11.95,10.70,7.89,7.71,7.04)
UnitedStates=c(77.81,35.50,24.79,20.02,16.70,9.39,9.38,8.76,7.63,7.50)
India=c(45.37,30.03,22.98,20.62,17.25,16.11,11.49,9.47,9.07,7.21)
China=c(69,40.10,36.92,32.20,24.11,21.46,21.21,16.50,15.00,11.13)

name=c('Sweden','Netherlans','Canada','France','Mexico','Argentina',

       'Spain','England','Italy','WestGermany','Brazil','SovietUnion',
       'Japan','UnitedStates','India','China')
LQ=boxplot(Sweden,Netherlans,Canada,France,Mexico,Argentina,
           Spain,England,Italy,WestGermany,Brazil,SovietUnion,
           Japan,UnitedStates,India,China,
           names=name,pch="*",cex=1.5,horizontal = TRUE)
lq=LQ$out


foo<-read.table(file= "D:\\Data\\Rdatas\\shujufenxi1.txt",head=T,stringsAsFactors = FALSE)
foo
countryname1=rep('a',length(lq))
row=rep(0,length(lq))
l=rep(0,length(lq))
for (i in 1:length(lq))
{ for (j in 1:160)
  if(lq[i]==foo[j,1])
  {print (foo[j,3])
    countryname1[i]=foo[j,3]
    row[i]=j
    l[i]=ceiling(j/10.0)}
}
names(LQ$out)=countryname1
countryname1
l

text(x=LQ$out,y=l,labels=countryname1,cex=1,col="blue")

#以下是txt格式的文档

population nation country
7.87 Sweden Stockholm
4.22 Sweden Goteborg
2.49 Sweden Malomo
0.94 Sweden Norrkoping
0.89 Sweden Vasteras
0.87 Sweden Uppsala
0.81 Sweden Orebro
0.78 Sweden Halsingborg
0.71 Sweden Linkoping
0.69 Sweden Boras
8.68 Netherlans Amsterdarm
7.31 Netherlans Rotterdam
6.02 Netherlans TheHangue
2.64 Netherlans Utrecht
1.75 Netherlans Eindhoven
1.72 Netherlans Haarlem
1.51 Netherlans Groningen
1.42 Netherlans Tilburg
1.31 Netherlans Enschede
1.29 Netherlans Arnhem
11.91 Canada Montreal
6.72 Canada Toronto
3.84 Canada Vaocover
2.81 Canada Edmonton
2.73 Canada Hamilton
2.68 Canada Ottawa
2.65 Canada Winnipeg
2.49 Canada Calgary
1.71 Canada Quebec
1.69 Canada London
28.11 France Paris
7.83 France Marscilles
5.35 France Lyon
3.30 France Toulouse
2.94 France Nice
2.54 France Bordcaux
2.46 France Nantes
2.33 France Strasbourg
2.03 France St.Etienne
1.99 France Lille
31.18 Mexico MexicoCity
10.12 Mexico Guadalajara
8.06 Mexico Monterrey
3.79 Mexico Juarez
3.46 Mexico Puebla
2.91 Mexico Mexicali
2.71 Mexico Leon
2.17 Mexico Torreon
2.06 Mexico Chibuahua
1.86 Mexico SanLuisPotosi
29.66 Argentina BuenosAires
7.61 Argentina Rosario
6.35 Argentina Cordoba
4.10 Argentina LaPlata
3.80 Argentina Avellaneda
2.75 Argentina SantaFe
2.70 Argentina MardelPalata
2.69 Argentina GeneraSanMartin
2.51 Argentina Tucuman
2.44 Argentina Lanus
25.99 Spain Madmd
16.96 Spain Barcelona
5.01 Spain Valencia
4.74 Spain Seville
3.57 Spain Zaragoza
3.34 Spain Bilboa
3.12 Spain Malaga
2.64 Spain Murcia
2.14 Spain Cordoba
1.69 Spain Palma
79.86 England London
11.02 England Birmingham
7.22 England Livecpool
6.38 England Manchester
5.09 England Leeds
4.88 England Sheffied
4.30 England Bristol
3.30 England Coventry
3.10 England Nottingham
2.99 England Kingston-upon-Hull
23.59 Italy Rome
15.80 Italy Milan
11.82 Italy Naples
11.14 Italy Turin
7.84 Italy Genos
5.90 Italy Palermo
4.54 Italy Florence
4.44 Italy Bologna
3.61 Italy Catamia
3.36 Italy Venice
21.92 WestGermany WestBerlin
18.56 WestGermany Hamburg
11.42 WestGermany Munich
8.27 WestGermany Cologne
7.28 WestGermany Essen
7.02 WestGermany Dusseldorf
6.94 WestGermany Frankfurt
6.53 WestGermany Dortmund
5.84 WestGermany Bremen
5.66 WestGermany Hannover
49.81 Brazil SaoPaulo
38.57 Brazil RiodeJaneiro
9.68 Brazil Recife
9.52 Brazil BeioHorizonte
8.08 Brazil Salvador
8.03 Brazil PortoAlegre
6.99 Brazil Fortaleza
5.02 Brazil Curitiba
4.95 Brazil Belem
2.78 Brazil Niterol
63.34 SovietUnion Moscow
36.36 SovietUnion Leningrad
13.32 SovietUnion Kiev
11.37 SovietUnion Baku
10.90 SovietUnion Tashkent
10.84 SovietUnion Gorky
10.70 SovietUnion Kharkov
10.27 SovietUnion Novosibirsk
9.50 SovietUnion Kuibyshev
9.17 SovietUnion Sverdlovsk
110.21 Japan Tokyo
32.14 Japan Osaka
18.88 Japan Nagoya
16.39 Japan Yokohama
13.37 Japan Kyoto
11.95 Japan Kobe
10.70 Japan KitaKyushu
7.89 Japan Kawasaki
7.71 Japan Fukuoka
7.04 Japan Saporo
77.81 UnitedStates NewYorkCity
35.50 UnitedStates Chicago
24.79 UnitedStates LosAngeles
20.02 UnitedStates Philadelphia
16.70 UnitedStates Detroit
9.39 UnitedStates Beltimore
9.38 UnitedStates Houston
8.76 UnitedStates Cleveland
7.63 UnitedStates WashongtonDC
7.50 UnitedStates St.Louis
45.37 India Bombay
30.03 India Calcutta
22.98 India Delhi
20.62 India Hyderabad
17.25 India Madra
16.11 India Howrah
11.49 India Ahmedabad
9.47 India Kangalore
9.07 India Bengalore
7.21 India Poona
69.00 China Shanghai
40.10 China Beijing
36.92 China HongKpng
32.20 China Tianjin
24.11 China Shenzhen
21.46 China Wuhan
21.21 China Chongqing
16.50 China Canton
15.00 China Xian
11.13 China Nanjing