r - ggplot2で「サイズドットスタイル」のヒートマップは可能ですか?

Question

ggplot2で正方形の代わりに円でヒートマップを描くことは可能ですか? 色のグラデーションだけでなく、円の大きさでも値を表すといいでしょう。このドット ヒートマップのようなグラフを考えています。円のサイズも特定の値で交互に表示されます。私はすでにggplot2でヒートマッピングを読み込んでいますが、解決策を見つけることができませんでした. ヒートマッピングについては、learnr.wordpress.com に投稿された例を次のように変更しました。

 library(ggplot2)
 library(plyr)
 library(reshape2)
 library(scales)
 kreuz <- read.csv("http://datasets.flowingdata.com/ppg2008.csv")
 kreuz.m <- melt(kreuz)
 (p <- ggplot(kreuz.m, aes(Name, variable)) +
   geom_tile(aes(fill = value), colour = "white") +
   scale_fill_gradient2(breaks=waiver(), name="binding strength", 
      low ="white", mid= ("lightblue"), high = "steelblue", midpoint = 4))
 base_size <- 10
 p + theme_grey(base_size = base_size) +
   theme(panel.grid.major = element_blank())+
   labs(x = "Patient ID", y = "Phage Motives", title = "Cross Reactivity")+
   scale_x_discrete(expand = c(0, 0)) +
   scale_y_discrete(expand = c(0, 0)) +
   theme(legend.position = "right", axis.ticks = element_blank(), 
      axis.text.x = element_text(size = base_size *0.8, angle = 270, hjust = 0,
      colour = "grey50"))+
   labs(x = "Patient ID", y = "Phagemotives", title = "cross reactivity")

いくつかのヒントをいただければ幸いです。