Basic analysis of the 'ACNH Tinder' R Shiny app

acnh-tinder-analysis.R

# Blogpost:
#   https://www.rostrum.blog/2020/06/06/acnh-swipe/
#
# App:
#   https://mattdray.shinyapps.io/acnh-swipe/

x <- readr::read_csv("~/Desktop/acnh-swipe_results - Sheet1.csv")

x %>%
  filter(swipe %in% c("left", "right"), name != "TEST") %>%
  nrow()

y <- x %>%
  filter(swipe %in% c("left", "right"), name != "TEST") %>%
  count(name, swipe) %>%
  pivot_wider(names_from = swipe, values_from = n) %>%
  mutate(
    across(c(left, right), ~replace_na(., 0)),
    total = left + right,
    difference = right - left,
    pc_right = 100 * round(right / (right + left), 2)
  )

nrow(y)
  
y %>% arrange(desc(right))
y %>% arrange(desc(pc_right), desc(right))
y %>% arrange(pc_right, desc(left))
y %>% arrange(desc(difference))
y %>% filter(left == right) %>% arrange(desc(total))

hist(y$pc_right)
hist(y$total)
mean(y$total)