Question

我想在保持整数条（col-k）中的顺序的同时订购堆栈元素（group-by-k）。

$ order函数不允许一次排序多个列。因此，该函数两次，最后一次排序不会保留以前的排序。因此，我可以对全局条形图进行排序，也可以对条形图的堆叠元素进行排序，但不能同时进行两种操作！

我怎样才能做到这一点？我怀疑我们需要sorted-map在$fn内工作，但不知道如何实现这个......

这里写的函数是为了尝试多次排序。

(require
   (incanter '[core :as core]
             '[charts :as charts])

(defn sorted-barchart [data col-k & {:keys [group-by-k 
                                            order-k 
                                            order-sign 
                                            order-group-k 
                                            order-group-sign 
                                            title 
                                            x-label 
                                            y-label 
                                            legend]}]
  (core/with-data
    (let [d (core/to-dataset data)
          d1 (core/$where {group-by-k {:$fn #(not (empty? %))}} d)
          d2 (core/$where {col-k {:$fn #(not (empty? %))}} d1)
          d3 (core/$rollup :count :counts (if group-by-k [col-k group-by-k] [col-k]) d2)
          d4 (core/$order (or order-k col-k) (or order-sign nil) d3)
          d5 (core/$order (or order-group-k group-by-k)
                          (or order-group-sign nil) d4)]
      d5) 
    (let [chart (charts/stacked-bar-chart col-k :counts
                                           :group-by group-by-k 
                                           :vertical false
                                           :x-label (or x-label " ")
                                           :y-label (or y-label " ")
                                           :title (or title " ")
                                           :legend (or legend true)
                                           :series-label "Total")]
      chart)))

编辑：这实际上在按col-k和group-by-k排序时有效。但是当你想首先按计数排序时，当你想要对堆栈元素进行排序时，按计数排序时保留col-k顺序会变得更加棘手。

Answer 1

我们可以仅对主键上的计数（col-k）进行索引，然后按索引和堆叠键（group-by-k）进行排序。

所以，在sorted-barchart函数中，我们可以用以下代码替换d4和d5：

(if
  (and group-by-k order-k (not= order-k col-k))
  (let [d-count (core/$ col-k 
                        (core/$order :c 
                                     :desc 
                                     (core/$rollup :count :c [col-k] d2)))
        d-index (core/dataset [:index col-k] 
                              (map-indexed vector d-count))
        d-join (core/$join [col-k col-k] d-index d3)]
    (->> d-join
         (core/$order (or order-group-k group-by-k)
                      (or order-group-sign :asc))
         (core/$order :index :asc)))
  (let [d-new (if group-by-k 
                (core/$order (or order-group-k group-by-k)
                             (or order-group-sign :asc) d3)
                d3)]
    (core/$order (or order-k col-k) (or order-sign :desc) d-new)))

在Incanter中为多个列排序以获得堆积条形图

1 个答案: