Description Usage Arguments See Also Examples
Add edges for eforce
.
Add edges for eforce
.
1 2 3 |
p |
an echart object. |
links |
edges data.frame. |
source |
source column. |
target |
target column. |
weight |
edge weight. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | let <- LETTERS[1:20]
edges <- data.frame(source = sample(let, 20), target = sample(let, 20),
weight = runif(20, 5, 20))
nodes <- data.frame(name = let, value = runif(20, 5, 25), group = rep(LETTERS[1:4], 5))
echart() %>%
eforce(itemStyle = list(normal = list(label = list(show = TRUE)))) %>% # show labels
enodes(nodes, name, value = value, category = group) %>%
elinks(edges, source, target)
echart() %>%
eforce(itemStyle = list(normal = list(label = list(show = TRUE)))) %>% # show labels
enodes(nodes, name, value = value, category = group) %>%
elinks(edges, source, target, weight = 1)
let <- LETTERS[1:20]
edges <- data.frame(source = sample(let, 20), target = sample(let, 20),
weight = runif(20, 5, 20))
nodes <- data.frame(name = let, value = runif(20, 5, 25), group = rep(LETTERS[1:4], 5))
echart() %>%
eforce_(itemStyle = list(normal = list(label = list(show = TRUE)))) %>% # show labels
enodes_(nodes, "name", value = "value", category = "group") %>%
elinks_(edges, "source", "target")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.