Färger för de svenska politiska partierna (HEX)

political-party-colors.r

# Färger (HEX) för de svenska politiska partierna.

PartyColor <- list(V = "#DA291C",
                   S = "#E8112d",
                   MP = "#83CF39",
                   C = "#009933",
                   FP = "#006AB3",
                   L = "#006AB3",
                   M = "#52BDEC",
                   KD = "#000077",
                   SD = "#DDDD00",
                   FI = "#CD1B68",
                   PP = "#572B85")

PartyName <- list(V = "Vänsterpartiet",
                  S = "Socialdemokraterna",
                  MP = "Miljöpartiet",
                  C = "Centern",
                  FP = "Folkpartiet",
                  L = "Liberalerna",
                  M = "Moderaterna",
                  KD = "Kristdemokraterna",
                  SD = "Sverigedemokraterna",
                  FI = "Feministiskt initiativ",
                  PP = "Piratpartiet")

PartyName[["S"]]
PartyColor[["S"]]

# Plotta färgerna.
image(as.matrix(1:10, 1:10), col=PartyColor[["V"]], main=PartyName[["V"]])
image(as.matrix(1:10, 1:10), col=PartyColor[["S"]], main=PartyName[["S"]])
image(as.matrix(1:10, 1:10), col=PartyColor[["MP"]], main=PartyName[["MP"]])
image(as.matrix(1:10, 1:10), col=PartyColor[["C"]], main=PartyName[["C"]])
image(as.matrix(1:10, 1:10), col=PartyColor[["FP"]], main=PartyName[["FP"]])
image(as.matrix(1:10, 1:10), col=PartyColor[["L"]], main=PartyName[["L"]])
image(as.matrix(1:10, 1:10), col=PartyColor[["M"]], main=PartyName[["M"]])
image(as.matrix(1:10, 1:10), col=PartyColor[["KD"]], main=PartyName[["KD"]])
image(as.matrix(1:10, 1:10), col=PartyColor[["SD"]], main=PartyName[["SD"]])
image(as.matrix(1:10, 1:10), col=PartyColor[["FI"]], main=PartyName[["FI"]])
image(as.matrix(1:10, 1:10), col=PartyColor[["PP"]], main=PartyName[["PP"]])