家晚上好呀,我是利兄~
PPT圈有一句話,就是PPT要想做的騷,漸變色嘛少不了。
要想做好PPT,就必須要學(xué)會(huì)使用漸變色。
我們來看幾個(gè)案例哈,都是漸變色的使用案例。
騷不騷氣,那么這個(gè)漸變色到底該如何使用呢?
我們?cè)谧鲆环軵PT的時(shí)候,首先就是確定風(fēng)格和配色。
我們的主色通常比較好確定,基本上是logo色或者VI色。
如果logo是單色系的,我們還需要調(diào)配出一個(gè)漸變色,作為備用。
舉個(gè)非常簡(jiǎn)單的例子
比如領(lǐng)英公司的PPT介紹,通常用的是領(lǐng)英的藍(lán)色。
我們確定主色之后,還可以在主色的基礎(chǔ)上,延伸出漸變色。
直接用主色做出來的蒙版是這樣的,還不錯(cuò)吧。
我們用漸變蒙版做一個(gè)呢,效果可能會(huì)更加潮。
下面這兩個(gè)案例都是用漸變蒙版做得PPT。
內(nèi)頁也是一樣的,我們通常是用色塊,可以得到這樣一頁P(yáng)PT。
如果用漸變色,視覺效果會(huì)更加豐富。
那么這個(gè)漸變色是如何來設(shè)置的,我教大家一種非常好用的方法。
一定要記好了,尤其是還不太會(huì)配色的朋友。
漸變色的調(diào)節(jié)只要是通過漸變填充來實(shí)現(xiàn)的。
主要是通過漸變類型,漸變方向,漸變光圈,還有透明度這四個(gè)參數(shù)來控制。
其中最重要的是漸變的光圈設(shè)置。
很多人不會(huì)使用漸變,不是軟件操作不會(huì),而是漸變色的顏色選取不會(huì)。
我們?cè)谠O(shè)置漸變光圈的時(shí)候,如何通過一種顏色,延伸出它的漸變色呢?
非常簡(jiǎn)單。
1、首先,我們將漸變光圈的兩端都設(shè)置為主色,顏色相同。
漸變光圈是下圖這樣的。
PPT展示的下圖這樣的。
2、我們選中其中一個(gè)漸變光圈,然后打開顏色工具,將里面的顏色模式由RGB調(diào)整為HSL。
3、我們?cè)贖SL模式里面,我們接下來就可以選擇與主色相搭配的顏色。
第一種,是我們調(diào)整它的亮度,那么我們就可以得到同色系漸變。
下圖這一頁P(yáng)PT,用的就是這種配色方法,同色系配色。
第二種,我們?cè)贖SL模式里面,我們調(diào)整它的色調(diào),飽和度和亮度不變,我們可以得到相近色的漸變或者鄰近色。
我們來看一下,這一頁P(yáng)PT,我們就是用的這個(gè)配色方法。
操作起來是不是非常簡(jiǎn)單,這是色塊的漸變。
字體的漸變,還有所不同,同樣以主色為主的一個(gè)漸變色,在淺色背景下和深色背景下,他的感覺是不一樣的。
比如這樣一頁P(yáng)PT,白色文字,感覺有點(diǎn)慘白。
我們可以用B站的粉色。
調(diào)整之后得到這樣一頁P(yáng)PT,是不是顯得有點(diǎn)暗,因?yàn)锽站LOGO主色,看起來是有點(diǎn)暗的。
如果是淺色背景,那么這個(gè)亮度就剛剛好了。
所以,我們調(diào)整漸變色也是一樣的,如果是深色背景,我們的亮度就要調(diào)高一點(diǎn)。
比如這個(gè)案例,我們就是先調(diào)節(jié)亮度,再通過相近色配色的方法得到的。
對(duì)了,最后的最后,我再給大家推薦一個(gè)超牛逼的漸變色網(wǎng)站。
Gradient
網(wǎng)址:https://cssgradient.io/gradient-backgrounds/
里面包含了設(shè)計(jì)圈最常用的漸變樣式,大家可以看看,學(xué)習(xí)學(xué)習(xí)。
以上就是今天的主要內(nèi)容,希望大家喜歡。
是不是還不錯(cuò),趕快用起來吧。
制作不易,喜歡的話幫忙“點(diǎn)贊”“分享”一下唄。
查看下面圖片,獲取福利
<script src="https://lf6-cdn-tos.bytescm.com/obj/cdn-static-resource/tt_player/tt.player.js?v=20160723"></script>
自從踏上工作后,時(shí)間過的很快,轉(zhuǎn)眼間到了二月份,昨天下班前收集的一套歐美的PPT模板,今天推薦給大家,希望能夠在日常工作中幫到你。
文件包總共包含了10種不同的配色PPTX文件,深色+淺色底各5個(gè),尺寸比例為16:9。
每套PPT包含了60頁幻燈片模板,并且很容易編輯,不需要軟件輔助,內(nèi)部圖形設(shè)計(jì)也非常漂亮,采用多種色彩搭配設(shè)計(jì)。
世界地圖是必不可少的,同樣也包含了中國地圖,矢量格式容易編輯。
作為一款高逼格PPT模板,分析圖表是必不可少的,條形/折線/柱形圖也是包含在內(nèi)的,通過編輯excel數(shù)據(jù)自動(dòng)變換。
使用了大量的圖標(biāo)進(jìn)行點(diǎn)綴,圖標(biāo)可以在PPT中自由修改大小和顏色,矢量格式,不需要安裝圖標(biāo)字體。
遺憾的是效果預(yù)覽中的人物及其他圖片均不包含在內(nèi),沒有圖片的地方使用了帶有“place your image here”字樣的圖片為代替,替換起來非常方便,只需右擊-填充-圖片-選擇自己的圖片即可。
到這里基本介紹完了,本套PPT模板下載地址:
https://www.gfxaa.com/6521.html
歡迎關(guān)注頂尖PPT
分享來自全球最頂尖,最時(shí)尚的keynote、Powerpoint模板
能轉(zhuǎn)換:R圖和統(tǒng)計(jì)表轉(zhuǎn)成發(fā)表級(jí)的Word、PPT、Excel、HTML、Latex、矢量圖等
R包export可以輕松的將R繪制的圖和統(tǒng)計(jì)表輸出到 Microsoft Office (Word、PowerPoint和Excel)、HTML和Latex中,其質(zhì)量可以直接用于發(fā)表。
export包可以在Windows、Ubuntu和Mac上跨平臺(tái)運(yùn)行。不過有些Mac發(fā)行版默認(rèn)情況下沒有安裝cairo設(shè)備,需要自行安裝。如果Mac用戶已安裝XQuartz,這個(gè)問題就解決了,它可以從https://www.xquartz.org/免費(fèi)獲得。
install.packages("export")
install.packages("officer")
install.packages("rvg")
install.packages("openxlsx")
install.packages("ggplot2")
install.packages("flextable")
install.packages("xtable")
install.packages("rgl")
install.packages("stargazer")
install.packages("tikzDevice")
install.packages("xml2")
install.packages("broom")
install.packages("devtools")
devtools::install_github("tomwenseleers/export")
該包主要包括以下幾種轉(zhuǎn)換
使用幫助信息如下:
graph2bitmap(x=NULL, file="Rplot", fun=NULL, type=c("PNG","JPG", "TIF"),
aspectr=NULL, width=NULL, height=NULL, dpi=300,scaling=100,
font=ifelse(Sys.info()["sysname"]=="Windows", "Arial",
"Helvetica")[[1]], bg="white", cairo=TRUE,
tiffcompression=c("lzw", "rle", "jpeg", "zip", "lzw+p", "zip+p"),
jpegquality=99, ...)
安裝完 export包后,先調(diào)用該包
library(export)
library(ggplot2)
library(datasets)
x=qplot(Sepal.Length, Petal.Length, data=iris,
color=Species, size=Petal.Width, alpha=I(0.7))
qplot()的意思是快速作圖,利用它可以很方便的創(chuàng)建各種復(fù)雜的圖形,其他系統(tǒng)需要好幾行代碼才能解決的問題,用qplot只需要一行就能完成。
使用半透明的顏色可以有效減少圖形元素重疊的現(xiàn)象,要?jiǎng)?chuàng)建半透明的顏色,可以使用alpha圖形屬性,其值從0(完全透明)到1(完全不透明)。更多ggplot2繪圖見ggplot2高效實(shí)用指南 (可視化腳本、工具、套路、配色) (往期教程更有很多生物信息相關(guān)的例子)。
鳶尾花(iris)是數(shù)據(jù)挖掘常用到的一個(gè)數(shù)據(jù)集,包含150個(gè)鳶尾花的信息,每50個(gè)取自三個(gè)鳶尾花種之一(setosa,versicolour或virginica)。每個(gè)花的特征用下面的5種屬性描述萼片長(zhǎng)度(Sepal.Length)、萼片寬度(Sepal.Width)、花瓣長(zhǎng)度(Petal.Length)、花瓣寬度(Petal.Width)、類(Species)。
在console里展示數(shù)據(jù)圖 (長(zhǎng)寬比自己調(diào)節(jié)):
# 需運(yùn)行上面的ggplot2繪圖
# Create a file name
# 程序會(huì)自動(dòng)加后綴
filen <- "output_filename" # or
# filen <- paste("YOUR_DIR/ggplot")
# There are 3 ways to use graph2bitmap():
### 1. Pass the plot as an object
graph2png(x=x, file=filen, dpi=400, height=5, aspectr=4)
graph2tif(x=x, file=filen, dpi=400, height=5, aspectr=4)
graph2jpg(x=x, file=filen, dpi=400, height=5, aspectr=4)
### 2. Get the plot from current screen device
# 注意這個(gè)x,是運(yùn)行命令,展示圖像
x
graph2png(file=filen, dpi=400, height=5, aspectr=4)
graph2tif(file=filen, dpi=400, height=5, aspectr=4)
graph2jpg(file=filen, dpi=400, height=5, aspectr=4)
### 3. Pass the plot as a functio
plot.fun <- function(){
print(qplot(Sepal.Length, Petal.Length, data=iris,
color=Species, size=Petal.Width, alpha=0.7))
}
graph2png(file=filen, fun=plot.fun, dpi=400, height=5, aspectr=4)
graph2tif(file=filen, fun=plot.fun, dpi=400, height=5, aspectr=4)
graph2jpg(file=filen, fun=plot.fun, dpi=400, height=5, aspectr=4)
轉(zhuǎn)換后的圖形:
大部分圖的細(xì)節(jié)修改都是用代碼完成的,不需要后續(xù)的修飾;但如果某一些修改比較特異,不具有程序的通用性特征,或?qū)崿F(xiàn)起來比較困難,就可以考慮后期修改。比如用AI文章用圖的修改和排版。熟悉PPT的,也可以用PPT,這時(shí)R的圖導(dǎo)出PPT,就要用到graph2office系列函數(shù)了。
graph2ppt: 將當(dāng)前R圖保存到Microsoft Office PowerPoint/LibreOffice Impress演示文稿中。
graph2doc:將當(dāng)前的R圖保存到Microsoft Office Word/LibreOffice Writer文檔中。
函數(shù)參數(shù)展示和解釋
graph2office(x=NULL, file="Rplot", fun=NULL, type=c("PPT", "DOC"),
append=FALSE, aspectr=NULL, width=NULL, height=NULL,scaling=100,
paper="auto", orient=ifelse(type[1]=="PPT","landscape", "auto"),
margins=c(top=0.5, right=0.5, bottom=0.5, left=0.5),
center=TRUE, offx=1, offy=1, upscale=FALSE, vector.graphic=TRUE, ...)
# 需運(yùn)行上面的ggplot2繪圖
# Create a file name
filen <- "output_filename" # or
# filen <- paste("YOUR_DIR/ggplot")
# There are 3 ways to use graph2office():
### 1. Pass the plot as an object
# 導(dǎo)出圖形對(duì)象
graph2ppt(x=x, file=filen)
graph2doc(x=x, file=filen, aspectr=0.5)
### 2. Get the plot from current screen device
# 導(dǎo)出當(dāng)前預(yù)覽窗口呈現(xiàn)的圖
x
graph2ppt(file=filen, width=9, aspectr=2, append=TRUE)
graph2doc(file=filen, aspectr=1.7, append=TRUE)
### 3. Pass the plot as a function
# 導(dǎo)出自定義函數(shù)輸出的一系列圖
graph2ppt(fun=plot.fun, file=filen, aspectr=0.5, append=TRUE)
graph2doc(fun=plot.fun, file=filen, aspectr=0.5, append=TRUE)
導(dǎo)出到office(ppt和word)中的圖形,是可編輯的:
其它導(dǎo)出到ppt的例子(設(shè)置長(zhǎng)寬比)
graph2ppt(file="ggplot2_plot.pptx", aspectr=1.7)
增加第二張同樣的圖,9英寸寬和A4長(zhǎng)寬比的幻燈片 (append=T,追加)
graph2ppt(file="ggplot2_plot.pptx", width=9, aspectr=sqrt(2), append=TRUE)
添加相同圖形的第三張幻燈片,寬度和高度固定
graph2ppt(file="ggplot2_plot.pptx", width=6, height=5, append=TRUE)
禁用矢量化圖像導(dǎo)出
graph2ppt(x=x, file=filen, vector.graphic=FALSE, width=9, aspectr=sqrt(2), append=TRUE)
用圖填滿幻燈片
graph2ppt(x=x, file=filen, margins=0, upscale=TRUE, append=TRUE)
函數(shù)參數(shù)解釋
graph2vector(x=NULL, file="Rplot", fun=NULL, type="SVG",aspectr=NULL,
width=NULL, height=NULL, scaling=100,
font=ifelse(Sys.info()["sysname"]=="Windows",
"Arial","Helvetica")[[1]], bg="white", colormodel="rgb",
cairo=TRUE,fallback_resolution=600, ...)
#需運(yùn)行上面的ggplot2繪圖
# Create a file name
filen <- "output_filename" # or
# filen <- paste("YOUR_DIR/ggplot")
# There are 3 ways to use graph2vector():
### 1. Pass the plot as an object
# 導(dǎo)出圖形對(duì)象
graph2svg(x=x, file=filen, aspectr=2, font="Times New Roman",
height=5, bg="white")
graph2pdf(x=x, file=filen, aspectr=2, font="Arial",
height=5, bg="transparent")
graph2eps(x=x, file=filen, aspectr=2, font="Arial",
height=5, bg="transparent")
# 導(dǎo)出當(dāng)前預(yù)覽窗口呈現(xiàn)的圖
### 2. Get the plot from current screen device
x
graph2svg(file=filen, aspectr=2, font="Arial",
height=5, bg="transparent")
graph2pdf(file=filen, aspectr=2, font="Times New Roman",
height=5, bg="white")
graph2eps(file=filen, aspectr=2, font="Times New Roman",
height=5, bg="white")
# 導(dǎo)出自定義函數(shù)輸出的一系列圖
### 3. Pass the plot as a function
graph2svg(file=filen, fun=plot.fun, aspectr=2, font="Arial",
height=5, bg="transparent")
graph2pdf(file=filen, fun=plot.fun, aspectr=2, font="Arial",
height=5, bg="transparent")
graph2eps(file=filen, fun=plot.fun, aspectr=2, font="Arial",
height=5, bg="transparent")
rgl2png: 將當(dāng)前的rgl 3D圖形保存為PNG格式。
rgl2bitmap(file="Rplot", type=c("PNG"))
# Create a file name
filen <- tempfile("rgl") # or
# filen <- paste("YOUR_DIR/rgl")
# Generate a 3D plot using 'rgl'
x=y=seq(-10, 10, length=20)
z=outer(x, y, function(x, y) x^2 + y^2)
rgl::persp3d(x, y, z, col='lightblue')
# Save the plot as a png
rgl2png(file=filen)
# Note that omitting 'file' will save in current directory
生成的3D圖形:
將生成的3D圖形保存為PNG格式:
table2spreadsheet(x=NULL, file="Rtable", type=c("XLS", "CSV",
"CSV2"), append=FALSE, sheetName="new sheet", digits=2,
digitspvals=2, trim.pval=TRUE, add.rownames=FALSE, ...)
# Create a file name
filen <- "table_aov" # or
# filen <- paste("YOUR_DIR/table_aov")
# Generate ANOVA output
fit=aov(yield ~ block + N * P + K, data=npk) # 'npk' dataset from base 'datasets'
x=summary(fit)
# Save ANOVA table as a CSV
### Option 1: pass output as object
# 輸出對(duì)象
table2csv(x=x,file=filen, digits=1, digitspvals=3, add.rownames=TRUE)
# 屏幕輸出導(dǎo)出到文件
### Option 2: get output from console
summary(fit)
table2csv(file=filen, digits=2, digitspvals=4, add.rownames=TRUE)
# Save ANOVA table as an Excel
# Without formatting of the worksheet
x
table2excel(file=filen, sheetName="aov_noformatting", digits=1, digitspvals=3, add.rownames=TRUE)
# 更多參數(shù)
# With formatting of the worksheet
table2excel(x=x,file=filen, sheetName="aov_formated", append=TRUE, add.rownames=TRUE, fontName="Arial", fontSize=14, fontColour=rgb(0.15,0.3,0.75), border=c("top", "bottom"), fgFill=rgb(0.9,0.9,0.9), halign="center", valign="center", textDecoration="italic")
原始數(shù)據(jù)的表格:
轉(zhuǎn)換格式之后的,在console中的數(shù)據(jù):
文件(csv和excel)中表格數(shù)據(jù):
table2ppt: 導(dǎo)出統(tǒng)計(jì)輸出到Microsoft Office PowerPoint/ LibreOffice Impress演示文稿中的表
table2doc: 將統(tǒng)計(jì)輸出導(dǎo)出到Microsoft Office Word/ LibreOffice Writer文檔中的表
table2office(x=NULL, file="Rtable", type=c("PPT", "DOC"),
append=FALSE, digits=2, digitspvals=2, trim.pval=TRUE,
width=NULL, height=NULL, offx=1, offy=1,
font=ifelse(Sys.info()["sysname"]=="Windows", "Arial",
"Helvetica")[[1]], pointsize=12, add.rownames=FALSE)
# Create a file name
filen <- "table_aov"
# filen <- paste("YOUR_DIR/table_aov")
# Generate ANOVA output
fit=aov(yield ~ block + N * P + K, data=npk) # 'npk' dataset from base 'datasets'
# Save ANOVA table as a PPT
### Option 1: pass output as object
x=summary(fit)
table2ppt(x=x,file=filen, digits=1, digitspvals=3, add.rownames=TRUE)
### Option 2: get output from console
summary(fit)
table2ppt(x=x,file=filen, width=5, font="Times New Roman", pointsize=14, digits=4, digitspvals=1, append=TRUE, add.rownames=TRUE) # append table to previous slide
# Save ANOVA table as a DOC file
table2doc(x=x,file=filen, digits=1, digitspvals=3, add.rownames=TRUE)
summary(fit)
table2doc(file=filen, width=3.5, font="Times New Roman", pointsize=14, digits=4, digitspvals=1, append=TRUE, add.rownames=TRUE) # append table at end of document
將表格數(shù)據(jù)導(dǎo)出到ppt和word中:
table2html: 導(dǎo)出統(tǒng)計(jì)輸出到HTML表。
table2tex(x=NULL, file="Rtable", type="TEX", digits=2,
digitspvals=2, trim.pval=TRUE, summary=FALSE, standAlone=TRUE,
add.rownames=FALSE, ...)
summary:是否匯總數(shù)據(jù)文件。
standAlone:導(dǎo)出的Latex代碼應(yīng)該是獨(dú)立可編譯的,還是應(yīng)該粘貼到另一個(gè)文檔中。
add.rownames:是否應(yīng)該將行名添加到表中(在第一列之前插入一列)。
# Create a file name
filen <- tempfile(pattern="table_aov") # or
# filen <- paste("YOUR_DIR/table_aov")
# Generate ANOVA output
fit=aov(yield ~ block + N * P + K, data=npk) # 'npk' dataset from base 'datasets'
x=summary(fit)
# Export to Latex in standAlone format
table2tex(x=x,file=filen,add.rownames=TRUE)
# Export to Latex to paste in tex document
summary(fit) # get output from the console
table2tex(file=filen, standAlone=FALSE,add.rownames=TRUE)
# Export to HTML
table2html(x=x,file=filen) # or
summary(fit) # get output from the console
table2html(file=filen,add.rownames=TRUE)
導(dǎo)出到html或tex中的表格數(shù)據(jù):
*請(qǐng)認(rèn)真填寫需求信息,我們會(huì)在24小時(shí)內(nèi)與您取得聯(lián)系。