Food consumption in different countries

The New York Times presented a bar chart on food consumption in different countries. Here is a correspondence analysis on the distribution

NYTfood.png

, and here is the R code needed to produce it:

food <- data.frame(list(US = c(63, 298, 108, 12, 77, 47, 183, 194, 124,  88,  97),
                        SP = c(77, 315, 149, 10, 67, 28, 112, 192, 218,  59, 152),
                        FR = c(54, 265, 175, 20, 77, 19, 130, 184,  91,  56, 131),
                        MX = c(45, 146, 433,  9, 14, 19,  37, 156, 203, 116, 122),
                        JP = c(75, 147,  53, 32, 17, 19, 251, 278, 126,  94, 146),
                        RU = c(49, 127, 144, 16, 25, 24,  70, 335,  88,  88, 125),
                        BR = c(51, 117,  81, 12,  6,  9, 115, 208, 161, 103, 205),
                        SA = c(28,  88, 117,  5, 14, 10,  42, 145,  64,  67,  81),
                        CN = c(24,  31,  13,  9,  5,  5,  29, 609, 132,  65, 228),
                        IN = c( 1,  25,   7,  1,  2,  1,   2, 207,  80,  72,  19)
                        ),
                      row.names = c("sauces", "dairy", "bakery", "pasta", "canned", "snacks", "conven", "veg", "fruit", "nuts", "meat"))

library(MASS)

cspfood <- corresp(food, nf=2)
png("NYTfood.png")
plot(cspfood)
dev.off()

Note how the food categories marked red/orange are well separated from the ones marked blue/green in the plot. Contrary to what I've expected, France and the U.S. are quite close to one another.

Add a New Comment
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License