Familiarização com o ggplot2 - Exercício 2

library("ggplot2")

pesq_prof <- read.csv("pesq_prof.csv")

ggplot(pesq_prof, aes(x = Área)) + geom_histogram(stat = 'count')

## Warning: Ignoring unknown parameters: binwidth, bins, pad

graf <- ggplot(pesq_prof, aes(x = Área)) + geom_histogram(stat = 'count')

## Warning: Ignoring unknown parameters: binwidth, bins, pad

graf <- graf + geom_histogram(data = subset(pesq_prof, Área == "Geometria"), stat = "count", fill = "darkblue")

## Warning: Ignoring unknown parameters: binwidth, bins, pad

print(graf)

ggsave("graf.png")

## Saving 7 x 5 in image