ggplot的轴标签保存在officer中时被剪切

发布于04月01日

见下面的代码. 我的文档中有一个有限的区域，需要削减宽度. zoom 适用于所有元素(图表、标题、文本等). 但是当我添加一些自定义标签时，它们会被ggsavage自动剪切. 默认情况下，zoom 参数设置为1.

my_doc <- officer::read_docx()

# Dummy data
data <- data.frame(
  day = as.Date("2017-06-14") - 0:364,
  value = runif(365) + seq(-140, 224)^2 / 10000)

p <- ggplot(data, aes(x=day, y=value)) +
  geom_line() + 
  xlab("") + 
  scale_x_date(
    date_labels = "%b %Y") + 
  scale_y_continuous(
    position = "right") + 
  theme(axis.text.x=element_text(angle=30, hjust=1,vjust= 1,
                                 color = 'black'))
p

my_doc <- body_add_gg(my_doc, value = p, width = 2.3, height = 2.8, res = 1200)

my_doc %>% print(target = "doc.docx")

作为结果

我试着调整利润和填充.没有成功.

推荐答案

我认为设置plot.margin将工作:

library(ggplot2)
library(officer)

p <- ggplot(data, aes(x=day, y=value)) +
  geom_line() + 
  xlab("") + 
  scale_x_date(
    date_labels = "%b %Y") + 
  scale_y_continuous(
    position = "right") +
  theme(axis.text.x=element_text(angle=30, hjust=1,vjust= 1,
                                 color = 'black'),
        plot.margin = unit(c(0, 0, 0, 1), "cm")) ## add this in theme

my_doc <- body_add_gg(my_doc, value = p, width = 2.3, height = 2.8, res = 1200)

my_doc %>% print(target = "doc.docx")

或者，如果您不可能减小地块元素的大小，则使用scale参数使比例变小:

p <- ggplot(data, aes(x=day, y=value)) +
  geom_line() + 
  xlab("") + 
  scale_x_date(
    date_labels = "%b %Y") + 
  scale_y_continuous(
    position = "right") +
  theme(axis.text.x=element_text(angle=30, hjust=1,vjust= 1,
                                 color = 'black'))

my_doc <- body_add_gg(my_doc, value = p, width = 2.3, height = 2.8, res = 1200, scale = 0.5) # scale here

my_doc %>% print(target = "doc.docx")