您的訂閱是我製作影片的動力
訂閱點這裡~
若內容有誤，還請留言指正，謝謝您的指教
#影片程式碼
#檔案因版權問題無法上傳，請見諒
library(dplyr)
library(tidyr)
library(data.table)
data <- fread(file="D:\\會員消費資料.csv",
header=TRUE,stringsAsFactors = FALSE)
data$最近幾點結帳[is.na(data$最近幾點結帳)] <- "沒消費"
data$最近消費金額[is.na(data$最近消費金額)] <- 0
iThome鐵人賽
看影片追技術