基础知识 | 踏实做事，不要偷懒，之前偷的懒，以后都是要补回来的

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所在的行删除，合并区域，查看往期文章～