有个气泡可视化的问题

andres.zhang

以包里的数据为例吧 代码如下：图一是代码运行结果 主要想像图二这样每一类不同颜色区分
data("mtcars")
attach(mtcars)  
r<-sqrt(disp/pi)  
symbols(am,mpg,circle=r,inches=0.4,fg="yellow", bg="red",
        main = "气泡图",
        xlab = "",
        ylab = "")
text(am,mpg,row.names(mtcars),  cex=0.5)
detach(mtcars)