Facettieren vermasselt Wert Etiketten in Heatmap (ggplot2)

Question

Ich mache eine Heatmap mit ggplot2. Ich möchte die Werte selbst in die Heatmap-Boxen setzen, aber ich finde, dass das funktioniert, wenn nicht facettiert, sobald ich Facetten habe, gehen die Zahlen in die falschen Kästchen - siehe beigefügte Bilder. Irgendwelche Tipps, wie man die Zahlen beim Facettieren in den richtigen Feldern hält?

ALso, einige andere kleinere Fragen: wie man die Fliesengrößen ändert, wenn und wenn nicht facetting; Ändern der Farbe des Wertes Text in den Boxen (< - versuchte die offensichtlichen Lösungen, aber scheint nicht zu funktionieren ...)

Danke allen!

-Code (kann sehen, wo die Facette kommentiert out):

fpdata<-read.csv("fp.csv",header=T) 
fpdata$Dimension=factor(fpdata$Dimension,levels(fpdata$Dimension)[c(4,1,3,2,5)]) 
fpdata$Trait=factor(fpdata$Trait,levels(fpdata$Trait)[c(22,15,16,3,4,9,21,20,10,14,6,2,1, 
                 13,8,11,12,17,24,25,18,5,23,19,7)]) 
matrix <- melt(fpdata) 
matrix 
matrix$value[is.na(matrix$value)] <- 2 
matrix 


p3 <- ggplot(data = matrix, aes(variable, Trait, fill = value))+ 
    geom_tile(color = "white")+ 
    scale_fill_gradient2(low = "blue", high = "firebrick", mid = "deepskyblue", 
         midpoint = 0.6, limit = c(0.6,1), space = "Lab", 
         name="Factor Loadings")+labs(x = "Reduction #")+ 
    geom_text(aes(label=ifelse(matrix$value<2,matrix$value," "))) 
    ##+facet_grid(~Dimension, scale="free") 

p3 <- p3 + 
    theme (axis.title.x = element_text(size=20), 
     axis.title.y = element_text(size=20), 
     axis.text.x = element_text(angle = 0, vjust = 1, size = 14, hjust = 0.5), 
     axis.text.y = element_text(size=16), 
     panel.grid.major = element_blank(), 
     panel.grid.minor = element_blank(), 
     legend.title = element_text(size=16), 
     legend.text = element_text(size=14), 
     strip.text.x = element_text(size=13, face="bold"))+coord_fixed() 
p3 

Wärmekarte ohne Facet

Wärmekarte mit Facet

Answer 1

df <- data.frame(trait = sample(letters, 15), 
       dimension = rep(LETTERS[1:5], 3), 
       variable = paste0('R', 1:3), 
       value = runif(15)) 

ggplot(df, aes(variable, trait, fill = value)) + 
    geom_tile(aes(fill = ifelse(value > 0.25, value, NA))) + 
    geom_text(aes(label = ifelse(value > 0.25, round(value, 2), NA))) + 
    facet_grid(~dimension, scales = 'free') 

Reproduzierbares Beispiel Ich hoffe, Ihre Daten spiegeln sich etwas. Wie oben vorgeschlagen, ist in diesem Fall der Wert bereits in Ihrer Eingabe definiert (df $ value). Sie können sich also direkt darauf als ein leeres (nicht angegebenes) Symbol beziehen.