I have a data frame like this:
df <- data.frame(v1=sample(c("L1","L2"),5,replace = TRUE), v2=sample(c("F1","F3"),5,re