Notei que você fez uma nova pergunta querendo saber como trabalhar com a legenda do gráfico.
A minha sugestão é parecida com a do colega, com algumas diferenças:
- A função utilizada para a reformatação do gráfico é a
gather()
do pacote tidyr. Observe que chamei de UF a coluna com os estados e, da forma que o gráfico foi montado, este vai ser o nome da legenda.
- Inclui a função
scale_fill_manual()
, nela você pode customizar a cor das barras.
- As labels foram incluídas através da função
labs()
. Por que? Caso você deseje alterar o nome da legenda dos estados, basta incluir o atributo fill = "Nome da Legenda"
library(ggplot2)
library(tidyr)
Total_CPIs <- data.frame(Período =c(1995, 1999, 2003, 2007, 2011),
SP = c(12, 11, 2, 20, 22), RS = c(3, 4, 2, 4, 4))
df <- gather(Total_CPIs, "UF", "Valor", -Período)
ggplot(df, aes(x = factor(Período), y = Valor, fill = UF)) +
geom_bar(stat = "identity", position = "dodge") +
scale_fill_manual(values = c("red", "blue")) +
labs(x = "Período", y = "CPIs")

Resumindo, em scale_fill_manual()
, você pode alterar as cores das barras e em labs()
, através do atributo fill
, é possível alterar o nome da legenda. Veja o exemplo abaixo:
ggplot(df, aes(x = factor(Período), y = Valor, fill = UF)) +
geom_bar(stat = "identity", position = "dodge") +
scale_fill_manual(values = c("green", "lightblue")) +
labs(x = "Período", y = "CPIs", fill = "Nome da Legenda")

Espero ter ajudado.