# Neighborhood-inclusion in networks

This vignette describes the concept of neighborhood-inclusion, its connection with network centrality and gives some example use cases with the `netrankr` package. The partial ranking induced by neighborhood-inclusion can be used to assess partial centrality or compute probabilistic centrality.

## Theoretical Background

In an undirected graph \(G=(V,E)\), the neighborhood of a node \(u \in V\) is defined as \[N(u)=\lbrace w : \lbrace u,w \rbrace \in E \rbrace\] and its closed neighborhood as \(N[v]=N(v) \cup \lbrace v \rbrace\). If the neighborhood of a node \(u\) is a subset of the closed neighborhood of a node \(v\), \(N(u)\subseteq N[v]\), we speak of neighborhood inclusion. This concept defines a dominance relation among nodes in a network. We say that \(u\) is dominated by \(v\) if \(N(u)\subseteq N[v]\). Neighborhood-inclusion induces a partial ranking on the vertices of a network. That is, (usually) some (if not most!) pairs of vertices are incomparable, such that neither \(N(u)\subseteq N[v]\) nor \(N(v)\subseteq N[u]\) holds. There is, however, a special graph class where all pairs are comparable (found in this vignette).

The importance of neighborhood-inclusion is given by the following result:

\[ N(u)\subseteq N[v] \implies c(u)\leq c(v), \] where \(c\) is a centrality index defined on special path algebras. These include many of the well known measures like closeness (and variants), betweenness (and variants) as well as many walk-based indices (eigenvector and subgraph centrality, total communicability,…).

Very informally, if \(u\) is dominated by \(v\), then u is less central than \(v\) no matter which centrality index is used, that fulfill the requirement. While this is the key result, this short description leaves out many theoretical considerations. These and more can be found in

> Schoch, David & Brandes, Ulrik. (2016). Re-conceptualizing centrality in social networks. European Journal of Appplied Mathematics, 27(6), 971–985. (link)

## Neighborhood-inclusion in the `netrankr` Package

    library(netrankr)
    library(igraph)
    set.seed(1886) #for reproducibility

We work with the following simple graph.

    g <- graph.empty(n=11,directed = FALSE)
    g <- add_edges(g,c(1,11,2,4,3,5,3,11,4,8,5,9,5,11,6,7,6,8,
                       6,10,6,11,7,9,7,10,7,11,8,9,8,10,9,10))
    V(g)$name <- 1:11

    plot(g,
         vertex.color="black",vertex.label.color="white", vertex.size=16,vertex.label.cex=0.75,
         edge.color="black",
         margin=0,asp=0.5)

We can compare neighborhoods manually with the `neighborhood` function of the `igraph` package. Note the `mindist` parameter to distinguish between open and closed neighborhood.

    u <- 3
    v <- 5
    Nu <- neighborhood(g,order=1,nodes=u,mindist = 1)[[1]] #N(u)
    Nv <- neighborhood(g,order=1,nodes=v,mindist = 0)[[1]] #N[v]

    Nu

    ## + 2/11 vertices, named, from 6400e17:
    ## [1] 5  11

    Nv

    ## + 4/11 vertices, named, from 6400e17:
    ## [1] 5  3  9  11

Although it is obvious that `Nu` is a subset of `Nv`, we can verify it with `R`.

    all(Nu%in%Nv)

    ## [1] TRUE

Checking all pairs of nodes can efficiently be done with the `neighborhood_inclusion()` function from the `netrankr` package.

    P <- neighborhood_inclusion(g)
    P

    ##    1 2 3 4 5 6 7 8 9 10 11
    ## 1  0 0 1 0 1 1 1 0 0  0  1
    ## 2  0 0 0 1 0 0 0 1 0  0  0
    ## 3  0 0 0 0 1 0 0 0 0  0  1
    ## 4  0 0 0 0 0 0 0 0 0  0  0
    ## 5  0 0 0 0 0 0 0 0 0  0  0
    ## 6  0 0 0 0 0 0 0 0 0  0  0
    ## 7  0 0 0 0 0 0 0 0 0  0  0
    ## 8  0 0 0 0 0 0 0 0 0  0  0
    ## 9  0 0 0 0 0 0 0 0 0  0  0
    ## 10 0 0 0 0 0 0 0 0 0  0  0
    ## 11 0 0 0 0 0 0 0 0 0  0  0

