ggplot2图形简单绘制

已于 2022-11-19 01:57:30 修改
阅读量960 收藏 5
点赞数 1
分类专栏： R语言入门 文章标签： ggplot R
于 2022-11-19 00:56:32 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/m0_45210226/article/details/127931623
版权

文章目录

一、所用函数

1. sort、rank、order用法

#在R中，和排序相关的函数主要有三个：sort()，rank()，order()。 
#sort(x)是对向量x进行排序，返回值排序后的数值向量。
#rank()是求秩的函数，它的返回值是这个向量中对应元素的“排名”
#order()的返回值是对应“排名”的元素所在向量中的位置。
x<-c(97,93,85,74,32,100,99,67)
sort(x)
[1]  32  67  74  85  93  97  99 100
order(x)
[1] 5 8 4 3 2 1 7 6
rank(x)
[1] 6 5 4 3 1 8 7 2

2. arrange 用法

arrange()函数用于在逻辑表达式下对表行进行重新排序。是plyr包中的，对数据框按列排序，仍返回数据框 。参数如下，
- x : 要重新排序的数据集
- expr ：带有列名的逻辑表达式
- 示例

# Create a data frame 
d <- data.frame( name = c("Abhi", "Bhavesh", "Chaman", "Dimri"),  
                 age = c(7, 5, 9, 16) )     
# Arranging name according to the age 
d.name <- arrange(d, age) 
print(d.name)

在这里插入图片描述

3. reorder用法

reorder用在绘图中，比如ggplot中绘条形图，可使x轴按y轴数值大小排序；
比如横轴为age,纵轴为money，可写为：aes(x=reorder(age,money),y=money)，即按money对age排序

4. cumsum 用法

cumsum函数用于计算向量的累积和

# Creating Vectors
x1 <- c(2, 4, 5, 7)
x2 <- c(2.4, 5.6, 3.4)
  
# Calling cumsum() Function
cumsum(x1)
cumsum(x2)

在这里插入图片描述

5. interaction用法

interaction函数产生不同变量之间的交互，假设我有3个不同的因素要考虑: a，b和c，并且我想创建一个新的变量，以显示这三个因素对于特定观察的特定组合。sep参数更改字符’.’
在这里插入图片描述

二、散点图

数据集选择R中自带的mrcars 数据集

  1. 使用str() 函数观察属性类型
    在这里插入图片描述
    全部变量为连续型

  2. 颜色变量为连续性

    • mtcars为数据集
    • x轴选择wt变量，y轴选择mpg变量
    • 设置cyl变量为颜色变量
    ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point(aes(color=cyl))

    在这里插入图片描述

  3. 颜色变量为离散变量

    • 使用factor() 函数将连续值转换为因子型
    ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point(aes(color=factor(cyl)))

    在这里插入图片描述

三、折线图、直方图、箱线图

  • 折线图：ggplot(pressure, aes(temperature, pressure)) + geom_line() + geom_point()

  • 直方图 : 特殊的直方图，连续变量的分布，横坐标分段来统计分段内个数

    # bindwidth为横坐标分段的组距
ggplot(mtcars, aes(mpg)) + geom_histogram(binwidth = 3)

  • 箱线图

    ggplot(data = ToothGrowth, aes(supp, len)) + geom_boxplot()
# 分组箱线图用interaction函数
ggplot(data = ToothGrowth, aes(interaction(supp,dose), len)) + geom_boxplot()

四、柱状图

1. 单一变量 （统计单一变量的属性值分布）

ggplot(mtcars, aes(factor(cyl))) + geom_bar()

  • 当绘制柱状图时，只传一个变量参数时，即为统计当前变量中各个属性值的个数
  • geom_bar() 函数中stat参数默认为count
  • 对cyl变量经过factor操作 : 若x轴为连续值则会不连贯，例如下图
    在这里插入图片描述
    • 绘图结果如下

在这里插入图片描述

2. 单一变量+fill （列联表）

设置填充颜色fill为Cultivar变量
ggplot(cabbage_exp, aes(Date, fill = Cultivar)) + geom_bar(position = 'dodge')
其中，geom_bar 中position 参数如下，

  • identity : 不堆积，组内前后堆叠
  • stack ： 堆积，默认值
  • dodge : 分散
  • fill : 按比例堆积
    在这里插入图片描述

