如何在 R mschart 中调整绘图区域的大小

Question

我正在使用 R 包mschart 将 MS 图表填充到 PPT 中。我已经使用ph_with_chart_at 函数将多个图表添加到一张幻灯片中，以定义 ppt 的位置。但是，地块太小了。

如何调整绘图的大小？

示例：

这里是示例代码，当你打开ppt时，我想放大绘图区域的大小或控制y轴之间的空间40%、50%、60%...

library(officer)
library(mschart)
library(dplyr)

data <- data.frame(Name=c("a","a","a","a","b","b","b","b"),
                   wave_id=c("2017Q1","2017Q2","2017Q3","2017Q4","2017Q1","2017Q2","2017Q3","2017Q4"),
pct=c(0.68,0.71,0.70,0.72,0.57,0.57,0.57,0.58))

data1 <- data%>%
  ms_linechart(x="wave_id",y="pct",group="Name")%>%
  chart_labels(title=NULL,xlab="",ylab="")%>%
  chart_ax_y(limit_min = 0.4,limit=0.8,
             num_fmt='0%%',major_tick_mark="none",minor_tick_mark="none")

data1_theme<- mschart_theme(
  legend_text = fp_text(font.size=8),
  axis_text = fp_text(font.size=8),
  legend_position = "r",
  grid_major_line=fp_border(width=))

pptsdata1 <- set_theme(data1,data1_theme)


doc <- read_pptx()

doc <-doc%>% 
  add_slide(layout = "Title and Content", master = "Office Theme")%>%
  ph_with_chart_at(chart=pptsdata1,left=1,top=2,height=1.55,width=8)

print(doc, target = "my_plot.pptx")

如果查看输出的图形，您可以看到该图只占用了一小部分绘图区域，并且在图周围留下了很多空白：

Answer 1

更改绘图大小

您可以在ph_with_chart_at 函数中使用width 和height 参数分别指定输出宽度和高度，而left 和top 参数控制幻灯片中的位置。例如ph_with_chart_at(chart=pptsdata1, left=2, top=1, height=3, width=8)

编辑绘图边距的大小（即绘图周围的空白）

当您试图隐藏轴的标题时，就会出现问题。由于似乎没有办法完全抑制它们，我们：

1. 用一个空格替换标签，即""
2. 将轴标题字号改为axis_title = fp_text(font.size=1)

更新您的示例：

library(officer)
library(mschart)
library(dplyr)

data <- data.frame(Name=c("a","a","a","a","b","b","b","b"),
                   wave_id=c("2017Q1","2017Q2","2017Q3","2017Q4","2017Q1","2017Q2","2017Q3","2017Q4"),
pct=c(0.68,0.71,0.70,0.72,0.57,0.57,0.57,0.58))

data1 <- data%>%
  ms_linechart(x="wave_id",y="pct",group="Name")%>%
  chart_labels(title=NULL,xlab=" ",ylab=" ")%>%
  chart_ax_y(limit_min = 0.4,limit=0.8,
             num_fmt='0%%',major_tick_mark="none",minor_tick_mark="none")

data1_theme<- mschart_theme(
  axis_title = fp_text(font.size=1),
  legend_position = "r",
  grid_major_line=fp_border(width=))

pptsdata1 <- set_theme(data1, data1_theme)

doc <- read_pptx()

doc <-doc%>% 
  add_slide(layout = "Title and Content", master = "Office Theme")%>%
  ph_with_chart_at(chart=pptsdata1, left=1,  top=1,  height=3,  width=8)

print(doc, target = "my_plot.pptx")