R语言——数据可视化

r囧r小猫 2023-09-30 12:00 55阅读 0赞

**目录**

常用的绘图函数：

低级绘图函数，在现有图形上添加元素：

高级绘图函数：

1、绘制条形图barplot()

2、绘制饼图pie()

3、绘制直方图hist()

4、绘制散点图plot()

5、绘制折线图plot()

--------------------

##  ##

## **常用的绘图函数：** ##

**main：**主标题

**xlim、ylim：**坐标轴的范围

**xlab、ylab：**坐标轴的标签

**type：**图形类型：“p”：点，“l”：线，“b”和“o”：点连线，“h”：垂直线，“s”：阶梯式

**bg：**背景色

**cex：**符号和文字的大小

**col：**符号和文字的颜色

**font：**文字字体：1：正常，2：斜体，3：粗体，4：粗斜体

**lty：**连线的线型：1：实线，2：虚线，3：点线，4：点虚线，5：长虚线，6：双虚线

**lwd：**连线的宽度

**pch：**符号的类型：1到25的整数

**mar：**图形的边距：向量c(bottom,left,top,right)

**mfcol：**向量c(nr,,nc),分割绘图窗口为nnr行ncne列，按列次序使用各子窗户

**mfrow：**同上，但是按行次序使用各子窗口

### **低级绘图函数，在现有图形上添加元素：** ###

**point(x,y)：**在（x,y）（x,y）处添加点

**lines(x,y)：**在（x,y）（x,y）处添加线

**text(x,y,labels)：**在（x,y）（x,y）处添加labels指定的标签

**abline(a,y)：**添加斜率bb、截距为aa的直线

**abline(h=y)：**在纵坐标yy处添加水平线

**abline(v=x)：**在横坐标xx处添加垂直直线

**abline(lm.obj)：**添加由lm.obj确定的回归线

**legend(x,y,labels)：**在（x,y）（x,y）处添加legend指定的图例

**title()：**添加标题

**box()：**使用box()函数生成盒型图

## 高级绘图函数： ##

--------------------

### **1、绘制条形图barplot()** ###

barplot(height, names.arg = NULL, beside = FALSE,horiz = FALSE, density = NULL, angle = 45,col = NULL, border = par("fg"),main = NULL, sub = NULL, xlab = NULL, ylab = NULL,xlim = NULL, ylim = NULL,las=NULL ...)

**主要参数的含义如下：**

**height：**向量或矩阵，用来构成条形图中各条的数值。（数据）

**names.arg：**位于条低端的文字标签。（给个类型的标签名）

**beside：**逻辑值，为FALSE时绘制堆叠图，为TRUE时绘制分组图。

**horiz:** 逻辑值，为FALSE时，绘制垂直条形图，为TRUE时绘制水平条形图。

**density：**一个向量值。当指定该值时，条将以斜线填充。即每英寸斜线的密度。

**angle：**以逆时针方向给出的阴影线的角度。默认为45度。

**col:**条的填充色。

**border：**条的边框颜色，如设置为TRUE时，边框颜色将于阴影线的颜色相同。

**main：**用于指定绘图的主标题。

**sub：**用于指定绘图的次标题。

**xlab, ylab ：**用于指定x轴和y轴的标签。

**xlim, ylim：**分别用于指定x轴和y轴的取值范围。

**las：**代表横轴标签都是横着书写，纵轴的标签竖着书写；las=1代表横轴纵轴标签都是横着书写；las=2，代表横轴标签都是竖着书写，纵轴的标签横着书写;las=3，代表横轴纵轴标签都是竖着书写。

> 如下测试的数据来自一个程序包---ggplot2，下面进行安装：
> 
> chooseCRANmirror() \#选择镜像Chain  
> utils:::menuInstallPkgs() \#选择ggplot2

> 例如：
> 
> barplot(mpg$displ \[1:5\],names.arg=c("宝马","奥迪","捷克","五菱宏光","吉普"),beside=F,horiz="F",density=c(10),angle=45,col=rainbow(6),border="green",main="汽车销售量",sub="排行榜",xlab="汽车类型",ylab="营业额/亿",las=1)

![watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBA5ZCb6I6r56yR5ZOm_size_20_color_FFFFFF_t_70_g_se_x_16][]

--------------------

## **2、绘制饼图pie()** ##

函数原型：

pie(x, labels = names(x), edges = 200, radius = 0.8,  
clockwise = FALSE, init.angle = if(clockwise) 90 else 0,  
density = NULL, angle = 45, col = NULL, border = NULL,  
lty = NULL, main = NULL, ...)

