R语言基于表格文件的数据绘制具有多个系列的柱状图与直方图

本文介绍基于R 语言中的readxl包与ggplot2包,读取Excel 表格文件数据,并绘制具有多个系列柱状图条形图的方法。

首先,我们配置一下所需用到的R 语言readxl包与ggplot2包;其中,readxl包是用来读取Excel 表格文件数据的,而ggplot2包则是用以绘制柱状图的。包的下载方法也非常简单,以readxl包为例,我们输入如下的代码即可。

r 复制代码
install.packages("readxl")

输入代码后,按下回车键,运行代码;如下图所示。

readxl包下载完成后,通过同样的方法配置ggplot2包。

r 复制代码
install.packages("ggplot2")

此外,在用代码进行数据分析、可视化时,有时需要对数据加以长数据宽数据 的转换(具体什么意思在后文有介绍),这里需要用到另一个R 语言包reshape2,我们也就在此将其一并配置好。

r 复制代码
install.packages("reshape2")

接下来,我们即可开始代码的撰写。首先,我们将需要用到的包导入。

r 复制代码
library(readxl)
library(ggplot2)
library(reshape2)

随后,我们进行Excel 表格文件数据的读取;这里我们就通过readxl包中的read_excel()函数来实现表格数据的读取。其中,函数的第一个参数表示待读取的Excel 表格文件路径与名称,第二个参数则表示这些数据具体在哪一个Sheet 中;由于我这里需要的数据存放在Excel 表格文件的第2Sheet 中,因此就选择sheet = 2即可。

r 复制代码
xlsx_file <- read_excel(r"(E:\02_Project\01_Chlorophyll\ClimateZone\Split\Result\Result.xlsx)", sheet = 2)

其中,原本在表格文件中我的数据如下所示。

通过上述代码,我们即可将数据读入R 语言中;其具体格式如下图所示。可以看到,读入后的数据是一个tibble类别的变量,tibbleData Frame 格式数据的一种改进,我们在这里可以就将其视作Data Frame格式数据加以后续处理。

此外,如果大家是使用RStudio软件进行代码的撰写,还可以双击这一变量,更直观地查看读入后的数据具体是什么样子的,如下图所示。

接下来,我们需要对数据加以长、宽转换。首先,简单来说,宽数据 就是如上图 所示的数据,而长数据 则是如下图 所示的数据;其中,我们在获取、记录原始数据时,往往获取的是宽数据 ,因为这一类数据具有更加直观、更易记录的特点;而在用数据分析软件或代码对数据加以深入处理或可视化操作时,往往系统需要的是长数据 。因此,我们这里需要对宽数据长数据 加以转换;这一转换可以通过melt()函数来实现,具体的代码如下所示。

r 复制代码
xlsx_data <- melt(xlsx_file, id.var = "...1")

其中,melt()函数的第一个参数表示需要进行转换的变量,第二个参数则是ID变量 ,一般情况下就是表述数据序号 的第一列数据;我这里由于原本Excel 的数据中就没有表示序号 的那一列数据,因此就选择了原有数据的第一列作为ID变量。执行上述代码后,我们得到的长数据如下图所示。

此外,melt()函数在运行时,还可以指定数据转换后的列名。如以下代码就表示,我们希望将转换后表示变量的列的名称设置为Factor,表示观测值的列的名称设置为q

r 复制代码
xlsx_data <- melt(xlsx_file, id.var = "...1", variable.name = "Factor", value.name = "q")

执行上述代码,得到的长数据如下图所示。

当然,这里需要提一句,关于宽数据长数据 的转换,涉及到很多内容;如果大家有需要,可以查看melt()函数的官方帮助文档。

完成数据格式转换后,我们即可开始绘图。这里我们就直接通过ggplot2包的ggplot()函数,对柱状图加以绘制即可;具体代码如下所示。

r 复制代码
ggplot(data = xlsx_data, mapping = aes(x = Factor, y = q, fill = ...1)) + geom_bar(stat = "identity", position = "dodge")

其中,ggplot()函数的第一个参数data表示需要参与绘图的数据,第二个参数mapping表示我们需要用哪一列数据作为X 轴,哪一列作为Y 轴;同时,其内部的fill参数表示我们需要将柱状图分为多个系列 (如果大家的柱状图只有1个系列,那么就不需要fill这个参数了),其后指定的变量就表示我们需要基于这一变量对数据的系列 加以区分。接下来,加号后面的geom_bar参数,是我们绘制多序列柱状图所需要设定的,其中position参数设置为"dodge"就表示我们希望将不同的系列平行放置(如果不设置position参数,那么不同系列的柱子就会垂直堆积,有点类似堆积柱状图)。

执行上述代码,得到如下所示的结果。

此外,如果大家希望柱状图是横向伸展的,就在最后增添+ coord_flip()代码即可。

r 复制代码
ggplot(data = xlsx_data, mapping = aes(x = Factor, y = q, fill = ...1)) + geom_bar(stat = "identity", position = "dodge") + coord_flip()

执行上述代码,得到如下所示的结果。

在这里,我们仅仅是对ggplot()函数做了一个初步的介绍;关于其更深入的了解,大家直接查看其官方帮助文档即可。

至此,大功告成。

相关推荐
让学习成为一种生活方式6 小时前
R包下载太慢安装中止的解决策略-R语言003
java·数据库·r语言
有梦想的Frank博士1 天前
R语言*号标识显著性差异判断组间差异是否具有统计意义
开发语言·信息可视化·r语言
逆风远航4 天前
R语言贝叶斯:INLA下的贝叶斯回归、生存分析、随机游走、广义可加模型、极端数据的贝叶斯分析
开发语言·r语言·贝叶斯·生态学·结构方程·环境科学·混合效应
Faxxtty4 天前
【R语言】解决package ‘qvalue’ is not available (for R version 3.6.1)
开发语言·r语言
疯狂学习GIS5 天前
华为校招三轮面经:通用软件开发工程师
c++·学术工作效率
Cachel wood5 天前
Vue前端框架:Vue前端项目文件目录
java·前端·vue.js·python·算法·r语言·前端框架
邢博士谈科教6 天前
OmicsTools软件和R语言分析环境安装配置答疑汇总最新版
r语言
纪伊路上盛名在6 天前
vscode中提升效率的插件扩展——待更新
linux·服务器·ide·vscode·python·r语言·编辑器
拓端研究室TRL6 天前
银行信贷风控专题:Python、R 语言机器学习数据挖掘应用实例合集:xgboost、决策树、随机森林、贝叶斯等...
python·决策树·机器学习·数据挖掘·r语言
在在进步6 天前
R数据结构&向量基础
数据结构·r语言