将文本右对齐但每个框的中心对齐 geom_text

Question

我使用 geom_tile 和 geom_text 使用 ggplot 创建了一个图表。我希望能够阅读一栏中的数字并将它们全部排列起来。我将字体设置为 Courier 并使用 hjust 来调整数字（否则负号会导致对齐失败）。但是我找不到一种方法来保持这种正确的理由并将文本居中放置在每个框的中间。关于如何让数字对齐以便快速扫描列的任何想法？

下面的可重现示例。

require(reshape2)
require(ggplot2)
require(scales)

set.seed(504)
df_graph <- data.frame("Category"=c("Green","Blue","Red","Yellow","Black","Random1","Random2","Random3","Random4","Random5","Random6","Random7",
                                    "Random8","Random9","Random10"),"Test1"=rnorm(15),"Test1"=rnorm(15),"Test2"=rnorm(15),"Test3"=rnorm(15),
                       "Test4"=rnorm(15),"Test5"=rnorm(15))

df_graph <- melt(df_graph)                       
df_graph$text <- round(df_graph$value, 2)

colors_used <- c("#B2182B","#D6604D","#F4A582","#FDDBC7","#F7F7F7","#D1E5F0","#92C5DE","#4393C3","#2166AC")
values <- seq(-4, 4, length = 9)

g <- ggplot(df_graph, aes(variable, Category))
g <- g + geom_tile(aes(fill = value), colour = "white", size=0.75)
g <- g + geom_text(aes(label=text),size=3, family="Courier", hjust = 1)
g <- g + scale_fill_gradientn(colours = colors_used, na.value = "#FFFFFF", values = values,rescaler = function(x, ...) x, oob = identity)
g <- g + theme_bw()
g <- g + theme(
  axis.text.x= element_text(color="black", size=10, angle = 45, hjust = 0.5),
  axis.text.y= element_text(color="black", size=8),
  axis.title.y = element_text(color="black",size=10),
  plot.title = element_text(color="black",size=14,face="bold"),
  legend.key = element_rect(fill="white"), legend.background = element_rect(fill=NA),
  legend.position="none",
  legend.title = element_blank(),
  panel.grid  = element_blank(),
  panel.border = element_blank()
)

Answer 1

在geom_text()中使用hjust=0.5并适当填充正数的标签，即在前面加上space个字符以获得等长的标签：

df_graph$text <- format(round(df_graph$value, 2))

将文本右对齐但每个框的中心对齐 geom_text

Align text right justified but center of each box in geom_text

r

ggplot2

geom-text