Ternary heatmap in R
I'm trying to come up with a way of plotting a ternary heatmap using R. I think ggtern should be able todo the trick, but I don't know how to do a binning function like stat_bin in vanilla ggplot2. Here's What I have so far: require(ggplot2) require(ggtern) require(MASS) require(scales) palette <- c( "#FF9933", "#002C54", "#3375B2", "#CCDDEC", "#BFBFBF", "#000000") sig <- matrix(c(1,2,3,4),2,2) data <- data.frame(mvrnorm(n=10000, rep(2, 2), Sigma)) data$X1 <- data$X1/max(data$X1) data$X2 <- data$X2/max(data$X2) data$X1[which(data$X1<0)] <- runif(length(data$X1[which(data$X1<0)])) data$X2[which