Transponiendo datos en R

# Publicaciones técnicas y cientí­ficas de 1981 al 2009 en paí­ses de América.  
# Fuente: Datos del Banco Mundial http://data.worldbank.org/indicator/IP.JRN.ARTC.SC 
ePubli <- read.csv("C:/Users/Administrator/Desktop/publicaciones.csv")

# mostrando datos
ePubli

                 pais   total
1           Argentina   59598
2              Belize      37
3             Bolivia     666
4              Brazil  144295
5              Canada  602876
6               Chile   27867
7            Colombia    6305
8          Costa Rica    1783
9                Cuba    4470
10 Dominican Republic     169
11            Ecuador     839
12        El Salvador      78
13          Guatemala     469
14              Haiti      91
15           Honduras     158
16             Mexico   61203
17          Nicaragua     214
18             Panama    1085
19           Paraguay     175
20               Peru    2163
21      United States 4940670
22            Uruguay    3134
23      Venezuela, RB   10460

# transponer datos
ePubliT = setNames(data.frame(t(ePubli[,-1])), ePubli[,1])

# mostrando datos transpuestos
ePubliT

  Argentina Belize Bolivia Brazil Canada Chile Colombia Costa Rica Cuba
1     59598     37     666 144295 602876 27867     6305       1783 4470
  Dominican Republic Ecuador El Salvador Guatemala Haiti Honduras Mexico
1                169     839          78       469    91      158  61203
  Nicaragua Panama Paraguay Peru United States Uruguay Venezuela, RB
1       214   1085      175 2163       4940670    3134         10460