使用R计算零退货天数的百分比

# 导入所需库
library(dplyr)
library(tidyverse)

# 获取销售数据
sales_data <- read.csv("sales_data.csv")

# 数据预处理
sales_data$Return_Date <- as.Date(sales_data$Return_Date, format = "%Y-%m-%d")
sales_data$Sales_Date <- as.Date(sales_data$Sales_Date, format = "%Y-%m-%d")

# 计算退货天数
sales_data$Return_Days <- sales_data$Return_Date - sales_data$Sales_Date

# 筛选退货天数大于零的记录
filtered_data <- filter(sales_data, Return_Days > 0)

# 计算退货天数大于零的记录占总销售记录的百分比
percentage <- (nrow(filtered_data) / nrow(sales_data)) * 100

# 打印结果
cat("退货天数大于零的百分比为:", percentage, "%")