data <- read.csv("http://datasets.flowingdata.com/post-data.txt")

library(portfolio)

## Loading required package: grid

## Loading required package: lattice

## Loading required package: nlme

map.market(id=data$id, area=data$views, group=data$category, color=data$comments, main="FlowingData Map")