抛弃AI？R出图直接对接PPT修改矢量图
<h1>背景</h1><p>之前投稿的图，都是R画出pdf然后去AI编辑。实际很多用的是ppt编辑，遂寻找R导出ppt的格式，然后使用ppt修改。</p>
<h1>解决方案</h1>
<p>使用export包</p>
<h2>让R导出ppt的格式</h2>
<pre><code>install.packages("export",destdir = 'C:/Users/Administrator/software/R/RStudiowork/R-4.5.1/downloaded_packages')
library(export)
</code></pre>
<p>举例</p>
<pre><code>library(carData) # 包含Prestige数据集
library(car) # 用于线性模型和Effect函数（它依赖于effects包）
library(effects) # 直接包含Effect函数
fit=lm(prestige~type+income*education,data=Prestige)
plot(Effect(c("income","education"),fit),multiline=T,ci.style="bands")
</code></pre>
<p><img src="https://tcapi.voiceclouds.cn:8444/uploads/2025/12/08/miwlcemfr3o3lf1h9wf.png" alt="" /></p>
<p>把这个图ppt的格式：</p>
<pre><code>graph2ppt(file="effect plot.pptx", width=7, height=5)
</code></pre>
<p>ppt打开，<strong>取消组合</strong>，那么所有的元素都是分离的，而且是矢量格式，你可以修改字体，改大小，改颜色，等等。</p>
<p><img src="https://tcapi.voiceclouds.cn:8444/uploads/2025/12/08/miwlfnphumrnan4m3b.png" alt="" /></p>
<p>改完后，导出PDF，在导出的PDF中也是矢量的。不单是例子用的lattice，base plot和ggplot2都是支持的。</p>
<h2>可以导出各种文件</h2>
<p>这个包提供了各种函数，你可以通过 <code>graph2doc</code>导出到 <code>Word</code>，还支持通过 <code>graph2office</code>导出到 <code>LibreOffice</code>。</p>
<ul>
<li>graph2bitmap</li>
<li>graph2doc</li>
<li>graph2eps</li>
<li>graph2jpg</li>
<li>graph2office</li>
<li>graph2pdf</li>
<li>graph2png</li>
<li>graph2ppt</li>
<li>graph2svg</li>
<li>graph2tif</li>
<li>graph2vector</li>
</ul>
<p>而且更为良心的是，连表格也是支持的。</p>
<ul>
<li>table2csv</li>
<li>table2csv2</li>
<li>table2doc</li>
<li>table2excel</li>
<li>table2html</li>
<li>table2office</li>
<li>table2ppt</li>
<li>table2spreadsheet</li>
<li>table2tex</li>
</ul>
页:
[1]