代码提交

2025-11-07 15:25:50 +08:00
parent 8daa0a5d5c
commit cf75ee4150
8 changed files with 1123 additions and 141 deletions
--- a/Server/application/cunkebao/controller/RFMController.php
+++ b/Server/application/cunkebao/controller/RFMController.php
@@ -2,10 +2,207 @@

 namespace app\cunkebao\controller;

+use think\Db;
+use app\store\model\TrafficOrderModel;
+use app\common\model\TrafficSource;
+use app\store\model\WechatFriendModel;
+
+/**
+ * RFM 客户价值评分控制器
+ * 基于 RFM 客户价值评分体系技术实施文档实现
+ */
 class RFMController extends BaseController
 {
+    // 默认配置参数
+    const DEFAULT_CYCLE_DAYS = 180;  // 默认统计周期（天）
+    const DEFAULT_WEIGHT_R = 0.4;    // R维度权重
+    const DEFAULT_WEIGHT_F = 0.3;    // F维度权重
+    const DEFAULT_WEIGHT_M = 0.3;    // M维度权重
+    const DEFAULT_ABNORMAL_MONEY_RATIO = 3.0;  // 异常金额阈值倍数
+    const DEFAULT_SCORE_SCALE = 5;   // 默认5分制
+
    /**
-     * 计算 RFM 评分（默认规则）
+     * 从 traffic_order 表计算客户 RFM 评分
+     * 
+     * @param string|null $identifier 流量池用户标识
+     * @param string|null $ownerWechatId 微信ID，为空则统计所有数据
+     * @param array $config 配置参数
+     *   - cycle_days: 统计周期（天），默认180
+     *   - weight_R: R维度权重，默认0.4
+     *   - weight_F: F维度权重，默认0.3
+     *   - weight_M: M维度权重，默认0.3
+     *   - abnormal_money_ratio: 异常金额阈值倍数，默认3.0
+     *   - score_scale: 评分分制（5或100），默认5
+     *   - missing_strategy: 缺失值处理策略（'score_1'或'exclude'），默认'score_1'
+     * @return array
+     */
+    public function calculateRfmFromTrafficOrder($identifier = null, $ownerWechatId = null, $config = [])
+    {
+        try {
+            // 合并配置参数
+            $cycleDays = isset($config['cycle_days']) ? (int)$config['cycle_days'] : self::DEFAULT_CYCLE_DAYS;
+            $weightR = isset($config['weight_R']) ? (float)$config['weight_R'] : self::DEFAULT_WEIGHT_R;
+            $weightF = isset($config['weight_F']) ? (float)$config['weight_F'] : self::DEFAULT_WEIGHT_F;
+            $weightM = isset($config['weight_M']) ? (float)$config['weight_M'] : self::DEFAULT_WEIGHT_M;
+            $abnormalMoneyRatio = isset($config['abnormal_money_ratio']) ? (float)$config['abnormal_money_ratio'] : self::DEFAULT_ABNORMAL_MONEY_RATIO;
+            $scoreScale = isset($config['score_scale']) ? (int)$config['score_scale'] : self::DEFAULT_SCORE_SCALE;
+            $missingStrategy = isset($config['missing_strategy']) ? $config['missing_strategy'] : 'score_1';
+
+            // 权重归一化处理
+            $weightSum = $weightR + $weightF + $weightM;
+            if ($weightSum != 1.0) {
+                $weightR = $weightR / $weightSum;
+                $weightF = $weightF / $weightSum;
+                $weightM = $weightM / $weightSum;
+            }
+
+            // 计算时间范围
+            $endTime = time(); // 统计截止时间（当前时间）
+            $startTime = $endTime - ($cycleDays * 24 * 3600); // 统计起始时间
+
+            // 构建查询条件
+            $where = [
+                ['isDel', '=', 0],
+                ['createTime', '>=', $startTime],
+                ['createTime', '<', $endTime],
+            ];
+
+            // identifier 条件
+            if (!empty($identifier)) {
+                $where[] = ['identifier', '=', $identifier];
+            }
+
+            // ownerWechatId 条件
+            if (!empty($ownerWechatId)) {
+                $where[] = ['ownerWechatId', '=', $ownerWechatId];
+            }
+
+            // 1. 数据过滤和聚合 - 获取每个客户的R、F、M原始值
+            $orderModel = new TrafficOrderModel();
+            $customers = $orderModel
+                ->where($where)
+                ->where(function ($query) {
+                    // 只统计有效订单（actualPay大于0）
+                    $query->where('actualPay', '>', 0);
+                })
+                ->field('identifier, MAX(createTime) as lastOrderTime, COUNT(DISTINCT id) as orderCount, SUM(CAST(actualPay AS DECIMAL(18,2))) as totalAmount')
+                ->group('identifier')
+                ->select();
+
+            if (empty($customers)) {
+                return [
+                    'code' => 200,
+                    'msg' => '暂无数据',
+                    'data' => []
+                ];
+            }
+
+            // 2. 计算每个客户的R值（最近消费天数）
+            $customerData = [];
+            foreach ($customers as $customer) {
+                $recencyDays = floor(($endTime - $customer['lastOrderTime']) / (24 * 3600));
+                $customerData[] = [
+                    'identifier' => $customer['identifier'],
+                    'R' => $recencyDays,
+                    'F' => (int)$customer['orderCount'],
+                    'M' => (float)$customer['totalAmount'],
+                ];
+            }
+
+            // 3. 异常值处理 - 剔除大额异常订单
+            $mValues = array_column($customerData, 'M');
+            if (!empty($mValues)) {
+                sort($mValues);
+                $m99Percentile = $this->percentile($mValues, 0.99);
+                $abnormalThreshold = $m99Percentile * $abnormalMoneyRatio;
+
+                // 标记异常客户（但不删除，仅在计算M维度区间时考虑）
+                foreach ($customerData as &$customer) {
+                    $customer['isAbnormal'] = $customer['M'] > $abnormalThreshold;
+                }
+            }
+
+            // 4. 使用五分位法计算各维度的区间阈值
+            $rThresholds = $this->calculatePercentiles(array_column($customerData, 'R'), true); // R是反向的
+            $fThresholds = $this->calculatePercentiles(array_column($customerData, 'F'), false);
+            // M维度排除异常值计算区间
+            $mValuesForPercentile = array_filter(array_column($customerData, 'M'), function($m) use ($abnormalThreshold) {
+                return isset($abnormalThreshold) ? $m <= $abnormalThreshold : true;
+            });
+            $mThresholds = $this->calculatePercentiles(array_values($mValuesForPercentile), false);
+
+            // 5. 计算每个客户的RFM分项得分
+            $results = [];
+            foreach ($customerData as $customer) {
+                $rScore = $this->scoreByPercentile($customer['R'], $rThresholds, true); // R是反向的
+                $fScore = $this->scoreByPercentile($customer['F'], $fThresholds, false);
+                $mScore = $customer['isAbnormal'] ? 5 : $this->scoreByPercentile($customer['M'], $mThresholds, false); // 异常值给最高分
+
+                // 计算RFM总分（加权求和）
+                $rfmScore = $rScore * $weightR + $fScore * $weightF + $mScore * $weightM;
+
+                // 可选：标准化为1-100分
+                $standardScore = null;
+                if ($scoreScale == 100) {
+                    $rfmMin = $weightR * 1 + $weightF * 1 + $weightM * 1;
+                    $rfmMax = $weightR * 5 + $weightF * 5 + $weightM * 5;
+                    $standardScore = (int)round(($rfmScore - $rfmMin) / ($rfmMax - $rfmMin) * 99 + 1);
+                }
+
+                $results[] = [
+                    'identifier' => $customer['identifier'],
+                    'R_raw' => $customer['R'],
+                    'R_score' => $rScore,
+                    'F_raw' => $customer['F'],
+                    'F_score' => $fScore,
+                    'M_raw' => round($customer['M'], 2),
+                    'M_score' => $mScore,
+                    'RFM_score' => round($rfmScore, 2),
+                    'RFM_standard_score' => $standardScore,
+                    'cycle_start' => date('Y-m-d H:i:s', $startTime),
+                    'cycle_end' => date('Y-m-d H:i:s', $endTime),
+                    'calculate_time' => date('Y-m-d H:i:s'),
+                ];
+            }
+
+            // 按RFM总分降序排序
+            usort($results, function($a, $b) {
+                return $b['RFM_score'] <=> $a['RFM_score'];
+            });
+
+            // 6. 更新 ck_traffic_source 和 s2_wechat_friend 表的RFM值
+            $this->updateRfmToTables($results, $ownerWechatId);
+
+            return [
+                'code' => 200,
+                'msg' => '计算成功',
+                'data' => [
+                    'results' => $results,
+                    'config' => [
+                        'cycle_days' => $cycleDays,
+                        'weight_R' => $weightR,
+                        'weight_F' => $weightF,
+                        'weight_M' => $weightM,
+                        'score_scale' => $scoreScale,
+                    ],
+                    'statistics' => [
+                        'total_customers' => count($results),
+                        'avg_rfm_score' => round(array_sum(array_column($results, 'RFM_score')) / count($results), 2),
+                    ]
+                ]
+            ];
+
+        } catch (\Exception $e) {
+            return [
+                'code' => 500,
+                'msg' => '计算失败：' . $e->getMessage(),
+                'data' => []
+            ];
+        }
+    }
+
+    /**
+     * 计算 RFM 评分（兼容旧方法，使用固定阈值）
     * @param int|null $recencyDays 最近购买天数
     * @param int $frequency 购买次数
     * @param float $monetary 购买金额
@@ -23,7 +220,9 @@ class RFMController extends BaseController
        ];
    }

-    // 默认规则
+    /**
+     * 使用固定阈值计算R得分（保留兼容性）
+     */
    protected static function scoreR_Default(int $days): int
    {
        if ($days <= 30) return 5;
@@ -32,6 +231,10 @@ class RFMController extends BaseController
        if ($days <= 120) return 2;
        return 1;
    }
+
+    /**
+     * 使用固定阈值计算F得分（保留兼容性）
+     */
    protected static function scoreF_Default(int $times): int
    {
        if ($times >= 10) return 5;
@@ -41,6 +244,10 @@ class RFMController extends BaseController
        if ($times >= 1) return 1;
        return 0;
    }
+
+    /**
+     * 使用固定阈值计算M得分（保留兼容性）
+     */
    protected static function scoreM_Default(float $amount): int
    {
        if ($amount >= 2000) return 5;
@@ -50,6 +257,145 @@ class RFMController extends BaseController
        if ($amount > 0) return 1;
        return 0;
    }
+
+    /**
+     * 计算百分位数（五分位法）
+     * @param array $values 数值数组
+     * @param bool $reverse 是否反向（R维度需要反向，值越小得分越高）
+     * @return array 返回[0.2, 0.4, 0.6, 0.8]分位数的阈值数组
+     */
+    private function calculatePercentiles($values, $reverse = false)
+    {
+        if (empty($values)) {
+            return [0, 0, 0, 0];
+        }
+
+        // 去重并排序
+        $uniqueValues = array_unique($values);
+        sort($uniqueValues);
+
+        // 如果所有值相同，强制均分5个区间
+        if (count($uniqueValues) == 1) {
+            $singleValue = $uniqueValues[0];
+            if ($reverse) {
+                return [$singleValue, $singleValue, $singleValue, $singleValue];
+            } else {
+                return [$singleValue, $singleValue, $singleValue, $singleValue];
+            }
+        }
+
+        $percentiles = [0.2, 0.4, 0.6, 0.8];
+        $thresholds = [];
+
+        foreach ($percentiles as $p) {
+            $thresholds[] = $this->percentile($uniqueValues, $p);
+        }
+
+        return $thresholds;
+    }
+
+    /**
+     * 计算百分位数
+     * @param array $sortedArray 已排序的数组
+     * @param float $percentile 百分位数（0-1之间）
+     * @return float
+     */
+    private function percentile($sortedArray, $percentile)
+    {
+        if (empty($sortedArray)) {
+            return 0;
+        }
+
+        $count = count($sortedArray);
+        $index = ($count - 1) * $percentile;
+        $floor = floor($index);
+        $ceil = ceil($index);
+
+        if ($floor == $ceil) {
+            return $sortedArray[(int)$index];
+        }
+
+        $weight = $index - $floor;
+        return $sortedArray[(int)$floor] * (1 - $weight) + $sortedArray[(int)$ceil] * $weight;
+    }
+
+    /**
+     * 根据五分位法阈值计算得分
+     * @param float $value 当前值
+     * @param array $thresholds 阈值数组[T1, T2, T3, T4]
+     * @param bool $reverse 是否反向（R维度反向：值越小得分越高）
+     * @return int 得分1-5
+     */
+    private function scoreByPercentile($value, $thresholds, $reverse = false)
+    {
+        if (empty($thresholds) || count($thresholds) < 4) {
+            return 1;
+        }
+
+        list($t1, $t2, $t3, $t4) = $thresholds;
+
+        if ($reverse) {
+            // R维度：值越小得分越高
+            if ($value <= $t1) return 5;
+            if ($value <= $t2) return 4;
+            if ($value <= $t3) return 3;
+            if ($value <= $t4) return 2;
+            return 1;
+        } else {
+            // F和M维度：值越大得分越高
+            if ($value >= $t4) return 5;
+            if ($value >= $t3) return 4;
+            if ($value >= $t2) return 3;
+            if ($value >= $t1) return 2;
+            return 1;
+        }
+    }
+
+    /**
+     * 更新RFM值到 ck_traffic_source 和 s2_wechat_friend 表
+     * 
+     * @param array $results RFM计算结果数组
+     * @param string|null $ownerWechatId 微信ID，用于过滤更新范围
+     */
+    private function updateRfmToTables($results, $ownerWechatId = null)
+    {
+        try {
+            foreach ($results as $result) {
+                $identifier = $result['identifier'];
+                $rScore = (string)$result['R_score'];
+                $fScore = (string)$result['F_score'];
+                $mScore = (string)$result['M_score'];
+
+                // 更新 ck_traffic_source 表
+                // 根据 identifier 更新所有匹配的记录
+                $trafficSourceUpdate = [
+                    'R' => $rScore,
+                    'F' => $fScore,
+                    'M' => $mScore,
+                    'updateTime' => time()
+                ];
+                TrafficSource::where('identifier', $identifier)->update($trafficSourceUpdate);
+
+                // 更新 s2_wechat_friend 表
+                // wechatId 对应 identifier
+                $wechatFriendUpdate = [
+                    'R' => $rScore,
+                    'F' => $fScore,
+                    'M' => $mScore,
+                    'updateTime' => time()
+                ];
+                $wechatFriendWhere = ['wechatId' => $identifier];
+                if (!empty($ownerWechatId)) {
+                    $wechatFriendWhere['ownerWechatId'] = $ownerWechatId;
+                }
+                WechatFriendModel::where($wechatFriendWhere)->update($wechatFriendUpdate);
+            }
+
+        } catch (\Exception $e) {
+            // 记录错误但不影响主流程
+            \think\Log::error('更新RFM值失败：' . $e->getMessage());
+        }
+    }
 }