爲數據框中的每一行添加列名稱

Question

我想將列名稱添加爲與該列關聯的行的參數條目。這是我曾嘗試：

x <- matrix(c(101:104,101:104,105:106,1,2,3,3,4,5,4,5,7,5), nrow=10, ncol=2) 

    V1 V2 
1 101 1 
2 102 2 
3 103 3 
4 104 3 
5 101 4 
6 102 5 
7 103 4 
8 104 5 
9 105 7 
10 106 5 

轉換爲表：

as.data.frame(table(x)) 

這給了我：

 x Freq 
1 1 1 
2 2 1 
3 3 2 
4 4 2 
5 5 3 
6 7 1 
7 101 2 
8 102 2 
9 103 2 
10 104 2 
11 105 1 
12 106 1 

我應該怎麼做，所以我得到這樣的：

V Val Freq 
1 V2 1 1 
2 V2 2 1 
3 V2 3 2 
4 V2 4 2 
5 V2 5 3 
6 V2 7 1 
7 V1 101 2 
8 V1 102 2 
9 V1 103 2 
10 V1 104 2 
11 V1 105 1 
12 V1 106 1 

我對R比較新。所以如果有一個我可以使用的替代方法，請讓我知道。

Answer 1

試試這個：

pt1<-data.frame(V="V1",table(x[,1])) 
pt2<-data.frame(V="V2",table(x[,2])) 
final<-rbind(pt1,pt2) 

編輯：

countcols<-function(df) { 
    colname<-colnames(df) 
    # create empty dataframe with structure we want 
    counts<-data.frame(V="temp",table(df[,1]))[0,] 
for (i in colname) { 
    counts<-rbind(counts,data.frame(V=i,table(df[,i]))) 
} 
    return(counts) 
} 

請記住，您需要命名的對象。

countcols(x)給出了一個整潔的輸出每列的計數

編輯：

> pander::pander(countcols(mtcars)) 

------------------ 
V Var1 Freq 
---- ------ ------ 
mpg 10.4 2 

mpg 13.3 1 

mpg 14.3 1 

mpg 14.7 1 

mpg 15  1 

mpg 15.2 2 

mpg 15.5 1 

mpg 15.8 1 

mpg 16.4 1 

mpg 17.3 1 

mpg 17.8 1 

mpg 18.1 1 

mpg 18.7 1 

mpg 19.2 2 

mpg 19.7 1 

mpg 21  2 

mpg 21.4 2 

mpg 21.5 1 

mpg 22.8 2 

mpg 24.4 1 

mpg 26  1 

mpg 27.3 1 

mpg 30.4 2 

mpg 32.4 1 

mpg 33.9 1 

cyl 4  11 

cyl 6  7 

cyl 8  14 

disp 71.1 1 

disp 75.7 1 

disp 78.7 1 

disp 79  1 

disp 95.1 1 

disp 108  1 

disp 120.1 1 

disp 120.3 1 

disp 121  1 

disp 140.8 1 

disp 145  1 

disp 146.7 1 

disp 160  2 

disp 167.6 2 

disp 225  1 

disp 258  1 

disp 275.8 3 

disp 301  1 

disp 304  1 

disp 318  1 

disp 350  1 

disp 351  1 

disp 360  2 

disp 400  1 

disp 440  1 

disp 460  1 

disp 472  1 

hp 52  1 

hp 62  1 

hp 65  1 

hp 66  2 

hp 91  1 

hp 93  1 

hp 95  1 

hp 97  1 

hp 105  1 

hp 109  1 

hp 110  3 

hp 113  1 

hp 123  2 

hp 150  2 

hp 175  3 

hp 180  3 

hp 205  1 

hp 215  1 

hp 230  1 

hp 245  2 

hp 264  1 

hp 335  1 

drat 2.76 2 

drat 2.93 1 

drat 3  1 

drat 3.07 3 

drat 3.08 2 

drat 3.15 2 

drat 3.21 1 

drat 3.23 1 

drat 3.54 1 

drat 3.62 1 

drat 3.69 1 

drat 3.7  1 

drat 3.73 1 

drat 3.77 1 

drat 3.85 1 

drat 3.9  2 

drat 3.92 3 

drat 4.08 2 

drat 4.11 1 

drat 4.22 2 

drat 4.43 1 

drat 4.93 1 

wt 1.513 1 

wt 1.615 1 

wt 1.835 1 

wt 1.935 1 

wt 2.14 1 

wt 2.2  1 

wt 2.32 1 

wt 2.465 1 

wt 2.62 1 

wt 2.77 1 

wt 2.78 1 

wt 2.875 1 

wt 3.15 1 

wt 3.17 1 

wt 3.19 1 

wt 3.215 1 

wt 3.435 1 

wt 3.44 3 

wt 3.46 1 

wt 3.52 1 

wt 3.57 2 

wt 3.73 1 

wt 3.78 1 

wt 3.84 1 

wt 3.845 1 

wt 4.07 1 

wt 5.25 1 

wt 5.345 1 

wt 5.424 1 

qsec 14.5 1 

qsec 14.6 1 

qsec 15.41 1 

qsec 15.5 1 

qsec 15.84 1 

qsec 16.46 1 

qsec 16.7 1 

qsec 16.87 1 

qsec 16.9 1 

qsec 17.02 2 

qsec 17.05 1 

qsec 17.3 1 

qsec 17.4 1 

qsec 17.42 1 

qsec 17.6 1 

qsec 17.82 1 

qsec 17.98 1 

qsec 18  1 

qsec 18.3 1 

qsec 18.52 1 

qsec 18.6 1 

qsec 18.61 1 

qsec 18.9 2 

qsec 19.44 1 

qsec 19.47 1 

qsec 19.9 1 

qsec 20  1 

qsec 20.01 1 

qsec 20.22 1 

qsec 22.9 1 

vs 0  18 

vs 1  14 

am 0  19 

am 1  13 

gear 3  15 

gear 4  12 

gear 5  5 

carb 1  7 

carb 2  10 

carb 3  3 

carb 4  10 

carb 6  1 

carb 8  1 
------------------ 

Answer 2

你沒有任何列名添加到原矩陣x開始。矩陣不會像數據框一樣自動添加列名。但沒關係，我們可以使用矢量來模擬它們。然後，我們可以將表格值與模擬列名匹配起來。

a <- as.data.frame(table(x)) 
cbind(V = c("V1", "V2")[col(x)[match(a$x, x)]], a) 
#  V x Freq 
# 1 V2 1 1 
# 2 V2 2 1 
# 3 V2 3 2 
# 4 V2 4 2 
# 5 V2 5 3 
# 6 V2 7 1 
# 7 V1 101 2 
# 8 V1 102 2 
# 9 V1 103 2 
# 10 V1 104 2 
# 11 V1 105 1 
# 12 V1 106 1 

Answer 3

您可以使用data.table軟件包這一還有：

library(data.table) 
melt(as.data.table(x), measure.vars=1:2)[, .N, by = .(variable, value)] 

這給期望的結果：

variable value N 
1:  V1 101 2 
2:  V1 102 2 
3:  V1 103 2 
4:  V1 104 2 
5:  V1 105 1 
6:  V1 106 1 
7:  V2  1 1 
8:  V2  2 1 
9:  V2  3 2 
10:  V2  4 2 
11:  V2  5 3 
12:  V2  7 1