Question

我试图“转动”下面的数据，虽然即使在excel中尝试这个也似乎不起作用。我不确定我是否有正确的逻辑。基本上我需要将数据集a转换为数据集b。

A

DATE MEDAL VALUE1 VALUE2 VALUE3 VALUE4

2013-03-08 SILVER 0 6052 0 0

2013-03-04 BRONZE 0 0 0 0

2013-03-04 BRONZE 0 1437 0 0

2013-03-01 BRONZE 0 0 240 0

2013-03-01 SILVER 0 0 0 0

2013-03-01 BRONZE 0 0 0 0

2013-03-01 BRONZE 0 173 0 0

2013-03-08 SILVER 0 0 0 271

2013-03-04 SILVER 0 2547 0 0

2013-03-04 BRONZE 0 495 0 0

2013-03-04 GOLD 279 0 0 0

2013-03-02 SILVER 0 0 0 0

2013-03-01 BRONZE 0 0 0 0

2013-03-01 SILVER 0 0 0 0

2013-03-01 BRONZE 0 0 0 0

2013-03-01 BRONZE 0 20 0 0

2013-03-03 SILVER 0 0 0 0

乙

奖牌VALUE1 VALUE2 VALUE3 VALUE4

BRONZE 0 2125 240 0

GOLD 279 0 0 0

SILVER 0 8599 0 271

所以基本上我正在尝试按MEDAL进行分组，并根据MEDAL过滤器对每个值列求和（MEDAL是可变的，可能是PURPLE，BLUE等）。下面的尝试是完全错误的，我正在重复使用一些以前的代码，所以它可能是圆形方孔的领域，但我不确定如何解决这个甚至逻辑上它现在让我感到困惑...... :(

非常感谢任何帮助或建议

(defn- create-summary [data]
(->> data


     (group-by :MEDAL)
     vals
     (map 
        (fn [recs]
            (let [a (fn [b] (+ (filter #(= b(:MEDAL%)) recs)recs))]
                {:MEDAL (:MEDAL (first recs))
                 :VALUE1sum (a :MEDAL)
                 :VALUE2sum (a :MEDAL)
                 :VALUE3sum (a :MEDAL)
                 :VALUE4sum (a :MEDAL)

                 })))

        ))

Answer 1

我认为合并将是整洁解决方案的关键。

鉴于您的数据位于向量中，如下所示：

(def medal-values
 [["2013-03-08" "SILVER" 0   6052 0   0]
  ["2013-03-04" "BRONZE" 0   0    0   0]
  ["2013-03-04" "BRONZE" 0   0    0   0]
  ["2013-03-04" "BRONZE" 0   0    0   0]
  ["2013-03-04" "BRONZE" 0   1437 0   0]
  ["2013-03-01" "BRONZE" 0   0    240 0]
  ["2013-03-01" "SILVER" 0   0    0   0]
  ["2013-03-01" "BRONZE" 0   0    0   0]
  ["2013-03-01" "SILVER" 0   0    0   0]
  ["2013-03-01" "BRONZE" 0   0    0   0]
  ["2013-03-01" "BRONZE" 0   173  0   0]
  ["2013-03-08" "SILVER" 0   0    0   271]
  ["2013-03-04" "SILVER" 0   2547 0   0]
  ["2013-03-04" "BRONZE" 0   495  0   0]
  ["2013-03-04" "GOLD"   279 0    0   0]
  ["2013-03-02" "SILVER" 0   0    0   0]
  ["2013-03-01" "BRONZE" 0   0    0   0]
  ["2013-03-01" "SILVER" 0   0    0   0]
  ["2013-03-01" "BRONZE" 0   0    0   0]
  ["2013-03-01" "BRONZE" 0   20   0   0]
  ["2013-03-03" "SILVER" 0   0    0   0]])

您可以按照以下方式实现所需的转换：

(defn count-medals
      [medal-counts]
      (merge-with #(map + %1 %2)
                (reduce (fn [agg [_ k & counts]] (merge-with
                                                 #(map + %1 %2)
                                                 agg {k counts})) {} medal-counts)))

结果是：

(count-medals medal-values)

=> {"GOLD" (279 0 0 0), "BRONZE" (0 2125 240 0), "SILVER" (0 8599 0 271)}

必然会有一种更好的方式将它崩溃一点，但希望这会让你走上正轨。

Answer 2

(def data [{:medal "silver" :v1 1 :v2 2 :v3 3}
           {:medal "gold" :v1 1 :v2 2 :v3 3}
           {:medal "silver" :v1 1 :v2 2 :v3 3}
           {:medal "bronze" :v1 1 :v2 2 :v3 3}
           {:medal "bronze" :v1 1 :v2 2 :v3 3}
           {:medal "gold" :v1 1 :v2 2 :v3 3}])

(->> data
     (group-by :medal)
     (map (fn [[k v]] [k (apply merge-with + (map #(dissoc % :medal) v))]))
     (into {}))

==> {silver {:v1 2, :v2 4, :v3 6}, gold {:v1 2, :v2 4, :v3 6}, bronze {:v1 2, :v2 4, :v3 6}}

Answer 3

将数据转换为以下结构：

(def data [{:BRONZE [0 495 0 0]}
       {:GOLD [0 0 55 0]}
       {:BRONZE [0 134 0 0]}
       {:SILVER [0 348 0 0]}
       {:SILVER [764 0 0 0]}])

和

(apply (partial merge-with #(map + %1 %2)) data)

filter / sum值，不确定如何实现clojure

3 个答案: