ggplot R, hjust='inward' 使标签既不完全位于内部也不完全位于外部

Question

下面的代码生成的图形会定期更新，并且每次都工作正常，但是添加了“Japan”的新数据后，标签既不位于翻转列的外部也不位于翻转列的内部，如下所示其余的都是。谢谢！

    country <- c("AFGHANISTAN", "ALASKA", "CHINA", "ECUADOR", "HAITI", "INDONESIA", "JAPAN",
     "MOROCCO", "BURMA", "NEPAL", "PAPUA", "PHILIPPINES", "TURKEY")
    num <- c(4, 1, 4, 1, 1, 4, 4, 1, 1, 2, 2, 3, 3)
    ytd <- c(1508, 1, 154, 15, 4, 5, 241, 2946, 2, 155, 8, 14, 56703)

    ytd.ct <- data.frame(country, num, ytd)

    ggplot(ytd.ct, aes(x=reorder(country, +ytd), 
                        y=ytd, fill=ytd, fontface = 'plain')) + 
      geom_col() + coord_flip()+
      scale_fill_gradient(low="thistle", high="orchid2", labels = number_format(
    scale=0.001, suffix = 'K', big.mark = ',')) + 
      geom_text(aes(
        label=paste(format(ytd, big.mark=','), ' ' )), 
        size=3.5, vjust=0.4, hjust='inward', color='darkblue') + 
      theme(
        axis.text.x = element_text(angle = 0, size = 10, face = 'plain'),
        axis.text.y = element_text(angle = 0, size = 9.5, face = 'plain'),
        plot.title = element_text(color='black', size= 13.5, 
                              vjust= -1, face= 'bold'),
        plot.subtitle = element_text(color='darkblue', size= 12, 
                                 vjust= -1.3, face= 'bold'),
        legend.title=element_text(face='plain',
                              color="navyblue")) +
      scale_y_continuous(trans = 'log10', labels = number_format(big.mark = ',')) 

我尝试在前后添加空格，但没有成功。我非常感谢任何帮助，因此这个标签（针对日本）可以完全位于翻转列的内部或外部。谢谢！

Answer 1

问题在于

"inward"

将文本对齐到绘图的中间。对于位于绘图区域中心或中间的标签，这意味着它们居中。

但是，在设置值对齐时，

ggplot2

在幕后应用了

tol=.001

的一些小容差（请参阅此处）。因此，即使是稍微偏向中心左侧或右侧的标签也会居中。

这正是您的情况所发生的情况。在对标度和进行对数变换（考虑了标度的扩展）后，当缩放到范围

c(0, 1)

时，日本的值落在容差范围内。因此，日本的标签居中。

这是一个模仿您的数据并说明问题的小示例。与日本类似，C 类值略微下降到中心点的右侧（即

0.5

），但取决于扩张情况，会落在公差之内或之外。因此，在第一个图中，标签居中，而在第二个图中，标签向右对齐。

library(ggplot2)
library(scales)
library(patchwork)

dat <- data.frame(
  x = 10^(0:4) + c(0, rep(1, 4)),
  y = LETTERS[1:5]
)

log_helper <- function(x, expand) {
  log10_x <- log10(x)
  rescale(log10_x,
    from = range(log10_x) +
      expand * c(-1, 1) * diff(range(log10_x)),
    to = c(0, 1)
  ) |>
    round(5)
}

p1 <- ggplot(dat, aes(x, y)) +
  geom_col(fill = "grey60") +
  geom_text(aes(label = log_helper(x, .05)),
    hjust = "inward"
  ) +
  scale_x_continuous(trans = "log10") +
  labs(title = "With default expansion of .05")

p2 <- ggplot(dat, aes(x, y)) +
  geom_col(fill = "grey60") +
  geom_text(aes(label = log_helper(x, 0)),
    hjust = "inward"
  ) +
  scale_x_continuous(
    trans = "log10",
    expand = c(0, 0)
  ) +
  labs(title = "Without expansion")

p1 + p2

现在，解决问题的一种选择是使用

hjust

美学和

ifelse

:

手动设置对齐方式

# Transformed values of ytd or position of the labels
sort(setNames(
  log_helper(ytd.ct$ytd, expand = .05),
  ytd.ct$country
))
#>      ALASKA       BURMA       HAITI   INDONESIA       PAPUA PHILIPPINES 
#>     0.04545     0.10302     0.16059     0.17913     0.21816     0.26464 
#>     ECUADOR       CHINA       NEPAL       JAPAN AFGHANISTAN     MOROCCO 
#>     0.27037     0.46380     0.46434     0.50100     0.65330     0.70892 
#>      TURKEY 
#>     0.95455

ggplot(ytd.ct, aes(
  y = reorder(country, ytd),
  x = ytd,
  fill = ytd, fontface = "plain"
)) +
  geom_col() +
  geom_text(
    aes(
      label = number(ytd, big.mark = ","),
      hjust = ifelse(rescale(log10(ytd), to = c(0, 1)) > .5, 1, 0)
    ),
    size = 3.5, vjust = 0.4, color = "darkblue"
  ) +
  scale_fill_gradient(
    low = "thistle", high = "orchid2",
    labels = number_format(
      scale = 0.001, suffix = "K", big.mark = ","
    )
  ) +
  scale_x_continuous(
    trans = "log10",
    labels = number_format(big.mark = ",")
  ) +
  theme(
    axis.text.x = element_text(angle = 0, size = 10, face = "plain"),
    axis.text.y = element_text(angle = 0, size = 9.5, face = "plain"),
    plot.title = element_text(
      color = "black", size = 13.5,
      vjust = -1, face = "bold"
    ),
    plot.subtitle = element_text(
      color = "darkblue", size = 12,
      vjust = -1.3, face = "bold"
    ),
    legend.title = element_text(
      face = "plain",
      color = "navyblue"
    )
  )