R支付宝/微信消费账单数据分析

支付宝/微信消费账单数据分析

• 导出账单信息(半年以上Csv)
• 信息清洗与预处理
• 隐私信息请注意脱敏

library(tidyverse)
library(lubridate)

data = read.csv("alipay_record_20221113_143639.csv")
data$Paytime = ymd_hm(data$Paytime)
data$month = month(data$Paytime )

要求1:半年以上分月份消费总额折线图

data %>% 
    group_by(month) %>% 
    summarise(account  =  sum(Account,na.rm = T)) %>% 
    ggplot(aes(x = month ,y = account  )) + geom_point() + geom_line() + ggtitle("月份消费总额折线图")

要求2:针对单次交易金额重新编码,新建一列并输出小额消费(<10)、一般消费(10~1000)、高消费(>1000)

data  = data %>% 
    mutate(交易金额 = case_when(
        Account < 10 ~ "小额消费",
        Account < 1000 ~ "一般消费",
        TRUE~ "高消费"
    ))

要求3:利用交易分类频次数统计&交易金额重新编码生成列联表