作者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/cn.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