![\"\"](\"http:\/\/www.decisionsciencenews.com\/wp-content\/uploads\/2011\/12\/MCPbyCountryw.png\" "\\"MCPbyCountry\\"")
<\/a>\n Click to enlarge
\nThe market cap of the countries comprising 90% of the world’s market cap (end 2010)<\/em><\/p>\n
A famous finance professor once told us that good diversification meant holding everything in the world. Fine, but in what proportion?<\/p>\n
Suppose you could<\/em> invest in every country in the world. How much would you invest in each? In a market-capitalization weighted index<\/a>, you’d invest in each country in proportion to the market value of its investments (its “market capitalization”). As seen above, the market-capitalization of the USA is about 30%, which would suggest investing 30% of one’s portfolio in the USA. Similarly, one would put 8% in China, and so on. All this data was pulled from the World Bank<\/a>, and at the end of this post we’ll show you how we did it.<\/p>\n What makes life easy is that economists have grouped countries into regions and the market caps of each can be computed by summing the market caps of the constituent countries. See this MSCI page<\/a> for the manner in which we’ve categorized countries in this post:<\/p>\n North America:<\/strong> USA, Canada What makes life easier still is that one can purchase ETFs that work like indices tracking the various regions of the world. For example at Vangard one can purchase<\/p>\n What makes life a bit more complicated is that not everybody agrees on market-cap weighting. Some favor Gross Domestic Product (GDP) weighting for the reasons given at this MSCI page<\/a>.<\/p>\n Here are the countries that make up 90% of the world’s GDP:<\/p>\n Because we love you, we’ve also computed how the classic market regions compare to one another in terms of GDP<\/p>\n If you track changes in market cap from month to month as we do, you’ll appreciate the stability that GDP weighting provides. For example, the market cap data in this post, from 2010, is already way out of date.<\/p>\n So, weight by market cap, or weight by GDP, or do what we do and weight by the average of market cap and GDP, but don’t wait to diversify your portfolio outside of a handful of investments you happen to own. Invest in the world.<\/p>\n For those who love R<\/a> and who want to learn how to pull down World Bank data, the code is provided here. I got started with this by borrowing code from this very helpful blog post by Markus Gesmann<\/a> and tip my hat to its author. Thanks also to Hadley <\/a>for writing ggplot2<\/a> (and for visiting us at Yahoo the other week. And thanks to Yihui Xie<\/a> for his code formatter<\/a>.<\/p>\n R CODE A famous finance professor once told us that good diversification meant holding everything in the world. Fine, but in what proportion?<\/p>\n Suppose you could invest in every country in the world. How much would you invest in each? In a market-capitalization weighted index, you’d invest in each country in proportion to the market value of its investments (its “market capitalization”). As seen above, the market-capitalization of the USA is about 30%, which would suggest investing 30% of one’s portfolio in the USA. Similarly, one would put 8% in China, and so on. All this data was pulled from the World Bank, and at the end of this post we’ll show you how we did it.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","enabled":false}}},"categories":[4,74,15],"tags":[20,183,307,107,304,308,309,305,1208,306],"class_list":["post-2978","post","type-post","status-publish","format-standard","hentry","category-encyclopedia","category-r","category-tools","tag-decision-making","tag-finance","tag-gdp","tag-ggplot2","tag-investment","tag-market-cap","tag-market-capitalization","tag-portfolio","tag-r","tag-weighting"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p4LKj-M2","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/posts\/2978","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2978"}],"version-history":[{"count":36,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/posts\/2978\/revisions"}],"predecessor-version":[{"id":3022,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/posts\/2978\/revisions\/3022"}],"wp:attachment":[{"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2978"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2978"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2978"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nEmerging:<\/strong> Brazil, Chile, China, Colombia, Czech Republic, Egypt, Hungary, India, Indonesia, Korea, Malaysia, Mexico, Morocco, Peru, Philippines, Poland, Russia, South Africa, Taiwan, Thailand, Turkey
\nAsia:<\/strong> Japan, Australia, Hong Kong, New Zealand, Singapore
\nEurope:<\/strong> Austria, Belgium, Denmark, Finland, France, Germany, Greece, Ireland, Italy, Netherlands, Norway, Portugal, Spain, Sweden, Switzerland, United Kingdom
\nOther:<\/strong> Everybody else in the world<\/p>\n<\/a><\/p>\n\n
\n
\n
<\/a>
\nClick to enlarge
\nThe GDP of the countries comprising 90% of the world’s GDP (end 2010)<\/em><\/p>\n<\/a><\/p>\n
\n
\nlibrary(ggplot2)
\nlibrary(car)
\nlibrary(RJSONIO)
\nftse=read.delim(\"201112_FTSE_Market_Caps.tsv\",sep=\"\\t\")
\n##See www.msci.com\/products\/indices\/tools\/index.html
\n##Emerging::Brazil, Chile, China, Colombia, Czech Republic, Egypt, Hungary,
\n#India, Indonesia, Korea, Malaysia, Mexico, Morocco, Peru, Philippines,
\n#Poland, Russia, South Africa, Taiwan, Thailand, Turkey
\n##Europe::Austria, Belgium, Denmark, Finland, France, Germany, Greece, Ireland, Italy,
\n#Netherlands, Norway, Portugal, Spain, Sweden, Switzerland, United Kingdom
\n##Asia::Japan, Australia, Hong Kong, New Zealand, Singapore
\nrecodestring=\" c('USA','CAN')='North America';
\n c('BRA','CHL','CHN','COL','CZE','EGY','HUN','IND','IDN','KOR','MYS','MEX','MAR','PER','PHL','POL',
\n 'RUS','ZAF','TWN','THA','TUR')= 'Emerging';
\n c('AUT','BEL','DNK','FIN','FRA','DEU','GRC','IRL','ITA',
\n 'NLD','NOR','PRT','ESP','SWE','CHE','GBR')= 'Europe';
\n c('JPN','AUS','HKG','NZL','SGP')= 'Asia';
\n else='Other'\"
\n#How much of the world do we want to consider (to keep graphs manageable)
\nCUTOFF=.9
\n#Some code from internet to read world bank data. Adapted from
\n#http:\/\/www.r-bloggers.com\/accessing-and-plotting-world-bank-data-with-r\/
\n#See also http:\/\/data.worldbank.org\/indicator\/NY.GDP.MKTP.CD
\ngetWorldBankData = function(id='NY.GDP.MKTP.CD', date='2010:2011',
\n value=\"value\", per.page=12000){
\n require(RJSONIO)
\n url = paste(\"http:\/\/api.worldbank.org\/countries\/all\/indicators\/\", id,
\n \"?date=\", date, \"&format=json&per_page=\", per.page,
\n sep=\"\")
\n wbData = fromJSON(url)[[2]]
\n wbData = data.frame(
\n year = as.numeric(sapply(wbData, \"[[\", \"date\")),
\n value = as.numeric(sapply(wbData, function(x)
\n ifelse(is.null(x[[\"value\"]]),NA, x[[\"value\"]]))),
\n country.name = sapply(wbData, function(x) x[[\"country\"]]['value']),
\n country.id = sapply(wbData, function(x) x[[\"country\"]]['id'])
\n )
\n names(wbData)[2] = value
\n return(wbData)
\n}
\ngetWorldBankCountries = function(){
\n require(RJSONIO)
\n wbCountries =
\n fromJSON(\"http:\/\/api.worldbank.org\/countries?per_page=12000&format=json\")
\n wbCountries = data.frame(t(sapply(wbCountries[[2]], unlist)))
\n levels(wbCountries$region.value) = gsub(\"\\\\(all income levels\\\\)\",
\n \"\", levels(wbCountries$region.value))
\n return(wbCountries)
\n}
\n### Get the most recent year with data
\ncurryear = as.numeric(format(Sys.Date(), \"%Y\"))
\nyears = paste(\"2010:\", curryear, sep=\"\")
\n##Get GDP for the countries (GDP in Current US Dollars)
\nGDP = getWorldBankData(id='NY.GDP.MKTP.CD',
\n date=years,
\n value=\"gdp\")
\n#If a year has > 60 NAs it is not ready
\nwhile( sum(is.na(subset(GDP,year==curryear)$gdp)) > 60 )
\n {curryear=curryear-1}
\n#Keep just the most current year
\nGDP=subset(GDP,year==curryear);
\n## Get country mappings
\nwbCountries = getWorldBankCountries()
\n## Add regional information
\nGDP = merge(GDP, wbCountries[c(\"iso2Code\", \"region.value\", \"id\")],
\n by.x=\"country.id\", by.y=\"iso2Code\")
\n## Filter out the aggregates, NAs, and irrelevant columns
\nGDP = subset(GDP, !region.value %in% \"Aggregates\" & !is.na(gdp))
\nGDP=GDP[,c('year','gdp','country.name','region.value','id')]
\nGDP=GDP[order(-1*GDP[,2]),]
\nGDP$prop=with(GDP,gdp\/sum(gdp))
\nGDP$cumsum=cumsum(GDP$gdp)
\nGDP$cumprop=with(GDP,cumsum(gdp)\/sum(gdp))
\nGDP$market.region=recode(GDP$id,recodestring)
\nresize.win <- function(Width=6, Height=6)\n{\n plot.new() \n dev.off(); \n #dev.new(width=6, height=6)\n windows(record=TRUE, width=Width, height=Height)\n}\nslice=max(which(GDP$cumprop<=CUTOFF))\nsmGDP=GDP[1:slice,]\nsmGDP$country.name=factor(smGDP$country.name,levels=unique(smGDP$country.name))\nsmGDP$region.value=factor(smGDP$region.value,levels=unique(smGDP$region.value))\nsmGDP$market.region=factor(smGDP$market.region,levels=unique(smGDP$market.region))\ng=ggplot(smGDP,aes(x=as.factor(country.name),y=prop))\ng=g+geom_bar(aes(fill=market.region))\ng=g+opts(axis.text.x=theme_text(angle=90, hjust=1))+xlab(NULL)+\n ylab( paste(\"Proportion of global GDP\\nTop \",CUTOFF*100,\"% countries\",sep=\"\"))\ng=g+opts(legend.position=c(.8,.8))\nresize.win(5,5) #might have to run this twice to get it to shift from the default window\ng\nggsave(\"GDPbyCountry.png\",g,dpi=600)\nsmGDPsum=ddply(GDP,.(market.region),function(x) {sum(x$gdp)})\nsmGDPsum$V1=smGDPsum$V1\/sum(smGDPsum$V1)\nsmGDPsum=smGDPsum[order(-1*smGDPsum[,2]),]\nsmGDPsum$market.region=factor(smGDPsum$market.region,levels=c(\"North America\",\"Emerging\",\"Asia\",\"Europe\",\"Other\"))\ng=ggplot(smGDPsum,aes(x=as.factor(market.region),y=V1))\ng=g+geom_bar(aes(fill=market.region))\ng=g+opts(axis.text.x=theme_text(angle=90, hjust=1))+xlab(NULL)+ylab(\"GDP of Countries by Market Region\\n\")\ng=g+opts(legend.position=\"none\")\nresize.win(5,5) #might have to run this twice to get it to shift from the default window\ng\nggsave(\"GDPbyRegion.png\",g,dpi=600)\n##Get Market Cap data from World Bank CM.MKT.LCAP.CD\n### Get the most recent year with data\ncurryear = as.numeric(format(Sys.Date(), \"%Y\"))\nyears = paste(\"2010:\", curryear, sep=\"\")\n##Get MarketCap for the countries (MCP in Current US Dollars)\nMCP = getWorldBankData(id='CM.MKT.LCAP.CD',\n date=years,\n value=\"mcp\")\n#If a year has > 60 NAs it is not ready
\nwhile( sum(is.na(subset(MCP,year==curryear)$mcp)) > 150 )
\n{curryear=curryear-1}
\n#Keep just the most current year
\nMCP=subset(MCP,year==curryear);
\n## Add regional information
\nMCP=merge(MCP, wbCountries[c(\"iso2Code\", \"region.value\", \"id\")],
\n by.x=\"country.id\", by.y=\"iso2Code\")
\n## Filter out the aggregates, NAs, and irrelevant columns
\nMCP = subset(MCP, !region.value %in% \"Aggregates\" & !is.na(mcp))
\nMCP=MCP[,c('year','mcp','country.name','region.value','id')]
\nMCP=MCP[order(-1*MCP[,2]),]
\nrow.names(MCP)=NULL
\nMCP$prop=with(MCP,mcp\/sum(mcp))
\nMCP$cumsum=cumsum(MCP$mcp)
\nMCP$cumprop=with(MCP,cumsum(mcp)\/sum(mcp))
\nMCP$market.region=recode(MCP$id, recodestring)
\nslice=max(which(MCP$cumprop<=CUTOFF))\nsmMCP=MCP[1:slice,]\nsmMCP$country.name=factor(smMCP$country.name,levels=unique(smMCP$country.name))\nsmMCP$region.value=factor(smMCP$region.value,levels=unique(smMCP$region.value))\nsmMCP$market.region=factor(smMCP$market.region,levels=unique(smMCP$market.region))\ng=ggplot(smMCP,aes(x=as.factor(country.name),y=prop))\ng=g+geom_bar(aes(fill=market.region))\ng=g+opts(axis.text.x=theme_text(angle=90, hjust=1))+xlab(NULL)+\n ylab( paste(\"Proportion of global Market Cap\\nTop \",CUTOFF*100,\"% countries\",sep=\"\"))\ng=g+opts(legend.position=c(.8,.8))\nresize.win(5,5) #might have to run this twice to get it to shift from the default window\ng\nggsave(\"MCPbyCountry.png\",g,dpi=600)\nsmMCPsum=ddply(MCP,.(market.region),function(x) {sum(x$mcp)})\nsmMCPsum$V1=smMCPsum$V1\/sum(smMCPsum$V1)\nsmMCPsum=smMCPsum[order(-1*smMCPsum[,2]),]\nsmMCPsum$market.region=factor(smMCPsum$market.region,levels=c(\"North America\",\"Emerging\",\"Asia\",\"Europe\",\"Other\"))\ng=ggplot(smMCPsum,aes(x=as.factor(market.region),y=V1))\ng=g+geom_bar(aes(fill=market.region))\ng=g+opts(axis.text.x=theme_text(angle=90, hjust=1))+xlab(NULL)+ylab(\"Market Cap by Market Region\\n\")\ng=g+opts(legend.position=\"none\")\nresize.win(5,5) #might have to run this twice to get it to shift from the default window\ng\nggsave(\"MCPbyRegion.png\",g,dpi=600)\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"