bad node and edge labels in group analysis

[mattansb]

dont know if this is related to #19 ...

We have:

1. Group names in the label (not just on the facet)
2. Node labels have values (also like #19 )
3. Edge labels have node names?

library(lavaan)
library(tidySEM)

HS.model <- '  visual =~ x1 + x2 + x3
              textual =~ x4 + x5 + x6
              speed   =~ x7 + x8 + x9 '
fit <- cfa(HS.model, 
           data = HolzingerSwineford1939, 
           group = "school")

graph_sem(fit)