chuxinyuan
library(ggplot2)
x = c("a", "b", "c")
y = c(100000000, 200000000, 300000000)
df = data.frame(x, cut(y, c(100000000, 200000000, 300000000, 400000000),
include.lowest = TRUE, right = FALSE, dig.lab = 10))
names(df) = c("x", "y")
df$z = as.factor(unlist(
lapply(strsplit(as.character(df$y), "[,]"), FUN = function(x){
paste(paste(gsub("[^0-9]", "", x), "Yuan", sep=""), collapse = " to ")
})))
ggplot(df, aes(x, z, size = z)) + geom_point()