boxplot(log(marketvalue) ~ country, data =
+ subset(Forbes2000, country %in% c("United Kingdom",
+ "Germany", "India", "Turkey")),
+ ylab = "log(marketvalue)", varwidth = TRUE)
这是书上的一段代码，结果如下：

下图是我将代码复制到R中的结果：

为什么结果如此的不同呢？期待各位高手们不吝赐教，不胜感激！