Skip to content

Instantly share code, notes, and snippets.

@xccds
Created August 10, 2012 04:09
Show Gist options
  • Save xccds/3310989 to your computer and use it in GitHub Desktop.
Save xccds/3310989 to your computer and use it in GitHub Desktop.
library(treemap)
data <- read.csv('d:/sheet1.csv',T)
tmPlot(data,
index=c("item", "subitem"),
vSize="time1206",
vColor="time1106",
type="comp",
title='苹果公司财务报表可视化',
palette='RdBu')
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment