search for: batlow

...00, color= as.factor(V(network)$community))) + # ... so try this :) geom_node_point(aes(size = V(network)$hub_score*200, color=V(network)$Subcategory_type)) + geom_node_text(aes(label = V(network)$name), size=3, color="white", repel=T)+ scale_color_scico_d(palette = "batlow")+ scale_edge_width(range = c(0.2,4))+ scale_size(range = c(0.5,15)) + theme(plot.background = element_rect(fill = "black"), legend.position = "right", panel.background = element_rect(fill = "black")) --- snip --- At least in my d...

...ub_score(.)$vector)) %>% set_vertex_attr(name = "color", value = c(viridis::viridis((5))) [match(V(.)$name, c(factor(V(.)$name)))]) %>% set_vertex_attr(name= "community", value=cluster_optimal(.)$membership) clrs<-scico(3, palette = "batlow") ### part 1: network plot par(bg="black") network %>% plot( vertex.color=clrs[V(.)$community], vertex.size=V(.)$hub_score*5, vertex.frame.color=V(.)$color, vertex.label.color="white", vertex.label.cex=0.5, vertex.label.family="Helveti...

...or)) %>% set_vertex_attr(name = "color", value = c(viridis::viridis((21))) [match(V(.)$name, c(factor(V(.)$name)))]) %>% set_vertex_attr(name= "community", value=cluster_optimal(.)$Subcategory_type) clrs<-scico(3, palette = "batlow") windowsFonts(Helvetica = windowsFont("Helvetica")) par(bg="black") network %>% plot( vertex.color=clrs[V(.)$community], vertex.size=V(.)$hub_score*20, vertex.frame.color=V(.)$color, vertex.label.color="white", verte...

...;% > ? set_vertex_attr(name = "color", > ????????????? value = c(viridis::viridis((5))) > ????????????? [match(V(.)$name, c(factor(V(.)$name)))]) %>% > ? set_vertex_attr(name= "community", value=cluster_optimal(.)$membership) > clrs<-scico(3, palette = "batlow") > > ### part 1: network plot > par(bg="black") > network %>% plot( > ???? vertex.color=clrs[V(.)$community], > ???? vertex.size=V(.)$hub_score*5, > ???? vertex.frame.color=V(.)$color, > ???? vertex.label.color="white", > ???? vertex.label.ce...

...ot;color", > > value = c(viridis::viridis((5))) > > [match(V(.)$name, c(factor(V(.)$name)))]) %>% > > set_vertex_attr(name= "community", value=cluster_optimal(.)$membership) > > > > clrs<-scico(3, palette = "batlow") > > > > par(bg="black") > > network %>% plot( > > vertex.color=clrs[V(.)$community], > > vertex.size=V(.)$hub_score*5, > > vertex.frame.color=V(.)$color, > > vertex.label.color="white", > >...

...or", > > ????????????? value = c(viridis::viridis((5))) > > ????????????? [match(V(.)$name, c(factor(V(.)$name)))]) %>% > > ? set_vertex_attr(name= "community", > > value=cluster_optimal(.)$membership) > > > > clrs<-scico(3, palette = "batlow") > > > > par(bg="black") > > network %>% plot( > > ???? vertex.color=clrs[V(.)$community], > > ???? vertex.size=V(.)$hub_score*5, > > ???? vertex.frame.color=V(.)$color, > > ???? vertex.label.color="white", > > ???? v...

...rvature=0.3, aes(width=(E(network)$weight/10), color=from, alpha=0.5)) + geom_node_point(aes(size = V(network)$hub_score*200, color= as.factor(V(network)$community))) + geom_node_text(aes(label = V(network)$name), size=5, color="white", repel=T)+ scale_color_scico_d(palette = "batlow")+ scale_edge_width(range = c(0.2,4))+ scale_size(range = c(0.5,20)) + #scale_edge_color_manual(values = c(scico(21, palette="batlow")))+ theme(plot.background = element_rect(fill = "black"), legend.position = "right", panel.background = el...

....)$vector)) %>% set_vertex_attr(name = "color", value = c(viridis::viridis((5))) [match(V(.)$name, c(factor(V(.)$name)))]) %>% set_vertex_attr(name= "community", value=cluster_optimal(.)$membership) clrs<-scico(3, palette = "batlow") par(bg="black") network %>% plot( vertex.color=clrs[V(.)$community], vertex.size=V(.)$hub_score*5, vertex.frame.color=V(.)$color, vertex.label.color="white", vertex.label.cex=0.5, vertex.label.family="Helvetica",...

...value = c(viridis::viridis((5))) >> >> ????????????? [match(V(.)$name, c(factor(V(.)$name)))]) %>% >> >> ? set_vertex_attr(name= "community", >> value=cluster_optimal(.)$membership) >> >> >> >> clrs<-scico(3, palette = "batlow") >> >> >> >> par(bg="black") >> >> network %>% plot( >> >> ???? vertex.color=clrs[V(.)$community], >> >> ???? vertex.size=V(.)$hub_score*5, >> >> ???? vertex.frame.color=V(.)$color, >> >> ?...

..._score(.)$vector)) %>% set_vertex_attr(name = "color", value = c(viridis::viridis((5))) [match(V(.)$name, c(factor(V(.)$name)))]) %>% set_vertex_attr(name= "community", value=cluster_optimal(.)$membership) clrs<-scico(3, palette = "batlow") par(bg="black") network %>% plot( vertex.color=clrs[V(.)$community], vertex.size=V(.)$hub_score*5, vertex.frame.color=V(.)$color, vertex.label.color="white", vertex.label.cex=0.5, vertex.label.family="Helvetica", verte...

...r", > > ????????????? value = c(viridis::viridis((5))) > > ????????????? [match(V(.)$name, c(factor(V(.)$name)))]) %>% > > ? set_vertex_attr(name= "community", > value=cluster_optimal(.)$membership) > > ? > > clrs<-scico(3, palette = "batlow") > > ? > > par(bg="black") > > network %>% plot( > > ???? vertex.color=clrs[V(.)$community], > > ???? vertex.size=V(.)$hub_score*5, > > ???? vertex.frame.color=V(.)$color, > > ???? vertex.label.color="white", > &g...

...t_vertex_attr(name = "color", > ????????????? value = c(viridis::viridis((5))) > ????????????? [match(V(.)$name, c(factor(V(.)$name)))]) %>% > ? set_vertex_attr(name= "community", > value=cluster_optimal(.)$membership) > > clrs<-scico(3, palette = "batlow") > > par(bg="black") > network %>% plot( > ???? vertex.color=clrs[V(.)$community], > ???? vertex.size=V(.)$hub_score*5, > ???? vertex.frame.color=V(.)$color, > ???? vertex.label.color="white", > ???? vertex.label.cex=0.5, > ???? vertex.l...

It there a way to get the genericups driver to set a output on the serial port? On the APC BackupPro the will pull the BattLow line low with a pull down resistor it's up to you to from the PC side to pull the line high with a pullup resistor from one of the RS232 output pins. Then monitor the line with another pin. Regards Rabie -------------- next part -------------- An HTML attachment was