geom_raster（），没有填充，没有传说

Question

我想绘制，与GGPLOT2，混淆矩阵是这样的：

# Original data 
samples <- t(rmultinom(50, size = 7, prob = rep(0.1,10))) 

# Co-ocurrence matrix 
coincidences <- sapply(1:ncol(samples), function(i){ colSums(samples[,i]==samples) }) 

如果我使用geom_roster：

p <- ggplot(melt(coincidences), aes(Var1,Var2, fill=value)) + geom_raster() 

我得到这个：

我怎样才能得到这个？ （没有传说，没有填充）

Answer 1

您应该使用scale_fill_continuous(guide = FALSE)删除图例。然后摆脱所有的填充（轴，标签等），你可以使用这个长theme()命令：

require(ggplot2) 
# Original data 
samples <- t(rmultinom(50, size = 7, prob = rep(0.1,10))) 

# Co-ocurrence matrix 
coincidences <- sapply(1:ncol(samples), function(i) { 
    colSums(samples[,i]==samples) 
}) 

p <- ggplot(melt(coincidences), aes(Var1, Var2, fill = value)) + 
    geom_raster() + 
    scale_fill_continuous(guide = FALSE) + 
    theme(axis.text  = element_blank(), 
     axis.ticks  = element_blank(), 
     axis.title  = element_blank(), 
     panel.background = element_blank())