Example of how to unnest rows by seat or any other array in a cell.

unnest_byseat.R

library(tidyr)

setwd("~/Desktop/unnest")

fname = "file-name.csv"
df = read.csv(paste0(fname,'.csv'), stringsAsFactors = F)

df$seats = 
sapply(1:nrow(df), function(x) {
 seats =  c(df[x,]$first_seat,df[x,]$last_seat)
 mi = min(seats)
 ma = max(seats)
 seq(mi,ma)  
})

df = df %>% unnest(seats)

write.csv(df, paste0(fname,'.csv'),row.names = F)