3. 两个变量

ggplot(BOD, aes(factor(Time), demand)) + geom_bar(stat = 'identity')，相比统计单个变量，

  • aes函数中为两个变量
  • geom_bar函数中stat设置为 identity
  • 绘制结果如下
    在这里插入图片描述

4. 两个变量+fill

# 筛选Change>40的条目
upc <- subset(uspopchange, rank(Change)>40)
ggplot(upc, aes(Abb, Change, fill = Region)) + geom_bar(stat = 'identity')

在这里插入图片描述

5. 修改描边和填充颜色

ggplot(pg_mean, aes(group, weight)) + geom_bar(stat = 'identity', fill = 'lightblue', color = 'black')

  • 描边设置 color 参数
  • 填充颜色为 fill 参数

6. 修改颜色模式

# 通过scale_fill_brewer() 修改填充颜色模式
# 通过scale_colour_brewer() 修改描边颜色模式
ggplot(cabbage_exp, aes(Date,Weight,fill = Cultivar)) + 
                    geom_bar(position = 'dodge', stat = 'identity', color = 'black') + 
                    scale_fill_brewer(palette = 'Pastel1')
# 查看调色板 
RColorBrewer::display.brewer.all()

7. 柱状图按照高低排序

  • 使用reorder函数进行排序 ： aes(x=reorder(Abb, Change),y=Change, fill = Region))
  • scale_fill_manual 函数自行设置颜色
  • xlab函数设置x轴标签
# 使用reorder函数，将其按高度进行排序
ggplot(upc, aes(x=reorder(Abb, Change),y=Change, fill = Region)) + geom_bar(stat = 'identity') + 
                                            scale_fill_manual(values = c('#669933','#FFCC66')) + 
                                            xlab('State')

在这里插入图片描述

7. 调节柱宽

7.1 普通柱状图

#---------------------------------------#
# 调节柱宽是调节柱子本身的宽度
# width 参数默认为0.9，最大为1，最小为0
# 柱宽变大，柱间距就会变小
#---------------------------------------#
ggplot(pg_mean, aes(x=group, y=weight)) + geom_bar(stat = 'identity', width = 0.2)

在这里插入图片描述

7.2 分组柱状图

#---------------------------------------#
# 分组条形图调节柱宽
# 默认同一分组之间的柱是没有间距的
# 		在geom_bar 参数中设置: position=position_dodge()
# width表示柱宽，默认0.9，最大为1，最小为0
# position_dodge表示组内间距，默认为0.9，越大表示间距越大
#---------------------------------------#
ggplot(cabbage_exp, aes(Date, Weight, fill=Cultivar)) + 
                    geom_bar(stat = 'identity', width = 0.9, position = position_dodge(0.5))

在这里插入图片描述

8. 添加文本标签

8.1 普通柱状图

#-------------------------------------------------#
# 柱状图加文字标签
# 使用geom_text
#     1. 参数aes():设置标签变量
#     2. 参数vjust: 0表示标签底部与柱状图顶部对齐
#                   正数表示在柱状图顶部下方
#                   负数表示在柱状图顶部上方
#        参数colour:表示文本颜色 
#------------------------------------------------#
# interaction() 函数的使用
# > interaction(cabbage_exp$Date,cabbage_exp$Cultivar)
# [1] d16.c39 d20.c39 d21.c39 d16.c52 d20.c52 d21.c52
# Levels: d16.c52 d20.c52 d21.c52 d16.c39 d20.c39 d21.c39
ggplot(cabbage_exp, aes(interaction(Date, Cultivar),Weight)) + 
                          geom_bar(stat = 'identity') + 
                          geom_text(aes(label=Weight), vjust=1.5, colour = 'white')
# 防止标签超出图例，可以调整y轴的范围
# 方法1：ylim()函数
ggplot(cabbage_exp, aes(interaction(Date, Cultivar),Weight)) + 
                          geom_bar(stat = 'identity') + 
                          geom_text(aes(label = Weight), vjust = -0.2) + 
                          ylim(0, max(cabbage_exp$Weight) * 1.05)
