01
表格之间的处理
上一篇文章推出【R语言】基础知识 | 为了偷懒,我不择手段!,想了想,人还是踏实一点比较好,别老想着走捷径,不然有一天会摔的很惨,咱还?️ 把基础打扎实~
data1文件夹中有4个表格,表格中存在合并单元格,这种情况该如何合并表格呢?
4个表格特点左右滑动查看更多
library(purrr)
library(tidyverse)
library(readxl)
library(writexl)
files = list.files("~/Desktop/微信公众号运营/数据/data1/", pattern = "xlsx", full.names = TRUE,recursive = TRUE)
lxl=map_dfr(files,read_xlsx)
View(lxl)
#查看lxl数据框内容
那空白区域如何填充上一条记录相同的内容呢?
lxl=lxl%>%fill(区域)
write_xlsx(lxl,"福州银行信息.xlsx")
#查看运行结果
02
如何将"福州银行信息.xlsx"中长数据变成宽数据呢?
lxl=lxl %>%
pivot_wider(names_from = 区域, values_from = 奖励金额, values_fill = 0)
names_from: 指定列名来自哪个变量列。
values_from: 指定列“值”来自哪个变量列。
values_fill = 0表示若变宽后单元格值缺失,设置用何值填充。
write_xlsx(lxl,"长数据变成宽数据.xlsx")
#运行结果:
03
如何将"长数据变成宽数据.xlsx"中宽数据变成长数据呢?
思路:
仓山、福清、高新、鼓楼、西湖这几个字符应该作为区域存储在一列
lxl=lxl%>%pivot_longer(-银行,names_to="区域",values_to="奖励金额",values_drop_na=TRUE)
#查看运行结果:
如何将去掉奖励金额中“0”所在的行?
将0替换成缺失值NA
lxl$奖励金额[lxl$奖励金额==0]<-NA
#查看结果
如何将NA所在的行删除,合并区域,查看往期文章~