Rolling up data

data.clj

;; Before
(def data
  [
    {:id :one :location "A"}
    {:id :two :location "X"}
    {:id :one :location "B"}
    {:id :two :location "Y"}
    {:id :one :location "C"}
    {:id :two :location "Z"}
  ]
)

;; After
{
  :one {:id :one :location ["A" "B" "C"]}
  :two {:id :two :location ["X" "Y" "Z"]}
}

;; I know how to manipulate vector of maps -> map of maps...
(#(zipmap (map :id %) %) data)

;; ...but this doesn't do the "rolling up" that I'm looking for
;; => {:two {:id :two, :location "Z"}, :one {:id :one, :location "C"}}