union:

In adamwk97/Lombardi: Lombardi Graphical Networks

Usage

union(x)

Arguments

x

Examples

outliers = boxplot(dfnew$freq, plot = FALSE)$out
length = 30
length3 = length*3


df = dfnew[1:30,]


df$from = c(1:30)
df$to = c(2:30, 1)
df = df[, c("from", "to", "word", "freq")]
df2 = df[, c("from", "word", "freq")]


g1 = graph_from_data_frame(d=df, vertices = df2, directed=FALSE) 



df3 = dfnew[31:90,]
df3$from = c(31:90)
df3$to = c(32:90, 31)

df3 = df3[, c("from", "to", "word", "freq")]
df4 = df3[, c("from", "word", "freq")]

g2 = graph_from_data_frame(d=df3, vertices = df4, directed=FALSE) 


plot(g2, main = "Lombardi Graph", 
                 frame = TRUE, 
                 edge.arrow.size=.5, 
                 vertex.color = "salmon", 
                 vertex.label=df3$word, 
                 vertex.label.color="black", 
                 vertex.size = 7, 
                 vertex.label.font  = 2, 
                 edge.curved = .3, 
                 edge.width=2, 
                 layout = l
                 )
plot(g1, 
                 main = "Lombardi Graph", 
                 frame = TRUE, 
                 edge.arrow.size=.5, 
                 vertex.color = "green", 
                 vertex.label=df$word, 
                 vertex.label.color="darkgreen", 
                 vertex.label.font = 2, 
                 vertex.label.dist = 1, 
                 vertex.label.cex = 1.5, 
                 vertex.size = 9, 
                 edge.curved = .5, 
                 edge.width=2, 
                 add = TRUE)

adamwk97/Lombardi documentation built on May 1, 2020, 11:01 p.m.