(->
(rdatasets/palmerpenguins-penguins)
(tc/drop-columns [:rownames])
(tc/drop-missing [:flipper-length-mm])
(tc/group-by [:species :sex])
(tc/aggregate (fn [ds]
(int
(* 100.0
(/
(tc/row-count ds)
(tc/row-count data)))))
{:default-column-name-prefix :%})
(pj/pose :sex :%)
(pj/lay-value-bar {:color :species})
(pj/lay-label {:text :% :group :species})
)