Rでバブルチャートを描画する方法 その3

ggplot2 パッケージを使う。

> install.packages("plyr")
> install.packages("ggplot2")
> library(plyr)
> library(ggplot2)
> trees$rowname <- paste("sample", sprintf("%02d", as.numeric(row.names(trees))))
> r <- sapply(c(min, max), function(f) sqrt(f(trees$Volume) / pi) * 10)
> ggplot(trees, aes(Girth, Height, size=Volume, colour=rowname)) + geom_point(alpha=0.9) + scale_size(range=r) + scale_color_discrete() + coord_cartesian(xlim=c(7, 22), ylim=c(60, 90))

Rでバブルチャートを描画する方法 その2

lattice パッケージの xyplot 関数を使う。

> library(lattice)
> xyplot(Temp ~ Wind, data=airquality, pch=21, cex=sqrt(airquality$Ozone / pi), fill=rainbow(nrow(airquality)), col="white", alpha=0.8)

モデル式に条件変数を指定するとマルチパネルに描画してくれるので、層別にデータを可視化したい場合に便利。

> airquality$month <- as.factor(airquality$Month)
> xyplot(Temp ~ Wind | month, data=airquality, pch=21, cex=sqrt(airquality$Ozone / pi), fill=rainbow(nrow(airquality) / nlevels(airquality$month)), col="white", alpha=0.8)

Rでバブルチャートを描画する方法 その1

Traditional 作図システムの symbols 関数を使う。

> symbols(trees$Girth, trees$Height, circles=sqrt(trees$Volume / pi), fg="white", bg=rainbow(nrow(trees), alpha=0.8), inches=0.5)

参考: http://flowingdata.com/2010/11/23/how-to-make-bubble-charts/