       (:group-votes conv))))
 
 
+(defn importance-metric
+  [A P S E]
+  (let [p (/ (+ P 1) (+ S 2))
+        a (/ (+ A 1) (+ S 2))]
+    (* (- 1 p) (+ E 1) a)))
+
+
+(defn cmnt-stats
+  [conv tid extremity]
+  (let [group-votes (:group-votes conv)
+        {:as total-votes :keys [A D S P]}
+        ;; reduce over votes per group, already aggregated
+        (reduce
+          (fn [votes [gid data]]
+            (let [{:as data :keys [A S D]} (get-in data [:votes tid])
+                  data (assoc data :P (+ (- S (+ A D))))]
+              ;; Add in each of the data's kv count pairs
+              (reduce
+                (fn [votes' [k v]]
+                  (update votes' k + v))
+                votes
+                data)))
+          {:A 0 :D 0 :S 0 :P 0}
+          group-votes)
+        importance
+        (importance-metric A P S extremity)
+        priority
+        (get-in conv [:comment-priorities tid])]
+    (log/spy
+      {:total-votes (str total-votes)
+       :priority priority
+       :importance importance
+       :fontSize (* priority 40)})))
+
+
 (defn comments-data
   [conv]
-  (map
-    (fn [tid extremity [x y]]
-      (merge
-        {:label tid
-         :x x
-         :y y
-         :extremity extremity
-         :type "comment"}
-        (cmnt-group-votes conv tid)))
-    (:tids conv)
-    (-> conv :pca :comment-extremity)
-    (-> conv :pca :comment-projection matrix/transpose)))
+  (->> 
+    (map
+      (fn [tid extremity [x y]]
+        (merge
+          {:tid tid
+           :label tid
+           :x x
+           :y y
+           :extremity extremity
+           :type "comment"}
+          (cmnt-group-votes conv tid)
+          (cmnt-stats conv tid extremity)))
+      (:tids conv)
+      (-> conv :pca :comment-extremity)
+      (-> conv :pca :comment-projection matrix/transpose))
+    (remove (comp (:mod-out conv) :tid))))
+
 
 (defn groups-data
   [conv]

            [polismath.math.named-matrix :as nm]
            [polismath.math.corr :as corr]
            [polismath.tasks :as tasks]
            [honeysql.core :as honey]
            [clojure.core.matrix :as matrix]
            [clojure.core.async :as async :refer [>! <! >!! <!! go go-loop thread]]
            [environ.core :as env]
            [taoensso.timbre :as log]
            [taoensso.timbre.profiling :as prof]
            [vizard.core :as viz]
            [clojure.data.json :as json]))


;; Conv loading utilities

        subgroups))
    (:subgroup-clusters conv)))


(defn conv-data
  [conv]
  (concat
    (comments-data conv)
    (groups-data conv)
    (subgroup-clusters-data conv)
    (base-clusters-data conv)))


(def size-scale
