Not sure, but I think this is like what you want:

fqData = {<|"Application" -> "Chess", "x" -> 9.0, "y" -> 2.5|>,
   <|"Application" -> "Drive", "x" -> 7.0, "y" -> 8.5|>,
   <|"Application" -> "Chess", "x" -> 2.0, "y" -> 5.5|>}

datasets = GatherBy[fqData, #["Application"] &];

ListPlot[{#["x"], #["y"]} & /@ # & /@ datasets,
 PlotMarkers -> (First[#]["Application"] & /@ datasets),
 PlotRangePadding -> {Scaled[.06], Automatic}]

The plot range needed a little extension to include the names, which are considerably wider than points.

Graphics[
 {Text["Chess", {9, 2.5}],
  Text["Drive", {7, 8.5}]},
 PlotRange -> {{0, 10}, {0, 10}},
 Frame -> True,
 BaseStyle -> {FontSize -> 12}]