2015-02-09 53 views
1

如何更改數據框以便將行索引用作列標題?將索引行作爲列標題

我有這樣的數據:

0 1.052 
1 0.542 
2 0.496 
3 0.402 
4 0.278 
0 5.115 
1 4.329 
2 4.121 
3 4.075 
4 4.0088 
... 

我想獲得它讓我獲得與指數列標題,其指數在第二列的矩陣?

+0

我只是用第一個解決方案,我得到了becouse它的工作對什麼即時試圖做的,我不介意的錯誤信息,林有R真的不好,所以我儘量避免這樣做,以複雜的東西 – user3700660 2015-02-10 13:10:08

回答

2

你只需要使用矩陣功能和更改的byrow默認值:

## Create some example data 
dd = data.frame(x = 0:4, y=runif(5*5)) 

## Specify the number of columns 
## Order by Row 
matrix(dd[,2], ncol=length(unique(dd[,1])), byrow = TRUE) 
0

不知道我明白你的意思,但似乎你願意把一個列標題,或關鍵。在這種情況下,我只想建議使用data.table包,尤其是setkey功能

1

這裏是一個可能的data.table溶液(您沒有提供列名,所以我認爲這是V1V2

library(data.table) 
setDT(df)[, indx := cumsum(V1 == 0)] 
dcast(df, indx ~ V1, value.var = "V2") 
# indx  0  1  2  3  4 
# 1: 1 1.052 0.542 0.496 0.402 0.2780 
# 2: 2 5.115 4.329 4.121 4.075 4.0088 

或者更簡單的(由@akrun提議)

library(reshape2) 
acast(df, cumsum(V1 == 0) ~ V1, value.var = 'V2') 

數據

df <- structure(list(V1 = c(0L, 1L, 2L, 3L, 4L, 0L, 1L, 2L, 3L, 4L), 
     V2 = c(1.052, 0.542, 0.496, 0.402, 0.278, 5.115, 4.329, 4.121, 
     4.075, 4.0088)), .Names = c("V1", "V2"), class = "data.frame", row.names = c(NA, 
    -10L)) 
+1

基本上我想說'library(reshape2);如果OP想要一個矩陣輸出,那麼acast(df,cumsum(V1 == 0)〜V1,value.var ='V2') – akrun 2015-02-09 12:40:26

+0

@akrun OP表示他們有一個數據幀,但接受了一個矩陣解,所以我'我不確定他們真的有什麼 – 2015-02-09 12:42:53

+1

接受的解決方案的問題是,假設如果其中一個組合不存在即ie。 'dd < - dd [-10,]',你會收到警告信息 – akrun 2015-02-09 12:45:31

0

可以使用unstack

unstack(dat, y ~ x) 

其中dat是數據幀的名稱,x是第一(指示器)列的名稱,並y是第二的名稱(值)列。

一個例子:

set.seed(1) 
dat <- data.frame(x = 0:4, y = rnorm(10)) 
# x   y 
# 1 0 -0.6264538 
# 2 1 0.1836433 
# 3 2 -0.8356286 
# 4 3 1.5952808 
# 5 4 0.3295078 
# 6 0 -0.8204684 
# 7 1 0.4874291 
# 8 2 0.7383247 
# 9 3 0.5757814 
# 10 4 -0.3053884 

unstack(dat, y ~ x) 
#   X0  X1   X2  X3   X4 
# 1 -0.6264538 0.1836433 -0.8356286 1.5952808 0.3295078 
# 2 -0.8204684 0.4874291 0.7383247 0.5757814 -0.3053884