Calculate Weibull distribution parameters from a wind velocity histogram using Rstudio

I can calculate the shape and scale parameters of the Weibull distribution, where I enter with the wind speeds and using the fitdistr () function of the fitdistrplus package I get the form and scale factors. Now, given any histogram of winds in a given region, how to get the shape and scale parameters?

Ps: (1) there is only the histogram, where I can extract the incidence frequencies of the winds (Y axis) and the speed intervals, bins (x-axis). (2) I do not know the inert velocities of each column, knowing only the intervals.

If possible, show some code example.

histogram

Here the data I am using

Author: Leonardo Ferrão, 2017-07-17