在R中绘制饼图 totalReads=10000 mappedReads=8000 mappedTargetReads=6000 unmappedReads=totalReads mappedReads offtargetmappedReads=mappedReads mappedTargetReads 达塔 四舍五入（数据[2]/totalReads*100）->b 四舍五入（数据[3]/mappedReads*100）->c 四舍五入（数据[4]/mappedReads*100）->d pct

这将生成一个带有两个饼图的图：

totalReads=10000
mappedReads=8000
mappedTargetReads=6000
unmappedReads=totalReads-mappedReads
offtargetmappedReads=mappedReads-mappedTargetReads
data<-c(mappedReads,unmappedReads,mappedTargetReads,offtargetmappedReads)
round(data[1]/totalReads*100)->a
round(data[2]/totalReads*100)->b
round(data[3]/mappedReads*100)->c
round(data[4]/mappedReads*100)->d
pct<-c(a,b,c,d)
labels<-c("MappedReads","UnmappedReads","On-exon","Off-exon")
labels<-paste(labels,pct)
labels<-paste(labels,"%", sep="")
pie(c(mappedReads,unmappedReads,mappedTargetReads,offtargetmappedReads),labels=labels)

---

请注意，饼图是传递信息的一种相当低效的方式。见例。

par(mfrow = c(1,2))
pie(c(mappedReads,unmappedReads),labels=labels[1:2], main = "Global")
pie(c(mappedTargetReads,offtargetmappedReads),labels=labels[3:4],
    main = "MappedReads")