如何在R中绘制树图(TreeMap)

install.packages("treemap", repos='http://cran.r-project.org')
library(treemap)

data <- read.csv('data.csv', stringsAsFactors=FALSE);

treemap(
  data,
  index=c("continent"),
  vSize="population",
  vColor="sales",
  type="value"
)

agg <- aggregate(sales~continent, data=data, FUN=sum)
mSales <- max(agg$sales)
treemap(
  data,
  index=c("continent"),
  vSize="population",
  vColor="sales",
  type="value",
  border.col='#63B8FF',
  palette=c("#FFFFFF", "#1C86EE"),
  range=c(-mSales, mSales)
)

agg <- aggregate(sales~continent+country, data=data, FUN=sum)
maxSales <- max(agg$sales)
minSales <- min(agg$sales)
treemap(
  data,
  index=c("continent", 'country'),
  vSize="population",
  vColor="sales",
  type="manual",
  border.col='#63B8FF',
  palette=c("#FFFFFF00", "#1C86EE00"),
  range=c(minSales, maxSales)
)