Skip to content

Instantly share code, notes, and snippets.

@phaya
phaya / gist:a17ba07d401a77c907d77d53a4d58db6
Created July 17, 2020 09:15
1964-2019 network of astronauts who share space missions
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)) %>%