一区二区三区日韩精品-日韩经典一区二区三区-五月激情综合丁香婷婷-欧美精品中文字幕专区

分享

ggplot2中facet_grid的分面字體、顏色和背景的修改

 geoallan 2022-01-24

背景介紹

ggplot中有時(shí)候需要做一些分面圖,那么對(duì)于這些分面的字體、顏色背景是怎么修改的呢?今天我們來看一下!

軟件介紹

[軟件名稱]:R(4.1.2)

[軟件名稱]:RStudio(1.4.1106)

教程介紹

1.加載需要的包,我一般喜歡直接加載tidyverse

library(tidyverse)

2.首先我們使用R語言內(nèi)置的數(shù)據(jù)集繪制一個(gè)圖

ggplot(iris,aes(Sepal.Length,Sepal.Width))+  geom_point(aes(size=Petal.Length,color=Petal.Width))+  facet_grid(.~Species)
文章圖片1

3.然后使用windowsFonts提取系統(tǒng)字體Times New Roman,使用scale_color_gradient修改顏色范圍

windowsFonts(A=windowsFont('Times New Roman'))ggplot(iris,aes(Sepal.Length,Sepal.Width))+ geom_point(aes(size=Petal.Length,color=Petal.Width))+ facet_grid(.~Species)+ scale_color_gradient(low = 'blue',high = 'red')+ theme(text=element_text('A',size=15))
文章圖片2

4.使用strip.background可以對(duì)分面的背景進(jìn)行修改,使用strip.text可以對(duì)分面的字體的顏色,大小進(jìn)行修改

windowsFonts(A=windowsFont('Times New Roman'))ggplot(iris,aes(Sepal.Length,Sepal.Width))+  geom_point(aes(size=Petal.Length,color=Petal.Width))+  facet_grid(.~Species)+  scale_color_gradient(low = 'blue',high = 'red')+  theme(text=element_text('A',size=15))+  theme(strip.background = element_rect(fill=c('#FF6A6A')))+  theme(strip.text = element_text(size = 15,colour = 'blue'))
文章圖片3

5.如果要修改分面的名稱呢?怎么弄:使用levels函數(shù)提取出里面的元素,然后賦值給其新的名稱即可,如下所示

levels(iris$Species)[levels(iris$Species)=='setosa'] <- '分面1'levels(iris$Species)[levels(iris$Species)=='versicolor'] <- '分面2'levels(iris$Species)[levels(iris$Species)=='virginica'] <- '分面3'

6.代碼重新運(yùn)行,分面名稱即可改變

windowsFonts(A=windowsFont('Times New Roman'))ggplot(iris,aes(Sepal.Length,Sepal.Width))+  geom_point(aes(size=Petal.Length,color=Petal.Width))+  facet_grid(.~Species)+  scale_color_gradient(low = 'blue',high = 'red')+  theme(text=element_text('A',size=15))+  theme(strip.background = element_rect(fill=c('#FF6A6A')))+  theme(strip.text = element_text(size = 15,colour = 'blue'))
文章圖片4

7.好了,今天就學(xué)習(xí)一下這個(gè)技巧!

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多

    亚洲高清欧美中文字幕| 欧美午夜伦理在线观看| 国产大屁股喷水在线观看视频| 国产一区欧美午夜福利| 午夜福利黄片免费观看| 日韩不卡一区二区三区色图| 亚洲中文字幕人妻av| 99福利一区二区视频| 日本特黄特色大片免费观看| 欧美在线观看视频免费不卡| 国产女高清在线看免费观看| 99热九九在线中文字幕| 免费久久一级欧美特大黄孕妇 | 妻子的新妈妈中文字幕| 高清欧美大片免费在线观看| 午夜精品福利视频观看| 日本高清一区免费不卡| 午夜福利网午夜福利网| 暴力性生活在线免费视频| 国产午夜福利片在线观看| 高清亚洲精品中文字幕乱码| 大香蕉网国产在线观看av| 亚洲男人的天堂就去爱| 91蜜臀精品一区二区三区| 色涩一区二区三区四区| 国产一区二区三区免费福利| 亚洲欧美精品伊人久久| 免费高清欧美一区二区视频| 激情中文字幕在线观看| 国产熟女一区二区不卡| 亚洲中文字幕人妻系列| 欧美精品女同一区二区| 91亚洲国产成人久久| 国内午夜精品视频在线观看| 99久久国产综合精品二区| 欧美一级日韩中文字幕| 国产亚洲神马午夜福利| 亚洲一区二区三区四区性色av| 黄色国产自拍在线观看| 国产在线一区二区免费| 这里只有九九热精品视频|