带reshape2的转置表

Question

我有一个data.frame：

mtcars_sub <- mtcars[1:5,c("mpg", "disp")]
mtcars_sub$car <- rownames(mtcars_sub)
rownames(mtcars_sub) <- 1:5
mtcars_sub

   mpg disp               car
1 21.0  160         Mazda RX4
2 21.0  160     Mazda RX4 Wag
3 22.8  108        Datsun 710
4 21.4  258    Hornet 4 Drive
5 18.7  360 Hornet Sportabout

我需要将data.frame重塑成这样的格式：

​

​

我特别想要一个使用reshape2包的答案

Answer 1

下面是你要找的东西：

> library(reshape2)
> dcast(melt(mtcars_sub), variable~car)
Using car as id variables
  variable Datsun 710 Hornet 4 Drive Hornet Sportabout Mazda RX4 Mazda RX4 Wag
1      mpg       22.8           21.4              18.7        21            21
2     disp      108.0          258.0             360.0       160           160

或者，您可以使用...替换variable。

>dcast(melt(mtcars_sub), ...~car)