library(igraph)
# Creating a sample graph
g <- sample_gnp(10, 0.3)
V(g)$name <- letters[1:10]
V(g)$color <- rainbow(10)
# Assigning edge colors based on source node colors
g <- assign_edge_colors(g, transparency = 0.4)
# Plotting the graph
plot(g, edge.color = E(g)$color, vertex.color = V(g)$color)
Run the code above in your browser using DataLab