[問題] table()函數問題

[phil5566 (5566)]

[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)

[軟體熟悉度]:
新手

[問題敘述]:



假設資料是T,A<-table(T),b<-cumsum(A)/sum(A),希望把A用來分類的factor取出來,

當成一個向量a,把a和b組成2*10的矩陣,因為後續計算會用的到,求高手指教



[程式範例]:

例如:T<-c(1:10)

希望達成

    [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]    1    2    3    4    5    6    7    8    9    10
[2,]  0.1  0.2  0.3  0.4  0.5  0.6  0.7  0.8  0.9   1.0

以上的效果


[環境敘述]:
win 7/R3.3.1

[關鍵字]:

table(),cumsum(),sum()



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.224.17.110
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1482775866.A.559.html
→ andrew43: 你是指 T <- 1:10; dimnames(table(T))$T 嗎?
推 koai: rbind(as.double(names(A)),a)
推 f496328mm: prop.table(table(T))
→ f496328mm: x=c(1:10)
→ f496328mm: cumsum( prop.table( table(x) ) )
→ phil5566: 回andrew43大,您的方法取出來後,無法和其他向量作運算
→ phil5566: 回koai大,你的方法,我有成功!!!
→ phil5566: 回f496328mm大,我您的方法,作完後好像還table的型式
→ phil5566: 不是矩陣的型式,謝謝版上高手指教,我學很到很多,感謝
→ phil5566: 附上小弟後來的作法以及跑出來的結果
→ phil5566: f<-as.double(names(table(T[,6])))
→ phil5566: e<-data.frame(cumsum(table(T[,6]))/sum(table(T[,6]))
→ phil5566: D<-rbind(f,e[,1])
→ phil5566: 處理的data,以及跑的過程 http://codepad.org/Ju9SFS2L
→ phil5566: rbind的結果好像怪怪的,列的部分為何不是顯示"[1] [2]"
→ phil5566: 而是顯示"f   "
→ phil5566: 有人有更好的作法嗎?謝謝
→ andrew43: 不順眼的話 rownames(D) <- NULL 洗掉即可
→ andrew43: 那是rbind()附帶的效果
推 f496328mm: 你最後做完D  再加上
→ f496328mm: matrix(D,ncol=ncol(D))
→ f496328mm: f應該就沒了
→ phil5566: 讚讚讚~ok了