diff --git a/R/visualization.R b/R/visualization.R index af47caa..7ba3a47 100644 --- a/R/visualization.R +++ b/R/visualization.R @@ -18,6 +18,7 @@ #' around. If NULL, it will not create the neighborhood (default: NULL) #' @param dist numeric; distance to define neighbor cells with respect to each #' reference cell. If NULL, it will not create the neighborhood (default: NULL) +#' @param lineWidth numeric; width of neighborhood line #' #' @return plot #' @@ -31,7 +32,7 @@ #' @export vizClusters <- function(cells, ofInterest = NULL, pointSize = 1, alpha = 0.5, - ref = NULL, dist = NULL){ + ref = NULL, dist = NULL, lineWidth = 0.1){ ## if cells are a data.frame with "x" and "y" cell coordinate columns if( class(cells)[1] %in% c("data.frame", "matrix") ){ @@ -76,7 +77,7 @@ vizClusters <- function(cells, ofInterest = NULL, ## add to plot plt <- plt + ggplot2::geom_sf(data = neighborhood, fill = NA, - color = 'black', linewidth = .5) + color = 'black', linewidth = lineWidth) } ## add labels diff --git a/man/vizClusters.Rd b/man/vizClusters.Rd index 46893d7..aa88b9f 100644 --- a/man/vizClusters.Rd +++ b/man/vizClusters.Rd @@ -10,7 +10,8 @@ vizClusters( pointSize = 1, alpha = 0.5, ref = NULL, - dist = NULL + dist = NULL, + lineWidth = 0.1 ) } \arguments{ @@ -27,6 +28,8 @@ around. If NULL, it will not create the neighborhood (default: NULL)} \item{dist}{numeric; distance to define neighbor cells with respect to each reference cell. If NULL, it will not create the neighborhood (default: NULL)} + +\item{lineWidth}{numeric; width of neighborhood line} } \value{ plot