[問題] table()函數問題

看板R_Language作者 (5566)時間7年前 (2016/12/27 02:11), 編輯推噓3(3推 0噓 20→)
留言23則, 4人參與, 最新討論串1/1
[問題類型]: 程式諮詢(我想用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
→
12/27 02:29, , 1F
你是指 T <- 1:10; dimnames(table(T))$T 嗎?
12/27 02:29, 1F
推
12/27 07:21, , 2F
rbind(as.double(names(A)),a)
12/27 07:21, 2F
推
12/27 12:22, , 3F
prop.table(table(T))
12/27 12:22, 3F
→
12/27 12:24, , 4F
x=c(1:10)
12/27 12:24, 4F
→
12/27 12:24, , 5F
cumsum( prop.table( table(x) ) )
12/27 12:24, 5F
→
12/27 14:49, , 6F
回andrew43大,您的方法取出來後,無法和其他向量作運算
12/27 14:49, 6F
→
12/27 15:01, , 7F
回koai大,你的方法,我有成功!!!
12/27 15:01, 7F
→
12/27 15:02, , 8F
回f496328mm大,我您的方法,作完後好像還table的型式
12/27 15:02, 8F
→
12/27 15:04, , 9F
不是矩陣的型式,謝謝版上高手指教,我學很到很多,感謝
12/27 15:04, 9F
→
12/27 16:18, , 10F
附上小弟後來的作法以及跑出來的結果
12/27 16:18, 10F
→
12/27 16:19, , 11F
f<-as.double(names(table(T[,6])))
12/27 16:19, 11F
→
12/27 16:20, , 12F
e<-data.frame(cumsum(table(T[,6]))/sum(table(T[,6]))
12/27 16:20, 12F
→
12/27 16:20, , 13F
D<-rbind(f,e[,1])
12/27 16:20, 13F
→
12/27 16:22, , 14F
處理的data,以及跑的過程 http://codepad.org/Ju9SFS2L
12/27 16:22, 14F
→
12/27 16:24, , 15F
rbind的結果好像怪怪的,列的部分為何不是顯示"[1] [2]"
12/27 16:24, 15F
→
12/27 16:25, , 16F
而是顯示"f "
12/27 16:25, 16F
→
12/27 16:26, , 17F
有人有更好的作法嗎?謝謝
12/27 16:26, 17F
→
12/27 16:58, , 18F
不順眼的話 rownames(D) <- NULL 洗掉即可
12/27 16:58, 18F
→
12/27 16:59, , 19F
那是rbind()附帶的效果
12/27 16:59, 19F
推
12/27 17:46, , 20F
你最後做完D 再加上
12/27 17:46, 20F
→
12/27 17:47, , 21F
matrix(D,ncol=ncol(D))
12/27 17:47, 21F
→
12/27 17:47, , 22F
f應該就沒了
12/27 17:47, 22F
→
12/27 18:07, , 23F
讚讚讚~ok了
12/27 18:07, 23F
‣ 更多 phil5566 的文章
文章代碼(AID): #1OOLqwLP (R_Language)