You could use Style wrapper for each data. For exmaple,
data = RandomReal[1, {10, 4}]; BubbleChart[Style[#[[;; 3]], ColorData["TemperatureMap"][#[[4]]]] & /@ data]
