將多個單元格合併爲一個單元格R

Question

我想將各個矢量值（每個當前保存爲矩陣中的一行）合併到單個單元格中，值之間用逗號分隔。

我現在的代碼創建隨機向量。

例如，

## Group 1 
N <- 10 

set.seed(06510) 

grp1 <- t(replicate(N, sample(seq(1:4), 4, replace = FALSE))) 

結果看起來像

表1：

 [,1] [,2] [,3] [,4] 
[1,] 2 4 3 1 
[2,] 4 2 1 3 
[3,] 2 4 1 3 
[4,] 1 4 3 2 
[5,] 1 3 2 4 
[6,] 2 1 3 4 
[7,] 4 3 2 1 
[8,] 4 1 3 2 
[9,] 2 4 3 1 
[10,] 1 4 2 3 

但我想要的結果看起來像：

表2：

 [,1] 
[1,] 2,4,3,1 
[2,] 4,2,1,3 
[3,] 2,4,1,3 
[4,] 1,4,3,2 
[5,] 1,3,2,4 
[6,] 2,1,3,4 
[7,] 4,3,2,1 
[8,] 4,1,3,2 
[9,] 2,4,3,1 
[10,] 1,4,2,3 

我正在創建一個隨機化表，每個單元格表示每個調查對象的4個調查問題的排序。最終，我想創建多個像上面那樣的列，因此爲每個隨機化項目維護4列將會產生一個難以閱讀的大型隨機表。

Answer 1

無論你做什麼，你最終會得到character s，我希望你不會感到驚訝。

apply(grp1,1,paste,collapse=",") 

給你一個矢量結果。你可以把它變成這樣的矩陣：

matrix(apply(grp1,1,paste,collapse=","),ncol=1) 

請參閱?apply。 apply()是巨大有用。

Answer 2

您的主要問題是您需要使用功能I()來保護list strucuture。你的第二個問題是你需要返回一個list結構replicate()這是返回一個矩陣（因爲你有一組等長向量）。設置simplify = FALSE並記下置操作t發生....

grp1 <- replicate(N, t(sample(seq(1:4), 4, replace = FALSE)) , simplify = FALSE) 

as.data.frame(I(grp1)) 
#  I(grp1) 
#1 2, 4, 3, 1 
#2 4, 2, 1, 3 
#3 2, 4, 1, 3 
#4 1, 4, 3, 2 
#5 1, 3, 2, 4 
#6 2, 1, 3, 4 
#7 4, 3, 2, 1 
#8 4, 1, 3, 2 
#9 2, 4, 3, 1 
#10 1, 4, 2, 3 

# And just to check... 
sapply(as.data.frame(I(grp1)) , mode) 
I(grp1) 
"list" 

不過，我不知道這是爲什麼你更有用比一個普通的老data.frame或者甚至可能爲您更好地使用 - 情況下，list的matrices。