ggplot：将轴文本放入绘图中

Question

我想在绘图区域内放置标签。

这是一个示例情节：

library(ggplot2)

set.seed(123)
random_word <- function() paste(sample(letters, 10, replace = T), collapse='')
dat <- data.frame(x = replicate(4, random_word()),
                  y = runif(5*4, 0, 100))

ggplot(dat, aes(x = x, y = y)) +
  geom_point() +
  coord_flip() +
  theme_minimal()

我知道我可以使用geom_text来破解想要的结果：

ggplot(dat, aes(x = x, y = y)) +
  geom_point() +
  geom_text(data = dat[1:4,],
            aes(label=x), 
            y = 1, 
            hjust=0, vjust=-1 ) +
  coord_flip() +
  theme_minimal() +
  theme(axis.text.y = element_blank())

对此问题[move axis labels ggplot的评论表明，margin是在当前ggplot中执行此操作的一种简单方法，但它似乎并未在绘制区域内移动轴文本。 / p>

# doesn't do the trick
ggplot(dat, aes(x = x, y = y)) +
  geom_point() +
  coord_flip() +
  theme_minimal() +
  theme(axis.title.y = element_text(margin = margin(l = 50)))

是否可以通过设置theme()参数来获得这种输出的优美方法？

我的sessionInfo()是：

> sessionInfo()
R version 3.5.2 (2018-12-20)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS Mojave 10.14.3

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] ggthemes_4.1.0  forcats_0.4.0   stringr_1.4.0   dplyr_0.8.0.1   purrr_0.3.1     readr_1.3.1    
 [7] tidyr_0.8.3     tibble_2.0.1    ggplot2_3.1.0   tidyverse_1.2.1

Answer 1

有趣的问题。我不知道执行此操作的一种优雅方法，但是margin()确实可以将文本移至绘图区域。为了使其正常工作，您还需要使用正确的参数，而不仅仅是左边的参数。

我也尝试过使用top和bottom参数，但是看来margin()确实在这里没有任何作用。但是，您可以使用vjust将其垂直移离网格线。

还请注意，当您移动了轴标题而不是轴文本时，我更正了您的错误。

ggplot(dat, aes(x = x, y = y)) +
geom_point() +
coord_flip() +
theme_minimal() +
theme(axis.text.y = element_text(vjust = -0.7,
                                 margin = margin(l = 20, r = -50))) # note the negative value for r

see here for output