Jump to content
Flying Purple Hippos Forums

Frog

What remains of Templarhood
  • Content Count

    18694
  • Joined

  • Last visited

  • Days Won

    266

Frog last won the day on September 19

Frog had the most liked content!

Community Reputation

1320 Elder Pony

About Frog

  • Rank
    Purpilburo Observer
  • Birthday 06/27/1989

Profile Information

  • Gender
    Male

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Frog

    political compass time

    wow very consistent
  2. you are free to destroy your own team however you like
  3. It's because the universe is in the final stages of its collapse, at this point wormholes such as these become apparent to the timebound observer. It'll all be over soon, Shusky.
  4. glorious day 🦚🦚🦚🦚🦚🦚🦚🦚 🐯🐯🐯🐯🐯🐯🐯🐯🐯
  5. just make a new team now that is good
  6. if you have to clutter our league with your stupid alt teams at least do it properly
  7. Veggie fucked up management of the "base selection on past points only" team he made and it's already cost that team 7 points.
  8. too bad my spursfence is made up of spursfenders
  9. Frog

    political compass time

    update with dave style version more lines and dots
  10. haha thank god for my double spursfence richarlison 🐇 is richarlison 🤪 because toby is a 🐢
  11. Frog

    political compass time

    all the threads I could find, if anyone wants to add themselves to the spreadshit
  12. Frog

    political compass time

    labeled scores (darkest) are the most recent, you can add new scores here: https://docs.google.com/spreadsheets/d/1B9jdddW0vV8gUJ8mUNjzuJX2GbYovGoP2Lkg-m8dlWg/edit?usp=sharing the first one has everyone's and the second is only names with multiple years political-compass.svg political-compass-trim.svg library(tidyverse) library(ggrepel) pc_scores <- read_csv("political-compass.csv") pc_scores <- pc_scores %>% group_by(Person) %>% mutate(firstyear = ifelse(Year == min(Year), TRUE, FALSE), lastyear = ifelse(Year == max(Year), TRUE, FALSE), tests = n()) %>% arrange(Year) %>% ungroup() pc_shading <- data.frame(xstart = c(-10, 0, -10, 0), xend = c(0, 10, 0, 10), ystart = c(-10, -10, 0, 0), yend = c(0, 0, 10, 10), region_key = c("LL", "RL", "LA", "RA")) pc_plot_all <- ggplot(data = pc_scores, aes(x = Economic, y = Social, group = Person)) + geom_rect(data = pc_shading, aes(xmin = xstart, xmax = xend, ymin = ystart, ymax = yend, fill = region_key), inherit.aes = FALSE, alpha = 0.4) + scale_fill_manual(values = c("#9aed97", "#c09aea", "#ff7575", "#42aaff")) + geom_segment(aes(x = -10, xend = 10, y = 0, yend = 0)) + geom_segment(aes(x = 0, xend = 0, y = -10, yend = 10)) + geom_label_repel(data = filter(pc_scores, lastyear == TRUE), aes(label = Person), size = 2, fontface = "bold", ylim = c(-10.1), direction = "x", force = 15) + scale_colour_gradient(low = "#f03b20", high = "#000000") + geom_path(size = 1) + geom_point(size = 2, aes(colour = Year), fill = "#ffffff", shape = 21, stroke = 1.25) + xlim(c(-10, 10)) + ylim(c(-10, 10)) + labs(tag = "Right", subtitle = "Authoritarian") + ylab("Left") + xlab("Libertarian") + theme(axis.text = element_blank(), axis.ticks = element_blank(), axis.title.y = element_text(size = "12", angle = 0, vjust = 0.5), axis.title.x = element_text(size = "12"), plot.subtitle = element_text(size = "12", hjust = 0.5), panel.background = element_rect(fill = "white"), legend.position = "none", plot.tag = element_text(size = "12"), plot.tag.position = c(1.035, 0.5), plot.margin = margin(2, 2, 2, 2, unit = "cm"), aspect.ratio = 1) ggsave("political-compass.svg", scale = 1.2) pc_plot_multiple <- ggplot(data = filter(pc_scores, tests > 1), aes(x = Economic, y = Social, group = Person)) + geom_rect(data = pc_shading, aes(xmin = xstart, xmax = xend, ymin = ystart, ymax = yend, fill = region_key), inherit.aes = FALSE, alpha = 0.4) + geom_segment(aes(x = -10, xend = 10, y = 0, yend = 0)) + geom_segment(aes(x = 0, xend = 0, y = -10, yend = 10)) + geom_label_repel(data = filter(pc_scores, lastyear == TRUE & tests > 1), aes(label = Person), size = 2, fontface = "bold", ylim = c(-10.1), direction = "x", force = 15) + scale_fill_manual(values = c("#9aed97", "#c09aea", "#ff7575", "#42aaff")) + scale_colour_gradient(low = "#f03b20", high = "#000000") + geom_path(size = 1) + geom_point(size = 2, aes(colour = Year), fill = "#ffffff", shape = 21, stroke = 1.25) + xlim(c(-10, 10)) + ylim(c(-10, 10)) + labs(tag = "Right", subtitle = "Authoritarian") + ylab("Left") + xlab("Libertarian") + theme(axis.text = element_blank(), axis.ticks = element_blank(), axis.title.y = element_text(size = "12", angle = 0, vjust = 0.5), axis.title.x = element_text(size = "12"), plot.subtitle = element_text(size = "12", hjust = 0.5), panel.background = element_rect(fill = "white"), legend.position = "none", plot.tag = element_text(size = "12"), plot.tag.position = c(1.035, 0.5), plot.margin = margin(2, 2, 2, 2, unit = "cm"), aspect.ratio = 1) ggsave("political-compass-trim.svg", scale = 1.2)
×
×
  • Create New...