edge list tables
library(purrr)
map_df(2:ncol(df), ~select(df, (.x-1):.x) %>% setNames(c("source", "target")), .id="id") %>%
group_by(id) %>%
distinct() %>%
ungroup() %>%
mutate(id = colnames(df)[as.numeric(id)+1])
# A tibble: 9 x 3
# id source target
# <chr> <chr> <chr>
# 1 second A F
# 2 second B F
# 3 second C G
# 4 second D F
# 5 second E G
# 6 second L L
# 7 third F L
# 8 third G L
# 9 third L L