Is there any better way to create {a, a, a, b, b, b, b, b, c, c} from {{a, 3}, {b, 5}, {c, 2}}?

My attempt:

data = {{a, 3}, {b, 5}, {c, 2}};  output = Table[#[[1]], #[[2]]] & /@ data // Flatten 

{a, a, a, b, b, b, b, b, c, c}