從ggplot2圖中刪除前導零

Question

我正嘗試使用ggplot生成相關矩陣的熱圖，但不在數據中包含前導零。

考慮在「數據集」包從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() 

有沒有辦法從這個輸出剝去前導零？

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()