作者yeuan (心要够坚定)
看板R_Language
标题[问题] iris不同品种所占比例的圆饼图
时间Tue Jun 16 17:52:48 2015
[问题类型]:
分类後计算比例绘制圆饼图
[软体熟悉度]:
新手(没写过程式，R 是我的第一次)
[问题叙述]:
想计算iris三种品种的Sepal.Length各占多少比例 并制作圆饼图
因为知道的指令有限 一时想不出更好的 只有土法炼钢的作法
想请教有没有更简洁的写法
[程式范例]:
X=iris[,c(1,5)]
A=subset(X,Species=="setosa")
B=subset(X,Species=="versicolor")
C=subset(X,Species=="virginica")
a=sum(A$Sepal.Length)/sum(X$Sepal.Length)
b=sum(B$Sepal.Length)/sum(X$Sepal.Length)
c=sum(C$Sepal.Length)/sum(X$Sepal.Length)
y=c(a,b,c)
pie(y,label=c("setosa","versicolor","virginica"),density=100,col=2:4)
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.38.102.118
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1434448371.A.44F.html
※ 编辑: yeuan (114.38.102.118), 06/16/2015 17:56:03
1F：→ celestialgod: librayry(dplyr);total.Sepal.Length=sum(X$Sepal.L 06/16 19:39
2F：→ celestialgod: ength);pie(summarisr(group_by(X,Species), total 06/16 19:39
3F：→ celestialgod: .Sepal.Length.species=sum(Sepal.Length)/total.Se 06/16 19:39
4F：→ celestialgod: pal.Length)$total.Sepal.Length.species) 06/16 19:39
5F：→ obarisk: r好像建议少用; 06/16 20:29
6F：→ celestialgod: 我只是方便用手机推文才用;... 06/16 23:30