"featuresPCA = DimensionReduce[iris[[All, 1]], 2, Method -> ""PrincipalComponentsAnalysis""]; byspeciesPCA = GroupBy[Thread[featuresPCA -> iris[[All, 2]]], Last -> First]; ListPlot[Values[byspeciesPCA], PlotLegends -> Keys[byspeciesPCA]]"
{}