Используя dplyr
и функцию pie
, мы сначала группируем по treatment
и делаем общую сумму по группе.
a = data.frame(attendance=c(4,5,6,7,2,5,7,8),
treatment=c("A","B","B","A","A","B","B","A"),
stringsAsFactors = FALSE)
A = a%>%group_by(treatment)%>%summarise(tot=sum(attendance))
pie(A$tot/sum(A$tot),labels=paste(A$treatment,round(A$tot/sum(A$tot),2)),main="Pie")
