Ich benutze ein Beispiel ausHier. Meine Frage ist, wie ich dieser Heatmap einen bestimmten Begrenzungsrahmen hinzufügen kann, z. B. einen roten Rahmen an den oberen linken vier Kacheln?

require(ggplot2)
require(reshape)
require(scales)

mydf <- data.frame(industry = c('all industries','steel','cars'), 
    'all regions' = c(250,150,100), americas = c(150,90,60), 
     europe = c(150,60,40), check.names = FALSE)
mydf

mymelt <- melt(mydf, id.var = c('industry'))
mymelt

ggplot(mymelt, aes(x = industry, y = variable, fill = value)) +
    geom_tile() + geom_text(aes(fill = mymelt$value, label = mymelt$value))