Skip to content

Instantly share code, notes, and snippets.

@xccds
Created August 13, 2012 02:20
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save xccds/3336476 to your computer and use it in GitHub Desktop.
library(treemap)
data <- read.csv('d:/olympic.csv',T)
tmPlot(data,
index=c("sports", "events"),
vSize="gold",
vColor="china",
type="value",
title='中国奥运金牌分布',
fontsize.labels=13,
lowerbound.cex.labels=0.7,
palette="-RdGy")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment