使用R語(yǔ)言合并壓縮PDF

市面上的PDF合并和壓縮挺貴的,雖然有很多免費(fèi)額度琉历,但是文件一旦大到定程度坠七,動(dòng)不動(dòng)就要開(kāi)會(huì)員,其實(shí)要是懂點(diǎn)R語(yǔ)言或者其他語(yǔ)言旗笔,其實(shí)是完全不需要花費(fèi)任何money的彪置,而且速度可能比線上的壓縮合并更快

R語(yǔ)言處理PDF軟件包精選 - 知乎 (zhihu.com)
這篇文章很好介紹了目前PDF操作有哪些R包::
R中可以對(duì)PDF做很多操作,如關(guān)鍵詞提取蝇恶、頁(yè)數(shù)統(tǒng)計(jì)拳魁、多PDF拆分與合并等。這里精選相關(guān)R包撮弧,以便于后續(xù)取用潘懊。

CRAN - Package pdfsearch:可以找到關(guān)鍵字在PDF文件中的所在行耀盗,以及上下的行的文本。如果要對(duì)PDF文件做文本分析卦尊,是一個(gè)很好的工具。

CRAN - Package staplr:對(duì)PDF文件進(jìn)行合并舌厨、拆分岂却、刪除、旋轉(zhuǎn)裙椭、重命名等操作躏哩。

CRAN - Package qpdf:對(duì)PDF文件進(jìn)行拆分、合并和壓縮揉燃。

CRAN - Package pdftools:可以對(duì)PDF中的數(shù)據(jù)進(jìn)行提取扫尺,同時(shí)可以高效轉(zhuǎn)格式(如JPG等圖片格式)。

這里我主要是用 qpdf
使用也就是幾句代碼而已

getwd()
setwd("文件位置的絕對(duì)路徑")
sort(dir()) #查看這個(gè)文件夾下有什么文件炊汤,主要有以下文件
#[1] "1-1.pdf" "1-2.pdf" "1-3.pdf" "1-4.pdf" "1-5.pdf"
# [6] "1-6.pdf" "1-7.pdf" "1-8.pdf" "1-9.pdf" "10.pdf" 
#[11] "11.pdf"  "12.pdf"  "13.pdf"  "14.pdf"  "15.pdf" 
#[16] "16.pdf"  "17.pdf"  "18.pdf"  "19.pdf"  "20.pdf"

于是就把這個(gè)文件夾下面所有的pdf合并了(普通電腦不知道要多久正驻,300M的文件反正服務(wù)器一秒搞完)

library(qpdf) 
pdf_combine(sort(dir()),
            output = "all_new.pdf")

壓縮PDF

pdf_compress("all_new.pdf",linearize = T) 

其實(shí)它還有拆分PDF等功能

Details

Currently the package provides the following wrappers:

  • pdf_length: show the number of pages in a pdf

  • pdf_split: split a single pdf into separate files, one for each page

  • pdf_subset: create a new pdf with a subset of the input pages

  • pdf_combine: join several pdf files into one

  • pdf_compress: compress or linearize a pdf file

但是要是PDF文件合并之后有大有小怎么辦?這個(gè)R包就幫不上什么忙抢腐,但是研究了一下發(fā)現(xiàn)有些小技巧:
用edge瀏覽器打開(kāi)PDF姑曙,然后選擇打印,選擇Microsoft Print to PDF迈倍,默認(rèn)選擇A4伤靠,然后打印為PDF就OK了,東西就非常整齊啼染,而且大小也會(huì)小很多宴合。

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市迹鹅,隨后出現(xiàn)的幾起案子卦洽,更是在濱河造成了極大的恐慌,老刑警劉巖徒欣,帶你破解...
    沈念sama閱讀 206,126評(píng)論 6 481
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件逐样,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡打肝,警方通過(guò)查閱死者的電腦和手機(jī)脂新,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,254評(píng)論 2 382
  • 文/潘曉璐 我一進(jìn)店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)粗梭,“玉大人争便,你說(shuō)我怎么就攤上這事《弦剑” “怎么了滞乙?”我有些...
    開(kāi)封第一講書人閱讀 152,445評(píng)論 0 341
  • 文/不壞的土叔 我叫張陵奏纪,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我斩启,道長(zhǎng)序调,這世上最難降的妖魔是什么? 我笑而不...
    開(kāi)封第一講書人閱讀 55,185評(píng)論 1 278
  • 正文 為了忘掉前任兔簇,我火速辦了婚禮发绢,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘垄琐。我一直安慰自己边酒,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 64,178評(píng)論 5 371
  • 文/花漫 我一把揭開(kāi)白布狸窘。 她就那樣靜靜地躺著墩朦,像睡著了一般。 火紅的嫁衣襯著肌膚如雪翻擒。 梳的紋絲不亂的頭發(fā)上氓涣,一...
    開(kāi)封第一講書人閱讀 48,970評(píng)論 1 284
  • 那天,我揣著相機(jī)與錄音韭寸,去河邊找鬼春哨。 笑死,一個(gè)胖子當(dāng)著我的面吹牛恩伺,可吹牛的內(nèi)容都是我干的赴背。 我是一名探鬼主播,決...
    沈念sama閱讀 38,276評(píng)論 3 399
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼晶渠,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼凰荚!你這毒婦竟也來(lái)了?” 一聲冷哼從身側(cè)響起褒脯,我...
    開(kāi)封第一講書人閱讀 36,927評(píng)論 0 259
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤便瑟,失蹤者是張志新(化名)和其女友劉穎,沒(méi)想到半個(gè)月后番川,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體到涂,經(jīng)...
    沈念sama閱讀 43,400評(píng)論 1 300
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 35,883評(píng)論 2 323
  • 正文 我和宋清朗相戀三年颁督,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了践啄。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 37,997評(píng)論 1 333
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡沉御,死狀恐怖屿讽,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情吠裆,我是刑警寧澤伐谈,帶...
    沈念sama閱讀 33,646評(píng)論 4 322
  • 正文 年R本政府宣布烂完,位于F島的核電站,受9級(jí)特大地震影響诵棵,放射性物質(zhì)發(fā)生泄漏抠蚣。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,213評(píng)論 3 307
  • 文/蒙蒙 一履澳、第九天 我趴在偏房一處隱蔽的房頂上張望柱徙。 院中可真熱鬧,春花似錦奇昙、人聲如沸。這莊子的主人今日做“春日...
    開(kāi)封第一講書人閱讀 30,204評(píng)論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至滨溉,卻和暖如春什湘,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背晦攒。 一陣腳步聲響...
    開(kāi)封第一講書人閱讀 31,423評(píng)論 1 260
  • 我被黑心中介騙來(lái)泰國(guó)打工闽撤, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人脯颜。 一個(gè)月前我還...
    沈念sama閱讀 45,423評(píng)論 2 352
  • 正文 我出身青樓哟旗,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親栋操。 傳聞我的和親對(duì)象是個(gè)殘疾皇子闸餐,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 42,722評(píng)論 2 345

推薦閱讀更多精彩內(nèi)容