R语言包eoffice抽提图片中的颜色小例子

应用场景

我看某篇论文里的图片配色非常漂亮，我想应用到我自己的论文中。这个时候就可以借助eoffice包中的infigure()函数

比如我看到 Complex quality traits: now time to model 这篇论文里的figure1配色比较美观

第一步：删除pdf文件中多余的页面

使用Adobe Acrobat Pro软件打开pdf文档，选择工具——组织页面，就可以选择想要删除的页面

第二步：删除多余的文字

选择编辑——编辑文本和图像，就可以删除不想要的文字。

第三步：eoffice读入图片

library(eoffice)
help(package="eoffice")
pp<-infigure(filename = "newpdf(1).pdf")
pp

> pp
 [1] "#ffffff" "#efedeb" "#38b677" "#f4be00" "#000000"
 [6] "#92add8" "#e5551e" "#e30075" "#fbe26d" "#db98bb"

如果不想要白色还可以添加一个参数

pp<-infigure(filename = "newpdf(1).pdf",exclude_col="white")

用柱形图来展示一下颜色

library(ggplot2)
df<-data.frame(x=letters[1:10],y=1:10,color=pp)
ggplot(df,aes(x=x,y=y))+
  geom_col(aes(fill=color))+
  scale_fill_manual(values = pp)+
  theme_bw()

image.png

这个结果里颜色值是#000000这种形式，我查了一下，好像是叫hex color code。但是如果我想在ppt中用这个颜色的时候需要有RGB值。那么如何把这个hex color code转化成RGB呢？R好像是有对对应的函数，但是我暂时还没有找到。我找到了一个在线网址
https://www.rapidtables.com/convert/color/hex-to-rgb.html
借助这个在线工具就可以将hex color code转化为RGB的形式了。

欢迎大家关注我的公众号
小明的数据分析笔记本

公众号二维码.jpg

中国加油！武汉加油！