R - 如何重新整理兩列中的數據幀整理值？

我有一個數據框，我需要重塑，以方便它在一個viz應用程序中使用。這裏的數據幀的壓縮版本：R - 如何重新整理兩列中的數據幀整理值？

Carrier <- c("Mesa", "United", "JetBlue", "ExpressJet", "SkyWest") 
Flight_Num <- c(7124, 7177, 334, 1223, 6380) 
Origin <- c("ORD", "EWR", "SFO", "BOS", "BDL") 
Dest <- c("PIT", "BOI", "DSM", "CWA", "CMH") 
Sched_Depr <- c(1955, 1900, 1845, 1253, 1755) 

df <- data.frame(Carrier, Flight_Num, Origin, Dest, Sched_Depr) 

    Carrier Flight_Num Origin Dest Sched_Depr 
1  Mesa  7124 ORD PIT  1955 
2  United  7177 EWR BOI  1900 
3 JetBlue  334 SFO DSM  1845 
4 ExpressJet  1223 BOS CWA  1253 
5 SkyWest  6380 BDL CMH  1755

Origin和Dept被解釋爲地理數據（即座標）由應用程序即。我需要將它們整理在一個名爲Coords的列中。同時我需要創建一個新的訂單標記變量Order_Points。因此，新的，重塑數據幀應該是這樣的：

 Carrier Flight_Num Coords Sched_Depr Order_Points 
1  Mesa  7124 ORD  1955   1 
2  Mesa  7124 PIT  1955   2 
3  United  7177 EWR  1900   1 
4  United  7177 BOI  1900   2 
5  JetBlue  334 SFO  1845   1 
6  JetBlue  334 DSM  1845   2 
7 ExpressJet  1223 BOS  1253   1 
8 ExpressJet  1223 CWA  1253   2 
9  SkyWest  6380 BDL  1755   1 
10 SkyWest  6380 CMH  1755   2

什麼是整理兩列這樣一種有效的方式，同時保持（和複製）其他變量？

來源

2017-10-29 Conner M.

這裏有一個選項使用tidyverse函數。我們使用gather將數據幀從「寬」格式轉換爲「長格式」。這還添加了一個列（在此稱爲Type），標記Coords是Origin還是Dest。

library(tidyverse) 

df.long = df %>% 
    gather(Type, Coords, Origin, Dest) %>% 
    arrange(Carrier, desc(Type))

 Carrier Flight_Num Sched_Depr Type Coords 
1 ExpressJet  1223  1253 Origin BOS 
2 ExpressJet  1223  1253 Dest CWA 
3  JetBlue  334  1845 Origin SFO 
4  JetBlue  334  1845 Dest DSM 
5  Mesa  7124  1955 Origin ORD 
6  Mesa  7124  1955 Dest PIT 
7  SkyWest  6380  1755 Origin BDL 
8  SkyWest  6380  1755 Dest CMH 
9  United  7177  1900 Origin EWR 
10  United  7177  1900 Dest BOI

來源

2017-10-29 01:58:38 eipi10

輕微的一個改進：'df％>％聚集（Order_Points，Coords，Origin，Dest）％>％ mutate（Order_Points => ifelse（Order_Points ==「Origin」，1,2））％>％ select（Carrier，Flight_Num，Coords，Sched_Depr，Order_Points）％>％ arrange（desc（Sched_Depr））' – jsb

您還可以使用基礎R：

dat <- data.frame(Carrier, Flight_Num, Origin, Dest, Sched_Depr) 
    df=reshape(dat,idvar = "Carrier",varying = list(3:4),direction = "long") 
`row.names<-`(df[order(df[,1]),],NULL) 
     Carrier Flight_Num Sched_Depr time Origin 
1 ExpressJet  1223  1253 1 BOS 
2 ExpressJet  1223  1253 2 CWA 
3  JetBlue  334  1845 1 SFO 
4  JetBlue  334  1845 2 DSM 
5  Mesa  7124  1955 1 ORD 
6  Mesa  7124  1955 2 PIT 
7  SkyWest  6380  1755 1 BDL 
8  SkyWest  6380  1755 2 CMH 
9  United  7177  1900 1 EWR 
10  United  7177  1900 2 BOI

可以時間變量名稱更改爲你喜歡在你上面的例子

來源

2017-10-29 02:11:13 Onyambu

R - 如何重新整理兩列中的數據幀整理值？

回答

相關問題