基于R visNetwork在Shiny应用中自定义PAG边样式的技术问询

Hey there! I’ve worked with visNetwork for causal graph use cases like PAGs before, so I can help you get those edge styles sorted out. Let’s break down both of your desired scenarios with concrete, Shiny-ready code examples:

1. Edge with Both Arrow and Circle #

To show both an arrow and a circle on the same end of an edge, we can leverage the middle arrow parameter in visEdges(). We’ll place a small arrow near the target node, paired with a circle marker at the very end. Here’s how to implement this in a Shiny app:

library(shiny)
library(visNetwork)

ui <- fluidPage(
  visNetworkOutput("pag_network")
)

server <- function(input, output) {
  output$pag_network <- renderVisNetwork({
    # Sample PAG nodes
    nodes <- data.frame(
      id = 1:3,
      label = c("X", "Y", "Z"),
      shape = "circle",
      size = 25
    )
    
    # Sample edges (adjust styles per edge later if needed)
    edges <- data.frame(
      from = c(1, 2),
      to = c(2, 3),
      color = "#2E86AB"
    )
    
    visNetwork(nodes, edges) %>%
      visEdges(
        arrows = list(
          # Circle marker at the target end
          to = list(enabled = TRUE, scaleFactor = 2, type = "circle"),
          # Arrow placed 95% along the edge (just inside the circle)
          middle = list(enabled = TRUE, scaleFactor = 1.5, type = "arrow", position = 0.95)
        ),
        width = 2
      ) %>%
      visLayout(randomSeed = 123) # Fix layout for consistency
  })
}

shinyApp(ui, server)

Tweak the scaleFactor (for size) and position (for spacing) values to adjust how the arrow and circle overlap or sit relative to each other.

2. Edge with Two Circles (Both Ends) #

For edges that need circle markers on both the source and target ends (common in PAGs for non-directed edges), simply enable the from arrow with the circle type alongside the to arrow:

# Replace the visEdges section in the renderVisNetwork block above
visNetwork(nodes, edges) %>%
  visEdges(
    arrows = list(
      to = list(enabled = TRUE, scaleFactor = 2, type = "circle"),
      from = list(enabled = TRUE, scaleFactor = 2, type = "circle")
    ),
    width = 2
  ) %>%
  visLayout(randomSeed = 123)

If you need this two-circle style only for specific edges (not all), define the arrow style per edge directly in your edges data frame:

edges <- data.frame(
  from = c(1, 2),
  to = c(2, 3),
  color = "#2E86AB",
  # Custom arrow styles per edge (use I() to preserve list structure)
  arrows = I(list(
    list(to = list(enabled=TRUE, type="circle"), from = list(enabled=TRUE, type="circle")),
    list(to = list(enabled=TRUE, type="arrow"))
  ))
)

These methods cover most PAG styling needs without needing custom JavaScript. If you ever need ultra-specific custom markers, you can inject JS via visEvents(), but the above should work for your use case.

内容的提问来源于stack exchange，提问作者Skampak