Kapsama alanı, ısı eşlemesinde değer etiketleri dağıtır (ggplot2)

Question

ggplot2 kullanarak bir ısı haritası yapıyorum. Isımap kutularının içerisindeki değerleri kendim koymak istiyorum, ama yüzleşme olmasa bile bu işlerin düzgün çalıştığını anladım, numaralar yüzünüzdeyse numaralar tüm yanlış kutulara gider - ekli resimlere bakın. Faceting yaparken sayıların nasıl doğru kutularda kaldığına dair herhangi bir ipucu var mı?

ALso, diğer küçük sorular: döşeme boyutlarının ne zaman ve ne zaman değiştirilemediği; kutulardaki değer metninin rengini değiştirme (< - bariz çözümleri denedi ama işe yaramadı ...)

Herkese teşekkürler!

Kodu (faset dışarı yorum nereye görebiliyor):

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 

Isı Harita Facet olmadan

Isı Harita 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') 

ile

Tekrar üretilebilir örnek Umarım verilerinizi bir şekilde yansıtır. Yukarıda önerildiği gibi, bu durumda girişinizde değer (df $ değeri) zaten tanımlanmıştır. Böylece doğrudan çıplak (işaretsiz) bir sembol olarak başvurabilirsiniz.