phaya
/ gist:a17ba07d401a77c907d77d53a4d58db6
Created
July 17, 2020 09:15
1964-2019 network of astronauts who share space missions
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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)) %>% |