Plot epicontacts objects

This function plots epicontacts objects using various approaches. The default method uses vis_epicontacts.

# S3 method for epicontacts
plot(
  x,
  node_color = "id",
  method = c("visNetwork", "graph3D"),
  thin = TRUE,
  ...
)

Arguments

x	An epicontacts object
node_color	An integer or a character string indicating which attribute column in the linelist should be used to color the nodes.
method	A character string indicating the plotting method to be used; available values are "visNetwork" and "graph3D"; see details.
thin	A logical indicating if the data should be thinned with thin so that only cases with contacts should be plotted.
...	Further arguments passed to the plotting methods.

Details

This function is merely a wrapper for other plotting functions in the package, depending on the value of method:

• visNetwork: calls the function vis_epicontacts

• graph3D: calls the function graph3D

See also

vis_epicontacts, which uses the package visNetwork, and codeawesome for icon codes.

Author

Thibaut Jombart (thibautjombart@gmail.com)

Examples

if (require(outbreaks)) {
## example using MERS outbreak in Korea, 2014
head(mers_korea_2015[[1]])
head(mers_korea_2015[[2]])

x <- make_epicontacts(linelist = mers_korea_2015[[1]],
                      contacts = mers_korea_2015[[2]], directed=TRUE)

if (FALSE) {
plot(x)
plot(x, "place_infect")
plot(x, "loc_hosp", legend_max = 20, annot = TRUE)
plot(x, "place_infect", node_shape = "sex",
     shapes = c(M = "male", F = "female"))
plot(x, 4)
plot(x, 4, method = "graph3D")
}
}
#> Warning: Cycle(s) detected in the contact network: this may be unwanted