riksdagschart.R

joined_dataset %>% filter(vald == 1) %>%
        ggplot(aes(
          x = F1,
          y = F2,
          name = Namn,
          color = Parti,
          group = Parti
          
        )) +
        geom_point() +
        scale_colour_manual(values = partycols, labels=c("Centre Party",
                                                         "Liberals",
                                                         "Christian Democrats",
                                                         "Green Party",
                                                         "Moderate Party",
                                                         "Swedish Social Democratic Party",
                                                         "Sweden Democrats","Left Party")) +
        labs(x = "Left vs. Right", y = "Traditional-Authoritarian-Nationalist vs. Green-Alternative-Libertarian", color =
               "Party") +
        scale_y_continuous(breaks = NULL) +
        scale_x_continuous(breaks = NULL) +
        coord_fixed(ratio = 3 / 4) +
  ggtitle("Members of parliament in Sweden")