作者rusimida (涼圓)
看板Statistics
標題[問題] R語言篩選數據
時間Fri Dec 1 11:45:55 2017
統計板各位午安
原PO大五生 統計被當2次QAQ 就算被當兩次還是統計笨蛋....
目前正在複習期中考R語言的基礎好準備兩個禮拜後的期末考
然而期中考在電腦考試的時候被這一題打敗了完全空白沒有上傳
回家不管怎麼試結果都一樣:(((
希望有高手可以求救
這是我的data
name edmic bodymass winglength
鳥1 無 590 233
鳥2 無 900 265
鳥3 無 48 70
鳥4 特 311 133
鳥5 特 208 132
鳥6 特 917 224
鳥7 特亞 984 221
鳥8 特 998 258
鳥9 無 89 132
鳥10 無 136 144
題目是要計算出 "特" "無" "特亞"分別的bodymass的平均值和標準差
之前有相關的題目有做出來不過題目又變化了一直出現error
我錯誤的code
a=read.csv.........
bodymass=subset(a)
edmic=subset(a,Type="特")
mean(bodymass$edmic)
然後就錯了~....
請R語言高手指點迷津,若高手在台南或高雄小妹願意請喝一杯飲料(隨便一家)
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 49.217.32.150
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Statistics/M.1512099958.A.DB2.html
1F:推 bluecadence: 看在你是小妹的份上(誤) 12/01 12:51
2F:→ bluecadence: a = read.csv('junk.dat', sep='') 12/01 12:51
3F:→ bluecadence: edmic_list = unique(a$edmic) 12/01 12:51
4F:→ bluecadence: for (item in edmic_list){ 12/01 12:51
5F:→ bluecadence: unique_edmic_df = as.data.frame((subset(a,a$edmic 12/01 12:53
7F:→ bluecadence: 小數點自己取 12/01 12:55
8F:→ obarisk: 需要用apply family做? 12/01 13:36
9F:→ obarisk: 那就tapply 12/01 13:37
10F:→ rusimida: 需要一步一步這樣子就好了QAQ 12/01 14:33
11F:→ clsmbstu: 為什麼bluecadence的read.csv要設sep = ""? @@ 12/01 15:42
12F:→ clsmbstu: a = read.csv("data.csv") 12/01 15:44
13F:→ clsmbstu: means = tapply(a$bodymass, a$edmic, mean) 12/01 15:45
14F:→ clsmbstu: sds = tapply(a$bodymass, a$edmic, sd) 12/01 15:46
15F:→ Wush978: 學一下dplyr的group_by? 12/01 15:54
16F:→ rusimida: 謝謝大家解決了:)) 12/01 16:02
17F:噓 PTTOuO: dplyr好用 12/10 14:04
18F:→ PTTOuO: 按錯. 12/10 14:04
19F:推 sweetJ: 用aggregate一句話就寫完了 12/29 09:55