% Generated by roxygen2: do not edit by hand

% Please edit documentation in R/plot.R

\name{summary_plot_rwr_attributes}

\alias{summary_plot_rwr_attributes}

\title{Summary Plot RWR attributes}

\usage{

summary_plot_rwr_attributes(

  X,

  color = NULL,

  seed.id = NULL,

  seed.type = NULL,

  plot = TRUE

)

}

\arguments{

\item{X}{a 'rwr.attributes' or 'list.rwr.attributes' object

from rwr_find_seeds_between_attributes()}

\item{color}{(optional) a named character vector or list,

list of color to apply to each type}

\item{seed.id}{(optional) a character vector, to filter the results and

filter on specific seeds IDs}

\item{seed.type}{(optional) a character vector, to filter the results and

filter on specific seeds types}

\item{plot}{logical, if TRUE then the plot is produced}

}

\value{

a 'ggplot' object

}

\description{

Based on the results of

\code{\link[netOmics]{rwr_find_seeds_between_attributes}} which identify the

closest k neighbors from a seed, this function returns a barplot of the node

types (layers) reached for each seed.

}

\examples{

graph1 <- igraph::graph_from_data_frame(

    list(from = c("A", "B", "A", "D", "C", "A", "C"), 

         to = c("B", "C", "D", "E", "D", "F", "G")), 

    directed = FALSE)

graph1 <- igraph::set_vertex_attr(graph = graph1, 

                                  name = 'type', 

                                  index = c("A","B","C"),

                                  value = "1")

graph1 <- igraph::set_vertex_attr(graph = graph1,

                                  name = 'type', 

                                  index = c("D","E"),

                                  value = "2")

graph1 <- igraph::set_vertex_attr(graph = graph1,

                                  name = 'type', 

                                  index = c("F", "G"),

                                  value = "3")

rwr_res <- random_walk_restart(X = graph1, 

                               seed = c("A", "B", "C", "D", "E"))

rwr_res_type <- rwr_find_seeds_between_attributes(X = rwr_res, 

                                                  attribute = "type",

                                                  k = 3)

summary_plot_rwr_attributes(rwr_res_type)

}

\seealso{

\code{\link[netOmics]{random_walk_restart}},

\code{\link[netOmics]{rwr_find_seeds_between_attributes}}

}