如何在ggplot图中绘制y和x轴的刻度和数字？

Question

我正在使用ggplot绘制图表。这是ggplot包的例子：

df <- data.frame(
  gp = factor(rep(letters[1:3], each = 10)),
  y = rnorm(30)
)
ds <- plyr::ddply(df, "gp", plyr::summarise, mean = mean(y), sd = sd(y))

ggplot(df, aes(gp, y)) +
  geom_point() +
  geom_point(data = ds, aes(y = mean), colour = 'red', size = 3) +
  theme(    axis.text.y = element_text(hjust = 3),
            axis.text.x = element_text(vjust = 5),
            axis.ticks.length = unit(-0.25,
                                     "cm"), # length of the axis ticks

  )

这是输出：

如您所见，刻度线在内部，但y轴的数字非常对齐，而X轴上的数字与刻度线重叠。

所以最后我想要在图表中的刻度和ggplot图中的轴标签（数字）。我听说我们应该使用保证金工具，但我不确定如何在图表中指定里面的边距。

编辑：您可以看到使用保证金功能时，数字未正确对齐...

Answer 1

使用margin函数在element_text内指定margin可能正是您要找的？

ggplot(df, aes(gp, y)) +
  geom_point() +
  geom_point(data = ds, aes(y = mean), colour = 'red', size = 3) +
  theme(    axis.text.y = element_text(margin = margin(0,-.5,0,.5, unit = 'cm')),
            axis.text.x = element_text(vjust = 5, margin = margin(-0.5,0,0.5,0, unit = 'cm')),
            axis.ticks.length = unit(-0.25,
                                     "cm") , # length of the axis ticks

  ) + ylim(c(min(df$y)-.5,max(df$y)))