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