phaya

library(tidyverse)
library(igraph)

# Get the Data
space_missions <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-07-14/astronauts.csv')

# Data bug fix
space_missions <-
  space_missions %>%
  mutate(total_number_of_missions=ifelse(id == 1091,2,total_number_of_missions)) %>%