# 方法2 : 不使用vjust参数，而是以weight为基准，调节y值，图形高度自动适配
#     其中y值为文本标签的高度
ggplot(cabbage_exp, aes(interaction(Date, Cultivar),Weight)) + 
                          geom_bar(stat = 'identity') + 
                          geom_text(aes(y = Weight - 0.1, label = Weight))

8.2 分组柱状图

# 分组柱状图加标签，需要设定 position_dodge():调节同一分组的间距,以调整字体的合适位置
# 在geom_text中设置position = position_dodge(.9) 为了调节柱宽和组间距
# width表示柱宽，默认0.9，最大为1，最小为0
# position_dodge表示组内间距，默认为0.9，越大表示间距越大
ggplot(cabbage_exp, aes(Date,Weight, fill = Cultivar)) + 
                         geom_bar(stat = 'identity', position = 'dodge',width = 0.9) + 
                         geom_text(aes(label=Weight), 
                                   vjust = 1.5, 
                                   color= 'white',
                                   position = position_dodge(.9),
                                   size=7)

8.3 堆积柱状图

#堆积柱状图添加label
library(plyr)
# arrange () R语言中的函数用于在列名作为传递给函数的表达式的帮助下对表行进行重新排序
ce <- arrange(cabbage_exp, Date, Cultivar)
# cumsum() 函数用于计算累加和
ce <- ddply(ce, .(Date), transform, label_y=cumsum(Weight))
ce$Cultivar <- factor(ce$Cultivar, levels = c('c39','c52'))
ggplot(ce, aes(x=Date, y=Weight, fill=Cultivar)) + 
                            geom_bar(stat = 'identity') + 
                            geom_text(aes(y=label_y-0.1, label=Weight), colour='white')

8.4 添加单位

# 添加单位
# format()函数的格式化为特定样式: nsmall参数为小数点右边位数，不够补零
ggplot(ce, aes(Date, Weight, fill=Cultivar)) + 
                            geom_bar(stat = 'identity',color='black') + 
                            geom_text(aes(y=label_y - 0.1,
                                          label=paste(format(Weight, nsmall=2),'kg')
                                          ), size=4 )+
                            scale_fill_brewer(palette = 'Pastel1')
