Clear["`*"];
a = 2;
c = -2;
ContourPlot[{x == a + c, y == 2*a + 3*c}, {x, -6, 6}, {y, -6, 6},
Axes -> True, Frame -> False, PlotLegends -> {"A", "B"}]
ContourPlot[{x == a + c, x == 2*a + 3*c, y == a + c,
y == 2*a + 3*c}, {x, -6, 6}, {y, -6, 6}, Axes -> True,
Frame -> False, PlotLegends -> {"A", "B", "C", "D"}]