在R操作數據幀：可能使用dplyr和reshape2

Question

我想將數據幀轉換爲某種格式。我一直在使用dplyr，reshape2等來實現這一點。基本上，我以如下數據框開頭：

library(dplyr) 
library(plotly) 
library(data.table) 
library(reshape2) 

set.seed(1) 
data <- data.frame(ID = paste0("ID",1:10), A = runif(10), B = runif(10), C = runif(10), D = runif(10), E = runif(10), fill = factor(rep("gray", 10), levels = c("gray", palette))) 
data$ID <- as.character(data$ID) 

這創建了以下格式的數據框。

ID   A   B   C   D   E fill 
1 ID1 0.2655087 0.2059746 0.9347052 0.4820801 0.8209463 gray 
2 ID2 0.3721239 0.1765568 0.2121425 0.5995658 0.6470602 gray 
3 ID3 0.5728534 0.6870228 0.6516738 0.4935413 0.7829328 gray 
4 ID4 0.9082078 0.3841037 0.1255551 0.1862176 0.5530363 gray 
5 ID5 0.2016819 0.7698414 0.2672207 0.8273733 0.5297196 gray 
6 ID6 0.8983897 0.4976992 0.3861141 0.6684667 0.7893562 gray 

我會保留這個「數據」數據框以備將來之用。但是，我需要重新安排它來創建一個新的數據幀（現在稱爲「dat_long」）如下：

datt <- data.frame(t(data)) 
names(datt) <- as.matrix(datt[1, ]) 
datt <- datt[-1, ] 
datt[] <- lapply(datt, function(x) type.convert(as.character(x))) 
setDT(datt, keep.rownames = TRUE)[] 
colnames(datt)[1] <- "x" 
dat_long <- melt(datt, id.vars ="x") 

這導致以下結構：

head(dat_long,12) 
     x variable  value 
1: A  ID1 0.26550866 
2: B  ID1 0.2059746 
3: C  ID1 0.93470523 
4: D  ID1 0.4820801 
5: E  ID1 0.8209463 
6: fill  ID1  gray 
7: A  ID2 0.37212390 
8: B  ID2 0.1765568 
9: C  ID2 0.21214252 
10: D  ID2 0.5995658 
11: E  ID2 0.6470602 
12: fill  ID2  gray 

這是幾乎數據我想要的框架。但是，我真正想要的是如下所示：

head(dat_long,12) 
     x variable  value fill 
1: A  ID1 0.26550866 gray 
2: B  ID1 0.2059746 gray 
3: C  ID1 0.93470523 gray 
4: D  ID1 0.4820801 gray 
5: E  ID1 0.8209463 gray 
6: A  ID2 0.37212390 gray 
7: B  ID2 0.1765568 gray 
8: C  ID2 0.21214252 gray 
9: D  ID2 0.5995658 gray 
10: E  ID2 0.6470602 gray 

填充可能不總是「灰色」。但是對於給定的ID變量（ID1，ID2等），它應該在所有五行上具有相同的顏色。

你會怎麼勸我來完成這個目標？

Answer 1

library(dplyr) 
library(plotly) 
library(data.table) 
library(reshape2) 

set.seed(1) 
data <- data.frame(ID = paste0("ID",1:10), A = runif(10), B = runif(10), C = runif(10), 
       D = runif(10), E = runif(10), 
       fill = factor(rep("gray", 10), levels = c("gray", palette))) 
data$ID <- as.character(data$ID) 

install.packages("gtools") 
library(gtools) 

data2 <- melt(data, id.vars = c("ID", "fill"),measure.vars = c("A","B","C","D","E")) 
data3 <- data2[mixedorder(data2$ID),] 

> head(data3,15) 
    ID fill variable  value 
1: ID1 gray  A 0.2655087 
2: ID1 gray  B 0.2059746 
3: ID1 gray  C 0.9347052 
4: ID1 gray  D 0.4820801 
5: ID1 gray  E 0.8209463 
6: ID2 gray  A 0.3721239 
7: ID2 gray  B 0.1765568 
8: ID2 gray  C 0.2121425 
9: ID2 gray  D 0.5995658 
10: ID2 gray  E 0.6470602 
11: ID3 gray  A 0.5728534 
12: ID3 gray  B 0.6870228 
13: ID3 gray  C 0.6516738 
14: ID3 gray  D 0.4935413 
15: ID3 gray  E 0.7829328 

之所以使用gtools訂貨是因爲，與櫃面水平ID1，ID2一個因子變量和ID10-默認的順序是ID1，ID10，ID2因爲性格對其做字符。所以我不得不使用gtools的混合命令。

我希望這回答了你的問題

Answer 2

未經測試的代碼：datt %>% gather(key = key, value = value, -fill, -ID)。