graph_center(graph, ..., weights = NULL, mode = c("all", "out", "in", "total"))The input graph, it can be directed or undirected.
These dots are for future extensions and must be empty.
Possibly a numeric vector giving edge weights. If this is
NULL and the graph has a weight edge attribute, then the
attribute is used. If this is NA then no weights are used (even if
the graph has a weight attribute). In a weighted graph, the length
of a path is the sum of the weights of its constituent edges.
Character constant, gives whether the shortest paths to or from
the given vertices should be calculated for directed graphs. If out
then the shortest paths from the vertex, if in then to
it will be considered. If all, the default, then the graph is treated
as undirected, i.e. edge directions are not taken into account. This
argument is ignored for undirected graphs.
The vertex IDs of the central vertices.
Other paths:
all_simple_paths(),
diameter(),
distance_table(),
eccentricity(),
radius()
tree <- make_tree(100, 7)
graph_center(tree)
#> + 2/100 vertices, from f534534:
#> [1] 1 2
graph_center(tree, mode = "in")
#> + 1/100 vertex, from f534534:
#> [1] 1
graph_center(tree, mode = "out")
#> + 85/100 vertices, from f534534:
#> [1] 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
#> [20] 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
#> [39] 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
#> [58] 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91
#> [77] 92 93 94 95 96 97 98 99 100
# Without and with weights
ring <- make_ring(10)
graph_center(ring)
#> + 10/10 vertices, from 4ed9fe6:
#> [1] 1 2 3 4 5 6 7 8 9 10
# Add weights
E(ring)$weight <- seq_len(ecount(ring))
graph_center(ring)
#> + 1/10 vertex, from 4ed9fe6:
#> [1] 7