**主要参数解析：**

**x：**一个为正式的数组， 如C(10, 30)， 数组中的每个值决定了饼图扇区的大小（数据）

**labels：**一饼图扇区的描述， R中要显示扇区的比例，（各个扇区的标签）

**edges：**翻译起来很苦涩， 感觉这个参数决定了边界的锐度， 默认200（像圆周率的东西）

**radius：**饼图半径，默认0.8

**clockwise：**FALSE,-- 决定切片绘制顺时针或逆时针（即数学积极的方向）

**density：**NULL, -- 填写一个数字，扇区的阴影线密度（斜线填充扇区）

**angle：**45（斜线填充角度）

**col：**NULL,颜色填充

**border：**扇区的边框颜色，如设置为TRUE时，边框颜色将于填充色相同。

**lty：** 饼图边框的线形1：实线，2：虚线，3：点线，4：点虚线，5：长虚线，6：双虚线

**main：**用于指定绘图的主标题。

**sub：**用于指定绘图的次标题。

> 例如：
> 
> pie(x=c(8,5,3,4),labels=c("唐伯虎","祝枝山","文征明","柳枝卿"),edges=500,radius=1
> 
> ,clockwise=TRUE,density=NULL,angle=45,col=rainbow(9),border=FALSE,lty=NULL,main=
> 
> "人气排行榜",sub="人气榜")

![watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBA5ZCb6I6r56yR5ZOm_size_20_color_FFFFFF_t_70_g_se_x_16 1][]

--------------------

## 3、绘制直方图hist() ##

函数原型：

hist(  
mapping = NULL, \# 映射  
data = NULL, \# 数据集  
stat = "bin", \# 直方图类型  
position = "stack", \# 位置  
..., \# 其它geom类函数的参数  
binwidth = NULL, \# 直方图的间距  
bins = NULL, \# 直方个数，和binwidth有类似效果，但设置逻辑不同  
na.rm = FALSE, \# 逻辑参数，真值关闭缺值报错  
orientation = NA, \# 方向  
show.legend = NA, \# 逻辑参数，是否显示该图层的图例，NA为默认  
inherit.aes = TRUE \# 逻辑参数，是否叠加本图层和默认的几何要素  
)

**主要参数解析：**

**hist(mpg$hwy,breaks=7,freq=FALSE)**

**breaks：**分组数

**freq：**表示是否显示样本数值的频次（是）还是频率（否）

**lines(density(mpg$hwy))**

**density()：**返回变量“hwy”的核密度估计

**lines()：**表示在已有的图层上添加曲线

绘制核密度图：

**plot(density(mpg$hwy))**

> **hist(mpg$hwy,breaks=7,freq=FALSE)**
> 
> **lines(density(mpg$hwy))**
> 
> **plot(density(mpg$hwy))**
> 
> **box()**

![watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBA5ZCb6I6r56yR5ZOm_size_20_color_FFFFFF_t_70_g_se_x_16 2][]

![watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBA5ZCb6I6r56yR5ZOm_size_20_color_FFFFFF_t_70_g_se_x_16 3][]

--------------------

## 4、绘制散点图plot() ##

--------------------

## 5、绘制折线图plot() ##

[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBA5ZCb6I6r56yR5ZOm_size_20_color_FFFFFF_t_70_g_se_x_16]: https://img-blog.csdnimg.cn/7d530b6473ae4ac2bef01f44240b1e59.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5ZCb6I6r56yR5ZOm,size_20,color_FFFFFF,t_70,g_se,x_16
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBA5ZCb6I6r56yR5ZOm_size_20_color_FFFFFF_t_70_g_se_x_16 1]: https://img-blog.csdnimg.cn/5e7157c8df164e9e9c4b9c718df20e33.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5ZCb6I6r56yR5ZOm,size_20,color_FFFFFF,t_70,g_se,x_16
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBA5ZCb6I6r56yR5ZOm_size_20_color_FFFFFF_t_70_g_se_x_16 2]: https://img-blog.csdnimg.cn/334bb90c2efb44ba85bc3455573d5043.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5ZCb6I6r56yR5ZOm,size_20,color_FFFFFF,t_70,g_se,x_16
[watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBA5ZCb6I6r56yR5ZOm_size_20_color_FFFFFF_t_70_g_se_x_16 3]: https://img-blog.csdnimg.cn/d6507de98ce84536b191502a474e1553.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5ZCb6I6r56yR5ZOm,size_20,color_FFFFFF,t_70,g_se,x_16