整理数据并绘制PDI和SDI散点图

已于 2022-10-30 21:32:35 修改 · 771 阅读

文章标签：

#r语言

于 2022-10-30 21:30:07 首次发布

本文介绍了如何整理Excel数据集PDI_SDI.xlsx，并使用R语言绘制11个美国机构的PDI和SDI散点图。由于部门数量较多，采取分组绘制散点图的方法，通过tidy data转换和代码实现数据合并与散点图的绘制，最终展示平滑轨迹。

Excel 数据集介绍：PDI_SDI.xlsx中包含美国11个机构资金流量表PDI指数（Stone formula VS Klein-formula）和SDI指数（Stone formula VS Klein-formula）

步骤

一、整理成tidy data
二、绘制散点图
- 1. 合并PDI和SDI表
- 2.绘制散点图
总结

绘制出美国11个机构资金流量表PDI指数和SDI指数的散点图，因为11个机构部门较多，所以不能全部体现在一个散点图上，对11个部门进行分组，每个组的画在一张散点图上。

一、整理成tidy data

将数据整理成tidy data，便于进行可视化

#读取xlsx文件中所需sheet页，共分为4部分，gsub提取关键词
installed.packages("xxxx")  #安装所需包并导入
library(readxl)
library(reshape2)
len=length(excel_sheets("PDI_SDI.xlsx"))
sheets=gsub("formula_", "",excel_sheets("PDI_SDI.xlsx")[-(1:2)])
#将工作表sheet3-6的表整理为表名为相应sheet名的4个tidy data
for (i in 3:len)
{
   
   
		  #build a good name to assign to data
		  temp = read_excel("PDI_SDI.xlsx",i)
		  names(temp)[1]="Ind