Data

Show[Graphics[{RGBColor[0, 0, 0], Line[G1], RGBColor[0, 1, 0], Line[G2], RGBColor[0, 0, 1], Line[G3], RGBColor[1, 0, 0], Line[G4]}]] ;