"mandms" <-
structure(list(blue = c(10, 20, 20, 16.6667, 16.6667), brown = c(30, 
20, 20, 16.6667, 16.6667), green = c(10, 10, 20, 16.6667, 16.6667
), orange = c(10, 10, 0, 16.6667, 16.6667), red = c(20, 20, 20, 
16.6667, 16.6667), yellow = c(20, 20, 20, 16.6667, 16.6667)), .Names = c("blue", 
"brown", "green", "orange", "red", "yellow"), row.names = c("milk chocolate", 
"Peanut", "Peanut Butter", "Almond", "kid minis"), class = "data.frame")