dataset1={(QuantityUnit[0.63`]),(QuantityUnit[0.65`]),(QuantityUnit[0.4`]),(QuantityUnit[0.56`]),(QuantityUnit[0.6`]),(QuantityUnit[0.56`]),(QuantityUnit[0.16`]),(QuantityUnit[0.6`]),(QuantityUnit[0.47`]),(QuantityUnit[0.71`]),(QuantityUnit[0.88`]),(QuantityUnit[0.87`]),(QuantityUnit[0.5`])};
dataset2={(QuantityUnit[45]),(QuantityUnit[33]),(QuantityUnit[32]),(QuantityUnit[41]),(QuantityUnit[41]),(QuantityUnit[37]),(QuantityUnit[11]),(QuantityUnit[44]),(QuantityUnit[27]),(QuantityUnit[46]),(QuantityUnit[61]),(QuantityUnit[68]),(QuantityUnit[28])};

Grid[{{
BarChart[{Quantity/@#},TargetUnits->{"Centimeters"},BarOrigin->Left,ChartLegends->SwatchLegend[#,LegendLayout->"ReversedColumn"],AxesLabel->Automatic,ImageSize->260]&@{"foot","meter","inch","yard","span"},
BarChart[{dataset1,dataset2},AxesLabel->Automatic,ChartLayout->"Percentile",LabelingFunction->(N[#1]&),ImageSize->300]
},
{
ListLinePlot[{dataset1,dataset2},AxesLabel->Automatic,Filling->Axis,PlotLabel->"Hardwood Density",ImageSize->300],
ListLinePlot[Sort@Transpose[{dataset1,dataset2}],AxesLabel->Automatic,PlotLabel->Row[{"Correlation coefficient:  ",Correlation[dataset1,dataset2]}],ImageSize->300]
}},Alignment->{Left,Bottom}]