目的：须要把数据框的行列进行转置

方法：

# 原始数据框
> hrl_jd_mon
    年份 一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月
1 2010年 51.2 45.8 55.8 62.9 63.8 59.5 80.5 78.0 66.0 92.3  50.80   55.6
2 2011年 54.8 54.4 64.1 78.5 64.5 63.4 95.3 89.2 68.8 86.1  51.40   52.4
3 2012年 53.0 46.1 52.8 72.6 49.8 50.1 65.3 64.6 54.4 73.0  39.40   40.5
4 2013年 40.7 43.7 45.1 50.9 40.7 41.1 50.7 54.5 37.8 62.5  30.20   29.6
5 2014年 28.2 34.1 30.3 33.4 31.5 23.5 32.3 33.0 22.5 29.9   3.31    0.0

# 转置过程：
> 月份 <- c("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月")

> data.frame(hrl_jd_mon,row.names=1)
       一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月
2010年 51.2 45.8 55.8 62.9 63.8 59.5 80.5 78.0 66.0 92.3  50.80   55.6
2011年 54.8 54.4 64.1 78.5 64.5 63.4 95.3 89.2 68.8 86.1  51.40   52.4
2012年 53.0 46.1 52.8 72.6 49.8 50.1 65.3 64.6 54.4 73.0  39.40   40.5
2013年 40.7 43.7 45.1 50.9 40.7 41.1 50.7 54.5 37.8 62.5  30.20   29.6
2014年 28.2 34.1 30.3 33.4 31.5 23.5 32.3 33.0 22.5 29.9   3.31    0.0


> t1 <- t(data.frame(hrl_jd_mon,row.names=1))
> t1 
       2010年 2011年 2012年 2013年 2014年
一月     51.2   54.8   53.0   40.7  28.20
二月     45.8   54.4   46.1   43.7  34.10
三月     55.8   64.1   52.8   45.1  30.30
四月     62.9   78.5   72.6   50.9  33.40
五月     63.8   64.5   49.8   40.7  31.50
六月     59.5   63.4   50.1   41.1  23.50
七月     80.5   95.3   65.3   50.7  32.30
八月     78.0   89.2   64.6   54.5  33.00
九月     66.0   68.8   54.4   37.8  22.50
十月     92.3   86.1   73.0   62.5  29.90
十一月   50.8   51.4   39.4   30.2   3.31
十二月   55.6   52.4   40.5   29.6   0.00

> t2 <- as.data.frame(t1,row.names=F)
> t2
   2010年 2011年 2012年 2013年 2014年
1    51.2   54.8   53.0   40.7  28.20
2    45.8   54.4   46.1   43.7  34.10
3    55.8   64.1   52.8   45.1  30.30
4    62.9   78.5   72.6   50.9  33.40
5    63.8   64.5   49.8   40.7  31.50
6    59.5   63.4   50.1   41.1  23.50
7    80.5   95.3   65.3   50.7  32.30
8    78.0   89.2   64.6   54.5  33.00
9    66.0   68.8   54.4   37.8  22.50
10   92.3   86.1   73.0   62.5  29.90
11   50.8   51.4   39.4   30.2   3.31
12   55.6   52.4   40.5   29.6   0.00

# 终于成品
> t3 <- as.data.frame(cbind(月份,t2))
> t3
     月份 2010年 2011年 2012年 2013年 2014年
1    一月   51.2   54.8   53.0   40.7  28.20
2    二月   45.8   54.4   46.1   43.7  34.10
3    三月   55.8   64.1   52.8   45.1  30.30
4    四月   62.9   78.5   72.6   50.9  33.40
5    五月   63.8   64.5   49.8   40.7  31.50
6    六月   59.5   63.4   50.1   41.1  23.50
7    七月   80.5   95.3   65.3   50.7  32.30
8    八月   78.0   89.2   64.6   54.5  33.00
9    九月   66.0   68.8   54.4   37.8  22.50
10   十月   92.3   86.1   73.0   62.5  29.90
11 十一月   50.8   51.4   39.4   30.2   3.31
12 十二月   55.6   52.4   40.5   29.6   0.00

> str(t3)
'data.frame':        12 obs. of  6 variables:
$ 月份  : Factor w/ 12 levels "八月","二月",..: 12 2 6 10 11 4 5 1 3 9 ...
$ 2010年: num  51.2 45.8 55.8 62.9 63.8 59.5 80.5 78 66 92.3 ...
$ 2011年: num  54.8 54.4 64.1 78.5 64.5 63.4 95.3 89.2 68.8 86.1 ...
$ 2012年: num  53 46.1 52.8 72.6 49.8 50.1 65.3 64.6 54.4 73 ...
$ 2013年: num  40.7 43.7 45.1 50.9 40.7 41.1 50.7 54.5 37.8 62.5 ...
$ 2014年: num  28.2 34.1 30.3 33.4 31.5 23.5 32.3 33 22.5 29.9 ...

原贴地址：http://f.dataguru.cn/forum.php?mod=viewthread&tid=453010&page=1#pid1267442