If an entry `P[u,v]` is equal to one, we have \(N(u)\subseteq N[v]\).

The function `dominance_graph()` can alternatively be used to visualize the neighborhood inclusion as a directed graph.

    g.dom <- dominance_graph(P)

    plot(g.dom,
         vertex.color="black",vertex.label.color="white", vertex.size=16, vertex.label.cex=0.75,
         edge.color="black", edge.arrow.size=0.5,margin=0,asp=0.5)

### Centrality and Neighborhood-inclusion

We start by calculating some standard measures of centrality found in the `ìgraph` package for our example network. Note that the `netrankr` package also implements a great variety of indices, but they need further specifications described in this vignette.

    cent.df <- data.frame(
      vertex=1:11,
      degree=degree(g),
      betweenness=betweenness(g),
      closeness=closeness(g),
      eigenvector=eigen_centrality(g)$vector,
      subgraph=subgraph_centrality(g)
    )

    #rounding for better readability
    cent.df.rounded <- round(cent.df,4)
    cent.df.rounded

    ##    vertex degree betweenness closeness eigenvector subgraph
    ## 1       1      1      0.0000    0.0370      0.2260   1.8251
    ## 2       2      1      0.0000    0.0294      0.0646   1.5954
    ## 3       3      2      0.0000    0.0400      0.3786   3.1486
    ## 4       4      2      9.0000    0.0400      0.2415   2.4231
    ## 5       5      3      3.8333    0.0500      0.5709   4.3871
    ## 6       6      4      9.8333    0.0588      0.9847   7.8073
    ## 7       7      4      2.6667    0.0526      1.0000   7.9394
    ## 8       8      4     16.3333    0.0556      0.8386   6.6728
    ## 9       9      4      7.3333    0.0556      0.9114   7.0327
    ## 10     10      4      1.3333    0.0526      0.9986   8.2421
    ## 11     11      5     14.6667    0.0556      0.8450   7.3896

Notice how for each centrality index, different vertices are considered to be the most central node. The most central from degree to subgraph centrality are \(11\), \(8\), \(6\), \(7\) and \(10\). Note that only undominated vertices can achieve the highest score for any reasonable index. As soon as a vertex is dominated by at least one other, it will always be ranked below the dominator. We can check for undominated vertices simply by forming the row Sums in `P`.

    which(rowSums(P)==0)

    ##  4  5  6  7  8  9 10 11
    ##  4  5  6  7  8  9 10 11

8 nodes are undominated in the graph. It is thus entirely possible to find indices that would also rank \(4, 5\) and \(9\) on top.

Besides the top ranked nodes, we can check if the entire partial ranking `P` is preserved in each centrality ranking. If there exists a pair \(u\) and \(v\) and index \(c()\) such that \(N(u)\subseteq N[v]\) but \(c(v)>c(u)\), we do not consider \(c\) to be a valid index.

In our example, we considered vertex \(3\) and \(5\), where \(3\) was dominated by \(5\). It is easy to verify that all centrality scores of \(5\) are in fact greater than the ones of \(3\) by inspecting the respective rows in the table. To check all pairs, we use the function `is_preserved`. The function takes a partial ranking, as induced by neighborhood inclusion, and a score vector of a centrality index and checks if `P[i,j]==1 & scores[i]>scores[j]` is `FALSE` for all pairs `i` and `j`.

    apply(cent.df[,2:6],2,function(x) is_preserved(P,x))

    ##      degree betweenness   closeness eigenvector    subgraph
    ##        TRUE        TRUE        TRUE        TRUE        TRUE

All considered indices preserve the neighborhood inclusion preorder on the example network.

NOTE: Preserving neighborhood inclusion on one network does not guarantee that an index preserves it on all networks. For more details refer to the paper cited in the first section.