Criando gráficos tipo pizza no R com informações agrupadas

Criando gráficos tipo pizza no R com informações agrupadas

Para uma base de dados tipo:

Masculino | Feminino
0 | 1
1 | 0
1 | 0
1 | 0
1 | 0
0 | 1

Onde se somam os valores com 1 das colunas para se saber o total de cada coluna.

f = read.table(file="C:\\Downloads\\LLING.csv", sep=";", header=TRUE)

masc<-c(f$Masculino[which(f$Curso=="LLING")], f$Masculino[which(f$Curso=="BAGP")])
fem<-c(f$Feminino[which(f$Curso=="LLING")], f$Feminino[which(f$Curso=="BAGP")])
#o "c" é de concatenar os elementos, formando um vetor com todos os elementos

mascling <- f$Masculino[which(f$Curso=="LLING")]
mascbagp <- f$Masculino[which(f$Curso=="BAGP")]
femling <- f$Feminino[which(f$Curso=="LLING")]
fembagp <- f$Feminino[which(f$Curso=="BAGP")]
x <- c(sum(mascling), sum(mascbagp))
y <- c(sum(femling), sum(fembagp))

xy <- c(sum(mascling+mascbagp),sum(femling+fembagp))

par(mfrow=c(2,2))

colors <- rainbow(length(x))
pie_labels <- round(x/sum(x) * 100, 1)
pie_labels <- paste(pie_labels, "%", sep="")
pie(x, main="Relatório Personográfico - Sexo - Masculino", col=colors, labels=pie_labels,

cex=0.8)
legend(1.5, 0.5, c("LLING","BAGP"), cex=0.8, fill=colors)
box()

colors <- rainbow(length(y))
pie_labels <- round(y/sum(y) * 100, 1)
pie_labels <- paste(pie_labels, "%", sep="")
pie(y, main="Relatório Personográfico - Sexo - Feminino", col=colors, labels=pie_labels,

cex=0.8)
legend(1.5, 0.5, c("LLING","BAGP"), cex=0.8, fill=colors)
box()

colors <- rainbow(length(xy))
pie_labels <- round((xy)/sum(xy) * 100, 1)
pie_labels <- paste(pie_labels, "%", sep="")
pie(xy, main="Relatório Personográfico - Sexo", col=colors, labels=pie_labels, cex=0.8)
legend(1.5, 0.5, c("Masculino","Feminino"), cex=0.8, fill=colors)
box()