Just for fun a small fix:
ImageMeasurements[
image, {"Channels", "Transparency", "ColorSpace", "DataType",
"Dimensions", "MinIntensity", "MaxIntensity", "TotalIntensity",
"MeanIntensity", "StandardDeviationIntensity"}, "Dataset"] //
(d \[Function]
ReplacePart[d, "Dimensions" -> Normal@d["Dimensions", {2, 1}]])