Várias escalas de cores em uma barra empilhada usando ggplot

Eu criei um gráfico de barras empilhadas que descreve a distribuição de assentos do conselho (= eixo y) entre os partidos dentro de um município ao longo de vários anos (= eixo x). O código usado e alguns dados estão abaixo. Infelizmente, ainda não tenho pontos suficientes para postar o gráfico.

As diferentes partes também estão associadas a uma variável chamada "ideologia" como uma categoria para diferentes orientações políticas ("progressista", "moderada", "conservadora").

Eu gostaria de modificar as cores de tal forma que todas as partidos conservadores têm diferentes tipos de blues; todos os partidos progressistas, diferentes tipos de verde; e todas as partes moderadas, e. diferentes tipos de vermelho;

A variável na ideologia está no mesmo dataframe (y).

Alguma dica de como obter essa modificação? Eu já tentei cor = fator (ideologia) e grupo = ideologia, mas sem sucesso. Eu também estou ciente desta entrada relacionadaUsando uma paleta de cores pré-definida em ggplot no entanto, não se refere especificamente ao meu problema.

Muito Obrigado.

Comando usado:

    municipality.plot <- ggplot(y, aes(x=as.factor(year), y=seats, fill=party, color=party)) +
      geom_bar(bandwidth=1, stat="identity", group="party", position="fill") +
      labs(x="year", y="% of seats for municipality")

Dados de amostra:

   year district.id                                                         party seats ideology
1  2012         127                  Stranka Pravde I Razvoja Bosne I Hercegovine     1        p
2  2012         127                                Savez Za Bolju Buducnost (SBB)     3        p
3  2008         127                              Stranka Demokratske Akcije (SDA)    13        p
4  2004         127                              Stranka Demokratske Akcije (SDA)    14        p
5  2008         127                          Hrvatska Demokratska Zajednica (HDZ)     1        c
6  2008         127                  Stranka Pravde I Razvoja Bosne I Hercegovine     1        p
7  2012         127                        Stranka Za Bosnu I Hercegovinu (SzBiH)     4        p
8  2000         127                              Socijaldemokratska Partija (SDP)     8        m
9  2012         127                     Narodna Stranka Radom Za Boljitak (NSRzB)     2        m
10 2012         127                            Socijaldemokratska Unija Bih (SDU)     1        p
11 2000         127                                         Koalicija - SDA, SBiH    15        p
12 2008         127                              Socijaldemokratska Partija (SDP)     5        m
13 2008         127                     Narodna Stranka Radom Za Boljitak (NSRzB)     1        m
14 2008         127                                          Koalicija - LDS, SDU     2        m
15 2000         127 Lgk-liberalno-gradanska Koalicija Bih (liberali Bih, Gds Bih)     1        m
16 2000         127                               Nova Hrvatska Inicijativa (NHI)     1        c
17 1997         127                              Socijaldemokratska Partija (SDP)     3        m
18 2012         127                              Socijaldemokratska Partija (SDP)     6        m
19 2004         127                        Stranka Za Bosnu I Hercegovinu (SzBiH)     5        p
20 1997         127                 Bosanskohercegovacka Patriotska Stranka (BPS)     9        p
21 2000         127                 Bosanskohercegovacka Patriotska Stranka (BPS)     3        p
22 2008         127                        Stranka Za Bosnu I Hercegovinu (SzBiH)     4        p
23 1997         127                          Hrvatska Demokratska Zajednica (HDZ)     5        c
24 2000         127                          Hrvatska Demokratska Zajednica (HDZ)     2        c
25 2012         127                              Stranka Demokratske Akcije (SDA)    10        p
26 2004         127                              Socijaldemokratska Partija (SDP)     6        m
27 1997         127                          Koalicija - SDA, SBiH, Liberali, GDS    13        p

questionAnswers(1)

yourAnswerToTheQuestion