ggplot2 그림에서 맨 앞에 0을 제거합니다.

Question

ggplot을 사용하여 데이터에 맨 앞에 0을 포함하지 않고 상관 행렬의 히트 맵을 생성하려고합니다.

은 "데이터 세트"패키지에 LifeCycleSavings에서이 예제를 생각해 봅시다 :

 pop75 dpi ddpi 
sr  0.317 0.220 0.305 
pop15 -0.908 -0.756 -0.048 

내가 그릴 수있는 heatmap과 같이 :

library(reshape2) 
melted_cors <- melt(cors) 
library(ggplot2) 
ggplot(melted_cors, aes(Var2, Var1, fill = value)) + 
    geom_tile(color = "white") + 
    geom_text(aes(Var2, Var1, label = value), color = "black", size = 4) + 
    scale_fill_gradient2(low = "blue", mid = "white", high = "red", 
         midpoint = 0, limit = c(0,1), space = "Lab", 
         name="Pearson\nCorrelation") + 
    theme_minimal() + 
    theme(title = element_blank(), legend.position="none") + 
    coord_fixed() 

이 출력에서 ​​선행 0을 제거 할 수있는 방법이 있나요 ?

Answer 1

열과 행이 뒤바뀔 수 있습니다. gsub 사용은 매우 우아하지는 않지만 작동합니다.

cors <- read.table(text= 
"label pop75 dpi ddpi 
sr  0.317 0.220 0.305 
pop15 -0.908 -0.756 -0.048", header=TRUE) 

library(reshape2) 
melted_cors <- melt(cors) 
library(ggplot2) 
ggplot(melted_cors, aes(label, variable, fill = value)) + 
    geom_tile(color = "white") + 
    geom_text(aes(label, variable, label = gsub("0\\.", "\\.", value)), color = "black", size = 4) + 
    scale_fill_gradient2(low = "blue", mid = "white", high = "red", 
         midpoint = 0, limit = c(0,1), space = "Lab", 
         name="Pearson\nCorrelation") + 
    theme_minimal() + 
    theme(title = element_blank(), legend.position="none") + 
    coord_fixed()