# Orderings of 3 items, when only the best and worst are recorded
orderings <- data.frame(best = c("A", "B", "A"),
worst = c("C", "C", NA))
orderings$middle <- complete(orderings, items = c("A", "B", "C"))
Run the code above in your browser using DataLab