在此示例中，在tidyverse和ggplot中订购盒装图的最简单方法是什么？

Question

请考虑以下数据，以使用ggplot在箱图中显示它们。实际上需要的是订购home处的食品。

MWE

structure(list(Site = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("home", 
"office"), class = "factor"), Food = c("Banana", "Apple", "Egg", 
"Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", 
"Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", 
"Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", 
"Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", 
"Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", 
"Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", "Banana", 
"Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", 
"Onion", "Carrot", "Cabbage", "Eggplant", "Banana", "Apple", 
"Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", 
"Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", 
"Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", 
"Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", 
"Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", 
"Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", "Banana", 
"Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", 
"Onion", "Carrot", "Cabbage", "Eggplant", "Banana", "Apple", 
"Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", 
"Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", 
"Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", 
"Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", 
"Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", 
"Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", "Banana", 
"Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", 
"Onion", "Carrot", "Cabbage", "Eggplant", "Banana", "Apple", 
"Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", 
"Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", 
"Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", 
"Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", 
"Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", 
"Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", "Banana", 
"Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", 
"Onion", "Carrot", "Cabbage", "Eggplant", "Banana", "Apple", 
"Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", 
"Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", 
"Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", 
"Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", 
"Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", 
"Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", "Banana", 
"Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", 
"Onion", "Carrot", "Cabbage", "Eggplant", "Banana", "Apple", 
"Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", 
"Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", 
"Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", 
"Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", 
"Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", 
"Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", "Banana", 
"Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", 
"Onion", "Carrot", "Cabbage", "Eggplant", "Banana", "Apple", 
"Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", 
"Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", 
"Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", 
"Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", 
"Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", 
"Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", "Banana", 
"Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", 
"Onion", "Carrot", "Cabbage", "Eggplant", "Banana", "Apple", 
"Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", 
"Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", 
"Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", 
"Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", 
"Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", 
"Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", "Banana", 
"Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", 
"Onion", "Carrot", "Cabbage", "Eggplant", "Banana", "Apple", 
"Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", 
"Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", 
"Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", 
"Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", 
"Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", 
"Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", "Banana", 
"Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", 
"Onion", "Carrot", "Cabbage", "Eggplant", "Banana", "Apple", 
"Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", 
"Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", 
"Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", 
"Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", 
"Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", 
"Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", "Banana", 
"Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", 
"Onion", "Carrot", "Cabbage", "Eggplant", "Banana", "Apple", 
"Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", 
"Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", 
"Eggplant", "Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", 
"Bean", "Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", 
"Banana", "Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", 
"Pea", "Nuts", "Onion", "Carrot", "Cabbage", "Eggplant", "Banana", 
"Apple", "Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", 
"Onion", "Carrot", "Cabbage", "Eggplant", "Banana", "Apple", 
"Egg", "Berry", "Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", 
"Carrot", "Cabbage", "Eggplant", "Banana", "Apple", "Egg", "Berry", 
"Tomato", "Potato", "Bean", "Pea", "Nuts", "Onion", "Carrot", 
"Cabbage", "Eggplant"), Amt = c(33.7320747087792, 36.0342981304717, 
NA, 35.2586085913145, NA, NA, NA, NA, 38.3145037556614, NA, NA, 
NA, NA, 34.5708791842277, 36.8083954420236, NA, 34.1103048796563, 
34.7916383519758, NA, NA, NA, 36.6601370680446, NA, 36.5265182398163, 
NA, NA, 25.005188762133, 22.6579865605078, 33.5223954506919, 
33.0003190550185, 33.7416090994921, 34.2899000244291, 36.330594872916, 
28.5307647511704, 34.8189822783005, NA, NA, 37.1003277282357, 
33.0113330939602, 26.6411931455001, 24.400305478985, NA, 33.1431675715187, 
NA, 35.7113224020986, NA, 29.287371719326, NA, 36.1534235779212, 
NA, NA, 35.0993333300875, 25.6350068029415, 22.8315582582792, 
35.6798417040879, 33.6551798874077, NA, 34.5149215921523, 35.2195542738363, 
27.454718149262, NA, 35.4491177241447, NA, 37.2340571766981, 
33.1136063404172, 26.2903409885922, 23.6416652669618, NA, 33.1263041491744, 
33.2114453080786, 34.1787283290142, 35.6627720040947, 28.2557166118573, 
36.4488643461852, 36.9465204323288, NA, 37.9450756808773, NA, 
28.24689336153, 25.2506989033878, 36.0273756925343, 35.0448688504907, 
39.6284568507634, 35.7268482344757, NA, 31.1914481880882, 34.2155313735937, 
37.308640751433, 37.3924774753636, NA, 37.4567306540345, 25.4730770175317, 
23.7860930258368, 35.4083653476054, 33.0730363731854, 37.1962667442638, 
34.2517588760593, NA, 27.1855960301278, 33.6324120786977, 34.6985008701019, 
NA, 36.5179668135246, 32.8981238924209, 27.2003716723138, 25.5899171812445, 
35.8637221808481, 35.3399576307628, NA, 32.4385415789459, 34.4323681936618, 
30.1565413047041, 35.947062876565, 35.6257086509707, NA, 36.7181363098719, 
31.8666781697971, 29.9869956793582, 28.5740680124215, 33.9812782521306, 
35.4760690593192, 34.9694127863526, 34.6380779165386, NA, 33.1278069397518, 
NA, 36.6162343127439, 39.1099774524497, NA, 34.2065721441469, 
25.7934532916232, 22.1527190880824, 33.5141366529546, 33.1848137577955, 
33.3056976665704, 33.0629384529152, NA, 28.6057843382806, 35.4855776329702, 
37.746145254053, NA, 37.8478246638457, 35.3145994570635, 26.816339202557, 
23.6427572112323, NA, 33.2130192061734, 34.1230406402024, 34.4137433944344, 
NA, 28.0027819936089, 33.1722169116251, 34.1502254502088, NA, 
NA, 35.8263035631523, 33.5689698353873, 34.3286397428481, NA, 
38.4971513007561, 35.0308129865917, NA, NA, 36.2380673398583, 
36.5585490125424, NA, NA, NA, 35.4199137511219, 33.8397511995298, 
34.9018963955308, NA, 35.4085223224039, 34.3428339260254, NA, 
NA, NA, 37.2751668736045, NA, NA, NA, NA, 27.1048369269962, 24.1622687506616, 
NA, 34.5046875912367, 36.9573864641579, 33.0500418532525, 37.7897852066917, 
29.3893064023818, 35.2787976820883, 35.8048016227347, NA, 36.570495487479, 
NA, 28.0373731157367, 24.1038125762098, 37.9928283932686, 34.0873109426604, 
34.3824151523536, 34.6853709858578, NA, 28.665403831058, 35.030033754826, 
36.8479703059791, NA, 37.2276618565035, 35.0321935817882, 24.9639725563492, 
21.5413405492274, 33.2776938744279, 34.1395813009498, 34.0980145374272, 
31.5679398989844, 36.3606852742019, 26.9810978199802, 33.2528878537102, 
35.0622928535478, 39.2695325520249, 35.29864322851, 33.2383716863936, 
24.7627143595055, 21.48218100484, NA, 33.0044643997302, 35.6077439907745, 
33.3509487946103, NA, 26.58261437784, 37.130013379686, 34.6168460164319, 
NA, NA, 32.8298245553818, 22.5978219563779, 21.1007109350344, 
33.1919730052388, 34.5159425302493, 35.0700162593142, 31.0966511502824, 
32.696949391938, 26.6369867985203, 35.6124436207985, 34.8931879812995, 
NA, 34.5123481827091, 28.1905255739212, 24.9024651175395, 22.7963723337745, 
33.1948681877228, 35.5691645278559, 36.6276774872535, 34.1093436259715, 
NA, 27.093792426083, 34.5966600075617, 35.9303570818422, NA, 
36.5053800030392, 29.0056467226404, 23.3291827726981, 21.8584094655647, 
34.3508987546419, 32.4744790865912, 34.9810202276665, 32.8483880508106, 
35.3162001787704, 26.6463564031159, 33.1478307722562, 35.4194209871219, 
NA, 35.6853674213489, 32.3403650828424, 25.9640446191113, 23.5306151690382, 
NA, 32.9002685637808, 38.7894756417518, 36.2193406969451, NA, 
27.8558991273316, 34.3818763306639, 35.6251634173161, NA, 36.5138719186128, 
34.3235962994842, 23.5617788238768, 20.325266118906, NA, 35.0366336389832, 
33.0410855077816, 32.8954165015973, 33.5658479292662, 26.1779387462112, 
32.1798160491199, 34.0059345518959, 33.9134446104187, 34.239321957294, 
32.0944601081991, 26.7391494600618, 22.390429731544, 37.9423749063706, 
34.9219499335594, 35.6643664156284, NA, 37.0881994412012, 27.5252113063503, 
36.6294169448529, 35.1032960995104, 36.4596185748331, 36.3983887802026, 
33.290180185996, 23.100380918891, 19.4810440361006, 35.0559092879642, 
34.7662464716677, 34.8023580337545, 31.4413392020832, 33.9906667882109, 
25.6003456896802, 34.0870501294717, 34.1138266762934, NA, 32.8303943905283, 
32.0100216764951, 25.1041654846232, 21.5840396744735, 32.2775128091517, 
34.9974580262585, 34.4067666482089, 33.9825315691151, NA, 26.086549732338, 
33.1826488852713, 36.135849808293, NA, 34.2390553893243, 34.7054997326759, 
22.2089037124919, 20.6971505439965, 31.365102857192, 34.5421971759165, 
36.1546494331904, 31.349261588011, 34.3554460170443, 25.682894575341, 
33.3924188518789, 35.8135620668499, 38.9866979128628, 37.5435086617283, 
30.2657971121487, 29.4754537560905, 29.2479046039039, NA, 35.1198780685103, 
33.0168055948649, NA, NA, 29.7760499166726, NA, NA, NA, NA, 29.5705573452566, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, 34.422002798602, NA, NA, 34.15325816954, 34.6326302242432, 
NA, NA, NA, NA, NA, NA, NA, NA, 36.4880685822164, 37.3992276330308, 
NA, 36.0076786929174, 35.0347231820833, NA, NA, NA, NA, NA, NA, 
NA, NA, 26.9530323495884, 22.8026614891699, 34.3626646156445, 
34.631121647439, 34.1422563517602, 34.4732260808729, 35.671716254303, 
28.1554630614674, 36.8297132858095, 37.1140951794741, NA, 36.2925343926032, 
33.1450803721419, 27.0331011305547, 22.1211402922938, 36.5666666231928, 
34.6398991062198, 35.5052950094564, 33.9795510325964, NA, 28.0871501160913, 
35.4025652272473, 36.1664228373045, 35.3633238637043, 34.735041496722, 
NA, 27.7665834599958, 22.547960294331, NA, 34.4421693390938, 
NA, 35.0987504651101, NA, 28.4555427905722, 36.4268801644134, 
35.0417726444557, NA, 36.7458597500821, 36.1567561747919, 26.1645926461683, 
21.7382157021495, 35.6970935125265, 34.0199637628979, 34.2861024247436, 
33.2286710664692, NA, 26.638687857229, 35.0126722226325, 34.5174764798047, 
39.2677527690891, 33.8415805304284, 34.3341666333663, 21.9482845537368, 
20.4282711509926, 32.0572286175677, 32.8346421763693, 33.4434502787096, 
31.2963788447854, 34.0119613933917, 25.378811825975, 34.0767379367954, 
33.2988925958786, 37.6563721889651, 34.6150316310407, 31.5248159340017, 
23.8782822905105, 21.8617644082455, 33.6511562980718, 33.345281734173, 
36.9263745732831, 33.4657199965789, NA, 25.8469466133249, 33.8897499087351, 
34.4506999118678, NA, 35.5656930586111, 34.2061133146853, 26.3821554274702, 
21.0451200936985, NA, 33.4382040066249, 35.5457254835173, NA, 
35.4373275284757, 27.0853897776116, 36.1352783370551, 33.3477505189482, 
NA, 34.7823798772881, 34.2670600876537, 24.9174252304485, 21.1949145050295, 
35.9055751433032, 35.935980325927, 34.9945785315253, 35.0829571309848, 
35.4381519141592, 26.2032119580977, 31.1038565988792, 30.2760501898583, 
30.9566263569906, 30.1630584797066, 33.4790379007452, 23.3073401712644, 
21.3068562846048, 36.097466961967, 34.8403663728004, 35.7200485242893, 
33.8321858338282, NA, 28.2287319246857, NA, 35.4831868112887, 
NA, NA, 35.6950088074274, 24.6348127614424, 23.0322283272576, 
NA, 34.0520306051562, 38.7621696867191, 35.1504378875245, 35.5614134985523, 
27.1353023379795, NA, 35.0920857166253, 36.869670133947, 35.0684202034418, 
33.7415291710005, 25.2813045125938, 22.5386290613238, 35.5243498041775, 
36.2804876484455, 34.9396933611706, 34.0821048601979, 33.1652220005186, 
26.9069658930641, 35.0540147698775, NA, NA, 36.5461103454881, 
32.9472901274291, 24.9717743645712, 23.5721878308272, NA, 35.8766176157609, 
36.1995589062251, 32.8756871776144, NA, 27.1415970561554, 34.4682337707681, 
34.6883646786339, NA, 36.3118606807474, 33.4195197594415, 24.8631162813699, 
21.8226574999764, 36.4552654814768, 35.5444821199677, 33.7803976388234, 
32.2011593929073, 33.0432634166696, 26.2379004303746, 33.6696035367146, 
37.3981274402701, 36.9663505298282, 36.5610451260351, 27.9719615772428, 
26.1071157525824, 23.0719976068586, 35.8624919654559, 35.4665099854785, 
36.3039268989853, 34.3726321365982, 34.5672178622488, 26.8654148063767, 
36.0546644166852, 35.0165759525494, NA, 38.0133908213762, 28.7625201475681, 
23.3349235680768, 20.2882206946192, 34.4990228310731, 33.9118308738382, 
34.9721376642123, 32.077109820847, 35.6691961165434, 25.9898546238917, 
34.4044249248007, 33.6278983627004, 37.9858712146857, 33.067148028882, 
31.8765615276688, 27.1495891638328, 21.0857459653893, 37.0089249381228, 
34.6873324497559, 35.2770957612893, 34.9141204642957, 37.4223475342166, 
27.3259294548943, NA, 34.1119321732019, NA, 38.0480178394386, 
35.5537145433695, 25.3923521439289, 23.0922294493919, NA, 33.538056237357, 
34.1759523535249, 32.5763136298554, NA, 27.5486957778583, 36.0963003661885, 
36.1543365502897, 36.6193066673856, 38.7588491672215, 33.7582406400096, 
27.6125447865956, 26.2439497521459, NA, 33.6597010256619, 32.5667963161781, 
34.6767208781435, NA, 30.0967431966753, 36.8355503878017, NA, 
NA, 37.6208100575912, 29.9203535267449, 23.0579663023686, 20.5160823532227, 
35.0265642403216, 34.5464330438418, 35.8592997980752, 30.5573454464747, 
33.3042665497066, 26.0850226476924, 35.0126165610184, 35.3955483463556, 
36.1269224098847, 34.8681459471581, 33.1241705576519, 25.026492914099, 
21.9935225100838, NA, 34.8051329153033, 33.1385915196435, 33.1207772548047, 
34.4520178856501, 26.9815064790579, 34.8439650964387, 34.0892591269461, 
39.4698504114642, 35.3901176173061, 33.5256760778475, 23.2332294216024, 
20.0471275231065, 33.5245878350963, 33.4312317357962, 37.857281801283, 
30.9866630575631, 33.9573759252853, 26.2111082863746, 34.5690660011084, 
34.3679303988311, NA, 34.5865677643884, 34.0575697046708, 26.1262658258816, 
23.7999687521526, NA, 32.5448121745439, 38.5461985187852, 35.4714901830973, 
NA, 28.0068678945461, 33.7886755623611, 35.1857514484385, 39.5403795607686, 
36.6649207897475, NA, 24.1039501555994, 18.588348431427, 35.6095256903849, 
34.7195778435221, 35.2173649383351, 31.9638520894498, 37.6594147808233, 
26.3034472379872, 33.4999242605808, 34.5662784291335, NA, 32.9703432776085, 
31.3528413126484, 24.7174758757831, 21.0544389940199, 35.7645538289509, 
34.3222923143281, 34.0430655456755, 34.5006780597754, 35.6099072532631, 
26.7906537930688, 34.7314605160379, 35.3636242367639, 39.5205719549468, 
34.2897302499308, 33.8646655176917, 24.4144218975257, 21.3698994557312, 
32.4708908794049, 36.2119944797095, 35.3588982106935, 32.9674414729295, 
33.9299420467793, 27.6700064895605, 34.8698385627463, 34.2696663596163, 
NA, 34.0162964121286, 32.4325272625065, 25.3290753373847, 22.3330239199226, 
34.4567062332069, 36.6339486725376, 35.3133887633062, NA, NA, 
27.1309748887202, 34.5752926972933, 38.710520173709, NA, 36.4300557322918, 
33.5285541282708, 24.9867248015247, 22.2525409948961, 36.5769963340753, 
37.6206264990933, 35.082988413419, 33.631556531742, 36.7332987836322, 
27.5689459366795, 33.7087380528888, 35.108004068514, NA, 35.2138549646156, 
34.0138678223746, 25.9573289143666, 22.4003346265267, NA, 35.1171828566527, 
35.0910886427985, 36.0210013500091, NA, 27.4833924287783, NA, 
35.1242296932743, 38.5193179840847, 36.6192291301525, 35.8982756276023, 
25.9751920946864, 22.9857098095578, NA, 37.4818573930852, 34.3296303964954, 
33.9568118126176, NA, 27.0280463517924, 36.3395946294491, 35.2554724334548, 
NA, 36.8427218072644, 32.5069167109462, 25.8655879241207, 23.4222476450893, 
39.5185665174564, 36.204131292074, 34.3366667158137, 32.6682422615747, 
34.7443780506353, 27.476822133078, 35.9485032237767, 34.8178873487401, 
36.9381193175262, 34.7724643032025, 31.1313583955301, 26.2069611211106, 
23.1415088547721, NA, 34.136240471114, 33.9982842418703, 34.5044437351778, 
NA, 27.4029851614578, 34.0483417669017, 36.1550696236958, NA, 
36.599035159723, 35.1387766342835, 26.0457951721524, 23.376054904234, 
37.3381268698525, 35.0646946113874, 35.6219919860307, 35.0033577028143, 
37.0909440879456, 27.4838311603095, 35.3746310368092, 35.8593468244749, 
37.443612980754, 36.4916030175629, 33.810158956159, 24.5049083977186, 
22.157942757431, NA, 33.9986740024123, 34.9495720173099, 32.6824517852446, 
NA, 26.8209813992691, 38.5286673384362, 35.5293133436335, 36.0015464751256, 
36.0745948110326, 33.2299189189788, 24.4906579809774, 22.5985422813658, 
36.0520583373645, 34.0163859086937, 32.9691195198199, 33.272278716963, 
34.509756172223, 26.5060338314882, 34.2653311340806, 37.4052782722685, 
NA, 36.0591988601763, 33.7111072467809)), row.names = c(NA, -884L
), class = c("tbl_df", "tbl", "data.frame"))

