"featuresLSA = DimensionReduce[iris[[All, 1]], 2, Method -> ""LatentSemanticAnalysis""]; byspeciesLSA = GroupBy[Thread[featuresLSA -> iris[[All, 2]]], Last -> First]; ListPlot[Values[byspeciesLSA], PlotLegends -> Keys[byspeciesLSA]]"