Is it possible to make Mathematica make a connection to p2 from both SysVar 2 and SysVar3 like I drawn ?

Code:

listNodesSubsystemView = Join[{ "xxx" -> "SubSystems"}, 
   Reverse[{"SubSystems" -> "SysVar1", "SubSystems" -> "SysVar2", 
     "SubSystems" -> "SysVar3"}],
    Reverse[{"SysVar1" -> "p1", "SysVar2" -> "p2", "SysVar3" -> "p3", 
     "SysVar3" -> "p2"}],
   Reverse[{{"p1" -> "Sp11", "value set"}, {"p1" -> "Sp12", 
      "value set"}, {"p3" -> "Sp31", "value set"}, {"p3" -> "Sp32", 
      "value set"}}], {{"p2" -> "Sp21", "value set"}}];
TreeSubSystem = 
  TreePlot[listNodesSubsystemView, Left, 
   First[ First[listNodesSubsystemView]], VertexLabeling -> True, 
   DirectedEdges -> True];

I used the solution of renaming after the tree was created but it gets out of hand quickly :

listNodesSubsystemView = Join[{ "xxx" -> "SubSystems"}, 
   Reverse[{"SubSystems" -> "SysVar1", "SubSystems" -> "SysVar2", 
     "SubSystems" -> "SysVar3"}],
   Reverse[
    {"SysVar1" -> "p1S1", "SysVar1" -> "p2S1", "SysVar1" -> "p3S1",
     "SysVar2" -> "p1S2", "SysVar2" -> "p2S2", "SysVar2" -> "p3S2",
     "SysVar3" -> "p3S3", "SysVar3" -> "p2S3"}],
   Reverse[{"p1S1" -> "Sp11", "p1S1" -> "Sp12", "p2S1" -> "Sp21", 
     "p2S1" -> "Sp22",(*in system variant S1*)
     "p1S2" -> "Sp11", "p2S2" -> "Sp21", "p3S2" -> "Sp31", 
     "p3S2" -> "Sp32",(*in system variant S2*)
     "p3S3" -> "Sp31"}]];(*in system variant S3*)
TreeSubSystem = 
  TreePlot[listNodesSubsystemView, Left, 
      First[ First[listNodesSubsystemView]], VertexLabeling -> True, 
      DirectedEdges -> True] /. "p2S1" | "p2S2" | "p2S3" -> "p2" /. 
    "p3S1" | "p3S2" | "p3S3" -> "p3" /. 
   "p1S1" | "p1S2" | "p1S3" -> "p1";