我想给geom_hex添加标签，这会引起两个问题：
1.如何得到它们的坐标
1.如何提取它们计数值？
最小示例：

pipeline <- read.csv(url('http://dl.dropboxusercontent.com/u/7446674/pipeline.csv'),sep="\t",header=T)
pipeline <- pipeline[pipeline$Units>0,]

ggplot(pipeline,aes(x=Longitude,y=Latitude))+
    #stat_density2d(n=25,aes(fill=..level..), geom="polygon") +
      geom_hex(bins=12)+
      coord_equal(ratio = 1/1)+
      theme_bw()+
      ggtitle('San Francisco Development Pipeline\nQ2 2013')

(Also，在geom_hex上，如果有人知道是否已经实现了weight，我也会有兴趣知道）