library(ggplot2)

df <- read.csv("http://dl.dropbox.com/u/361076/xhprof_disable.csv")
df$function.calls <- as.factor(df$function.calls)
ggplot(df, aes(ms, function.calls, colour = ms)) + geom_point(aes(size = 10, 
    alpha = 0.5))