bopxlot的代码

ggplot(df, aes(Food, Amt)) +
  geom_boxplot() +
  facet_grid(facets = . ~ Site) + 
  theme_bw(base_size = 16) + 
  coord_flip() + 
  theme(axis.title.y = element_blank(), axis.text.y = element_text(face = "italic"))

Graph

问题

如何使用Amt在home处基于forcats::fct_order()订购食品？订购时，豌豆将位于香蕉旁边。

Answer 1

我们可以按照[年龄]的升序用factorlevelsd将'食物'转换为arrange类

library(dplyr)
library(ggplot2)    
df %>%
      arrange(Site, Amt, Food) %>%
      mutate(Food = factor(Food, levels = unique(Food))) %>% 
      ggplot(aes(Food, Amt)) +
              geom_boxplot() +
              facet_grid(facets = . ~ Site) + 
              theme_bw(base_size = 16) + coord_flip() + 
              theme(axis.title.y = element_blank(),
                   axis.text.y = element_text(face = "italic"))

---

[如果基于基于[Site]'home'的'Amt'的median值，filter'Site'为“ home”的行（按“食物”分组），则获得median 'Amt'的arrange数据集的行，提取'Food'的distinct值，并将其用作levels，同时将'Food'转换为factor并绘图

lvls <- df %>%
           filter(Site == 'home') %>% 
           group_by(Food) %>%
           summarise(Amt = median(Amt, na.rm = TRUE)) %>% 
           ungroup %>% 
           arrange(Amt) %>%
           pull(Food) %>%
           unique
df %>% 
    mutate(Food = factor(Food, levels = lvls))  %>%
    ggplot(aes(Food, Amt)) +
              geom_boxplot() +
              facet_grid(facets = . ~ Site) + 
              theme_bw(base_size = 16) + coord_flip() + 
              theme(axis.title.y = element_blank(),
                   axis.text.y = element_text(face = "italic"))

注意：订单根据订购中使用的条件而改变