> 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))
0 件のコメント:
コメントを投稿
注: コメントを投稿できるのは、このブログのメンバーだけです。