[問題] table()函數問題

作者: phil5566 (5566)   2016-12-27 02:11:03
[問題類型]:
程式諮詢(我想用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()
作者: andrew43 (討厭有好心推文後刪文者)   2016-12-27 02:29:00
你是指 T <- 1:10; dimnames(table(T))$T 嗎?
作者: koai (可笑的自以為...)   2016-12-27 07:21:00
rbind(as.double(names(A)),a)
作者: f496328mm (為什麼會流淚)   2016-12-27 12:22:00
prop.table(table(T))x=c(1:10)cumsum( prop.table( table(x) ) )
作者: phil5566 (5566)   2016-12-27 14:49:00
回andrew43大,您的方法取出來後,無法和其他向量作運算回koai大,你的方法,我有成功!!!回f496328mm大,我您的方法,作完後好像還table的型式不是矩陣的型式,謝謝版上高手指教,我學很到很多,感謝附上小弟後來的作法以及跑出來的結果f<-as.double(names(table(T[,6])))e<-data.frame(cumsum(table(T[,6]))/sum(table(T[,6]))D<-rbind(f,e[,1])處理的data,以及跑的過程 http://codepad.org/Ju9SFS2Lrbind的結果好像怪怪的,列的部分為何不是顯示"[1] [2]"而是顯示"f "有人有更好的作法嗎?謝謝
作者: andrew43 (討厭有好心推文後刪文者)   2016-12-27 16:58:00
不順眼的話 rownames(D) <- NULL 洗掉即可那是rbind()附帶的效果
作者: f496328mm (為什麼會流淚)   2016-12-27 17:46:00
你最後做完D 再加上matrix(D,ncol=ncol(D))f應該就沒了
作者: phil5566 (5566)   2016-12-27 18:07:00
讚讚讚~ok了

Links booklink

Contact Us: admin [ a t ] ucptt.com