Connections Count

gistfile1.txt

flights <- read.csv("flights (1).csv", stringsAsFactors = F)
airports <- read.csv("airports (1).csv", stringsAsFactors = F)
airports <- filter(airports, iata %in% union(flights$origin, flights$destination)) # subsetting airports by 1-1 matches
orig <- select(count(flights, origin), iata=origin, n1=n) #one-way from count
dest <- select(count(flights, destination), iata=destination, n2=n) #one-way two count
airports <- left_join(airports, select(mutate(left_join(orig, dest),tot=n1+n2),iata, tot)) %>% 
    filter(!is.na(tot)) # joining origin and destination airports for 1-1 matches