data = Outer[ ChemicalData, {ChemicalData["Alcohols"], ChemicalData["Esters"]}, {"BoilingPoint", "MolecularWeight"}]; ListPlot[data, PlotStyle -> PointSize /@ {.009, .007}, PlotRange -> {{0, All}, {0, All}}]