我正在使用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图中的轴标签(数字)。我听说我们应该使用保证金工具,但我不确定如何在图表中指定里面的边距。
答案 0 :(得分:5)
使用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)))