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
, 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.
page revision: 4, last edited: 16 Apr 2010 04:01