ggvis画相关性热图

library(ggvis )
ls(package:ggvis)
mtcars %>% 
  ggvis(~wt, ~mpg) %>% 
  layer_points(fill = ~factor(cyl))

# ggvis -------------------------------------------------------------------
corr <- cor(mtcars)
corr <- reshape2::melt(corr)
colnames(corr)
corr %>% ggvis(~Var1, ~Var2, fill = ~value,size = ~value) %>% 
  layer_points() %>% 
  add_axis("x", title = "") %>%
  add_axis("y", title = "") %>% 
  scale_numeric("fill", range = c("blue", "red")) %>% 
  add_legend("fill", title = "" ) %>% 
  hide_legend("size")