說我有這個矩陣:展開計數的矩陣
set.seed(10)
mat <- matrix(sample(0:3, 25, TRUE), ncol = 5)
rownames(mat) <- month.abb[1:5]
colnames(mat) <- state.name[1:5]
mat
## Alabama Alaska Arizona Arkansas California
## Jan 2 0 2 1 3
## Feb 1 1 2 0 2
## Mar 1 1 0 1 3
## Apr 2 2 2 1 1
## May 0 1 1 3 1
我在尋找一個有效(非鹼溶液歡迎)的方式來擴展每個觀察/ n行第倍(最大n的決定如下所示(我不確定這個技術是否有名字,但如果有人對這個擴展有評論,我很想知道它叫什麼,使得Google更容易)。
## Alabama Alaska Arizona Arkansas California
## Jan 1 0 1 1 1
## Jan 1 0 1 0 1
## Jan 0 0 0 0 1
## Feb 1 1 1 0 1
## Feb 0 0 1 0 1
## Mar 1 1 0 1 1
## Mar 0 0 0 0 1
## Mar 0 0 0 0 1
## Apr 1 1 1 1 1
## Apr 1 1 1 0 0
## May 0 1 1 1 1
## May 0 0 0 1 0
## May 0 0 0 1 0
增加rownames修復;隨時回滾。 –
@TylerRinker呃!你打敗了我,哈哈!從字面上看,我的想法完全一樣。 +1 – brittenb
@TylerRinker看起來不錯。我希望能夠在不創建另一個對象的情況下獲取行名,但我想不出如何。 –