edges(g) %>%
color_pos("green") %>%
.["color"]
#> color
#> 1 green
#> 2 green
#> 3 black
#> 4 green
#> 5 green
#> 6 green
edges(g) %>%
color_pos("green") %>%
color_neg("red") %>%
.["color"]
#> color
#> 1 black
#> 2 black
#> 3 red
#> 4 black
#> 5 black
#> 6 black