2 added 332 characters in body edited Jan 13 '16 at 1:34 Andy Ross 17.4k22 gold badges5252 silver badges8787 bronze badges Alternatively, you could use WeightedData. Aa = {{5, 0.0123445}, {15, 0.0342565}, {25, 0.0885784}, {35, 0.184694}, {45, 0.243735}, {55, 0.223433}, {65, 0.111512}, {75, 0.000000}, {85, 0.000000}, {95, 0.1014466}}; Histogram[WeightedData @@ Transpose[A]Transpose[a], Length[A]]Length[a]]  You might also consider using DiscretePlot with an EmpiricalDistribution. dist = EmpiricalDistribution[WeightedData @@ Transpose[a]] DiscretePlot[PDF[dist, x], {x, a[[All, 1]]}, ExtentSize -> Full]  Alternatively, you could use WeightedData. A = {{5, 0.0123445}, {15, 0.0342565}, {25, 0.0885784}, {35, 0.184694}, {45, 0.243735}, {55, 0.223433}, {65, 0.111512}, {75, 0.000000}, {85, 0.000000}, {95, 0.1014466}}; Histogram[WeightedData @@ Transpose[A], Length[A]]  Alternatively, you could use WeightedData. a = {{5, 0.0123445}, {15, 0.0342565}, {25, 0.0885784}, {35, 0.184694}, {45, 0.243735}, {55, 0.223433}, {65, 0.111512}, {75, 0.000000}, {85, 0.000000}, {95, 0.1014466}}; Histogram[WeightedData @@ Transpose[a], Length[a]]  You might also consider using DiscretePlot with an EmpiricalDistribution. dist = EmpiricalDistribution[WeightedData @@ Transpose[a]] DiscretePlot[PDF[dist, x], {x, a[[All, 1]]}, ExtentSize -> Full]  1 answered Jan 13 '16 at 1:25 Andy Ross 17.4k22 gold badges5252 silver badges8787 bronze badges Alternatively, you could use WeightedData. A = {{5, 0.0123445}, {15, 0.0342565}, {25, 0.0885784}, {35, 0.184694}, {45, 0.243735}, {55, 0.223433}, {65, 0.111512}, {75, 0.000000}, {85, 0.000000}, {95, 0.1014466}}; Histogram[WeightedData @@ Transpose[A], Length[A]]