_qz
关注
  • 1
    点赞
  • 踩
  • 5
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
R语言基础与ggplot2绘图
03-01
该讲义详细讲述了R语言ggplot的绘图方式，能够帮助我们根据自己的实际情况绘出理想图表
R语言ggplot2教程 十张图带你入门ggplot2
weixin_55798278的博客
01-01 8683
ggplot2入门教程，散点图、折线图、直方图柱状图
R绘图基础知识代码ggplot绘图.Rmd
11-09
R绘图基础知识代码ggplot绘图
基于ggplot2包的绘图与美化
最新发布
12-24
基于ggplot2包的绘图与美化
ggplot2 作图实例
09-06
ggplot2 作图实例，个人实践结果，适合入门者使用；
R语言ggplot2绘图
qq_54423921的博客
06-03 7546
R语言使用ggplot2绘图
R语言：ggplot2包详解及各类精美图形绘制
这也是计划的一部分的博客
10-18 9229
ggplot2是一个R包，用于生成统计或数据图形。与大多数其他图形包不同，ggplot2有一个基于图形语法的底层语法，允许通过组合独立的组件来组成图形。可以根据特定的问题创建新的图形，而不是局限于预定义的图形集，这就是ggplot2的强大之处。Ggplot2实际上很容易学习:有一组简单的核心原则，很少有特殊情况。
R语言ggplot2 （一）：ggplot2包安装和初始作图
热门推荐
sinat_41624848的博客
10-01 7万+
ggplot2是一款强大的图形可视化R包，其作图方式易于理解，且生成的图形精美，定制化程度也很高，应该是R里面最流行的可视化工具。本文关注于ggplot2包的安装、ggplot2基本作图语法等。 一 ggplot2的安装 > .libPaths("~/R/lib") 如果不安装到默认路径，可以在此设置安装路径 > install.packages("ggplot2") #以上代...
R语言使用ggplot2包绘图
小琳子要开心呀
05-09 3298
参考链接：https://blog.csdn.net/weshengxin/article/details/126006349。
R语言学习—— ggplot2函数
m0_52069102的博客
07-24 1万+
ggplot2的学习使用
ggplot绘图包whl
08-18
本资源位ggplot的绘图包，是已编译好的whl文件，可以直接pip安装和使用，有需要的可以下载一下。
ggplot2.pdf
09-03
使用图形语法实现高级数据可视化_ggplot2； ggplot2 是R中新颖的数据可视化包，功能强大、灵活便捷，其灵感源自 Leland Wilkison的《图形的语法》一书
ggplot2各种图形绘制及讲义
05-05
R语言ggplot2R语言ggplot2R语言ggplot2R语言ggplot2R语言ggplot2
ggplot2：数据分析与图形艺术
03-16
《ggplot2:数据分析与图形艺术》高质量图形的绘制，自动化添加图例。·叠加来自不同数据源的多个图层（点、线、地图、瓦片图、箱线图等），自适应通用标度。利用R强大的建模功能添加平滑曲线，如loess、线性模型、...
SAP Web IDE本地环境搭建
少年休闲海
02-22 3398
SAP Web IDE本地环境搭建 1、JDK的安装及配置环境变量 可通过官网自行下载JDK： Java Downloads | Oracle 直接傻瓜式安装至默认路径“C:\Program Files\Java\jdk-17.0.2”，然后配置环境变量“JAVA_HOME”、“CLASSPATH”和“PATH”。 JAVA_HOME：C:\Program Files\Java\jdk-17.0.2 CLASSPATH：.;%JAVA_HOME%\lib;%JAVA_HOME%\lib\
Android开发（1） | Fragment 的应用——新闻应用
Jormungand_V的博客
02-21 3588
文章目录 news_item.xml： <TextView xmlns:android="http://schemas.android.com/apk/res/android" android:id="@+id/news_title" android:layout_width="match_parent" android:layout_height="wrap_content" android:lines="1" android:ellipsize="
Unity Shader - 搬砖日志 - URP PBR (抄作业篇，持续更新~)
Jave.Lin 的学习笔记
02-25 5085
PBR 主要渲染方程 Lo(p,wo)=∫Ω(kdcπ+ksDGF4(wo⋅n)(wi⋅n))Li(p,wi)(wi⋅n)dwi L_o(p,w_o)=\int_{\Omega}(k_d \frac{c}{\pi} + k_s \frac {D G F}{4(w_o \cdot n)(w_i \cdot n)}) L_i(p,w_i)(w_i \cdot n) dw_i Lo​(p,wo​)=∫Ω​(kd​πc​+ks​4(wo​⋅n)(wi​⋅n)DGF​)Li​(p,wi​)(wi​⋅n)dwi​ .
常用的40引脚的RGB屏介绍
似水流年
02-22 9472
文章目录软排线位置介绍概述裸屏电阻屏电容屏标准电容触摸屏CTP接口 软排线位置介绍 电阻屏信号线四根预留在软排上面，所以采用电阻屏方案的需要在主板上有对应的触摸芯片（例如：NS2009） 概述 裸屏 没有触摸屏（即外屏） 电阻屏 电容屏 标准电容触摸屏CTP接口 引脚 标识 描述 1 GND 电源地 2 SDA I2C协议数据线 3 SCL I2C协议时钟线 4 VDD 电源正极 5 INT 中断线 6 RESET 复位线 ...
Springboot通过redisTemplate实现发布订阅
Coder
02-25 4155
Springboot通过redisTemplate实现发布/订阅
ggplot2图形填充橙色的代码
06-10
您可以使用以下代码将ggplot2图形填充为橙色： ```R library(ggplot2) # 创建示例数据 data <- data.frame( x = c(1, 2, 3, 4, 5), y = c(4, 2, 3, 5, 1) ) # 绘制散点图并填充橙色 ggplot(data, aes(x, y)) + geom_point(color = "black", size = 3, fill = "orange") ``` 在上述代码中，`fill = "orange"` 参数用于指定填充颜色为橙色。您可以根据需要调整其他参数（例如，`size` 控制点的大小，`color` 控制点的颜色）。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值