diff --git a/R/layout-circle-.R b/R/layout-circle-.R index cbd5c547..a343844a 100644 --- a/R/layout-circle-.R +++ b/R/layout-circle-.R @@ -15,11 +15,15 @@ #' `"x"` and `TRUE`, respectively, for all plots. #' @examples #' set.seed(123) -#' stack_discrete("v", matrix(rnorm(56), nrow = 7L)) + -#' align_dendro() + +#' circle_discrete(matrix(rnorm(56), nrow = 7L), +#' radial = coord_radial(inner.radius = 0.1) +#' ) + #' ggalign() + #' geom_tile(aes(y = .column_index, fill = value)) + -#' scale_fill_viridis_c() +#' scale_fill_viridis_c() + +#' align_dendro(aes(color = branch), k = 3L) + +#' scale_color_brewer(palette = "Dark2") +#' #' @export circle_discrete <- function(data = NULL, ..., radial = NULL, theme = NULL) { UseMethod("circle_discrete", data) diff --git a/man/circle_discrete.Rd b/man/circle_discrete.Rd index 0ee41357..63b339d2 100644 --- a/man/circle_discrete.Rd +++ b/man/circle_discrete.Rd @@ -33,9 +33,13 @@ in a circular layout. } \examples{ set.seed(123) -stack_discrete("v", matrix(rnorm(56), nrow = 7L)) + - align_dendro() + +circle_discrete(matrix(rnorm(56), nrow = 7L), + radial = coord_radial(inner.radius = 0.1) +) + ggalign() + geom_tile(aes(y = .column_index, fill = value)) + - scale_fill_viridis_c() + scale_fill_viridis_c() + + align_dendro(aes(color = branch), k = 3L) + + scale_color_brewer(palette = "Dark2") + }