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 中执行此操作的非黑客方法，但它似乎没有在绘图区域内移动轴文本。

# 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()如果您确实想要的话，确实可以将文本移动到绘图区域。为了使其工作，您还需要使用右侧参数而不仅仅是左侧参数。

我也尝试使用顶部和底部参数，但似乎确实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

请参阅此处的输出