A second example with more features:

hs_graph <- hs_graph %>%
  tidygraph::activate(edges) %>% 
             mutate(edge_weights = runif(n()))

ggraph(hs_graph, layout = "stress", weights = edge_weights) + 
  geom_edge_link(aes(alpha = edge_weights)) + 
  geom_node_point() + 
  scale_edge_alpha_identity()