diff --git a/README.Rmd b/README.Rmd index 16e063f2..2ae5bc91 100644 --- a/README.Rmd +++ b/README.Rmd @@ -246,6 +246,7 @@ for function call foramt). ```{r} ggheat(small_mat) + + scale_fill_viridis_c(guide = "none") + htanno_dendro(aes(color = branch), position = "top", k = 3) + gganno(data = rowSums) + geom_bar(aes(y = value, fill = .panel), stat = "identity") + @@ -257,6 +258,7 @@ ggheat(small_mat) + stat = "identity", orientation = "y" ) + + scale_fill_brewer(palette = "Set1", guide = "none") + scale_x_reverse() ``` @@ -265,13 +267,14 @@ For convenient, we also provide `gganno_*` function for 4 positions. ggheat(small_mat) + gganno_top(aes(y = value), data = rowSums) + geom_bar(stat = "identity", aes(fill = factor(.panel))) + - scale_fill_brewer(name = NULL, palette = "Dark2") + + scale_fill_brewer(name = NULL, palette = "Dark2", guide = "none") + gganno_left(aes(x = value), data = rowSums) + geom_bar( aes(y = .y, fill = factor(.y)), stat = "identity", orientation = "y" ) + + scale_fill_brewer(palette = "Set1") + scale_x_reverse() ``` @@ -302,6 +305,7 @@ ggheat(small_mat) + stat = "identity", orientation = "y" ) + + scale_fill_brewer(palette = "Set1", guide = "none") + scale_x_reverse() ``` @@ -335,6 +339,7 @@ pp <- ggheat(small_mat) + stat = "identity", orientation = "y" ) + + scale_fill_brewer(palette = "Set1", guide = "none") + scale_x_reverse() pp ``` diff --git a/README.html b/README.html index e5899524..ae9758f7 100644 --- a/README.html +++ b/README.html @@ -606,7 +606,7 @@

ggheat

-

R-CMD-check

+

R-CMD-check

This package is a ggplot2 extension for heatmap. It @@ -816,34 +816,37 @@

gganno

object (we also provide activate and deactivate for function call foramt).

ggheat(small_mat) +
-  htanno_dendro(aes(color = branch), position = "top", k = 3) +
-  gganno(data = rowSums) +
-  geom_bar(aes(y = value, fill = .panel), stat = "identity") +
-  scale_fill_brewer(palette = "Dark2") +
-  active("left") +
-  gganno(aes(x = value), data = rowSums) +
-  geom_bar(
-    aes(y = .y, fill = factor(.y)),
-    stat = "identity",
-    orientation = "y"
-  ) +
-  scale_x_reverse()
- + scale_fill_viridis_c(guide = "none") + + htanno_dendro(aes(color = branch), position = "top", k = 3) + + gganno(data = rowSums) + + geom_bar(aes(y = value, fill = .panel), stat = "identity") + + scale_fill_brewer(palette = "Dark2") + + active("left") + + gganno(aes(x = value), data = rowSums) + + geom_bar( + aes(y = .y, fill = factor(.y)), + stat = "identity", + orientation = "y" + ) + + scale_fill_brewer(palette = "Set1", guide = "none") + + scale_x_reverse() +

For convenient, we also provide gganno_* function for 4 positions.

ggheat(small_mat) +
   gganno_top(aes(y = value), data = rowSums) +
   geom_bar(stat = "identity", aes(fill = factor(.panel))) +
-  scale_fill_brewer(name = NULL, palette = "Dark2") +
+  scale_fill_brewer(name = NULL, palette = "Dark2", guide = "none") +
   gganno_left(aes(x = value), data = rowSums) +
   geom_bar(
     aes(y = .y, fill = factor(.y)),
     stat = "identity",
     orientation = "y"
   ) +
-  scale_x_reverse()
- + scale_fill_brewer(palette = "Set1") + + scale_x_reverse() +

htanno_group

Another htanno_group class provides convenient way to @@ -870,8 +873,9 @@

htanno_group

stat = "identity", orientation = "y" ) + - scale_x_reverse() - + scale_fill_brewer(palette = "Set1", guide = "none") + + scale_x_reverse() +

But you cannot mix them in the same axis.

ggheat(small_mat) +
@@ -903,9 +907,10 @@ 
Control size

     stat = "identity",
     orientation = "y"
   ) +
-  scale_x_reverse()
-pp
- + scale_fill_brewer(palette = "Set1", guide = "none") + + scale_x_reverse() +pp +

Internally, the ggheat_build function was used to construct and merge all the ggplot objects into a single diff --git a/README.md b/README.md index 81e54e5b..21fabc37 100644 --- a/README.md +++ b/README.md @@ -278,6 +278,7 @@ and `deactivate` for function call foramt). ``` r ggheat(small_mat) + + scale_fill_viridis_c(guide = "none") + htanno_dendro(aes(color = branch), position = "top", k = 3) + gganno(data = rowSums) + geom_bar(aes(y = value, fill = .panel), stat = "identity") + @@ -289,6 +290,7 @@ ggheat(small_mat) + stat = "identity", orientation = "y" ) + + scale_fill_brewer(palette = "Set1", guide = "none") + scale_x_reverse() ``` @@ -300,13 +302,14 @@ For convenient, we also provide `gganno_*` function for 4 positions. ggheat(small_mat) + gganno_top(aes(y = value), data = rowSums) + geom_bar(stat = "identity", aes(fill = factor(.panel))) + - scale_fill_brewer(name = NULL, palette = "Dark2") + + scale_fill_brewer(name = NULL, palette = "Dark2", guide = "none") + gganno_left(aes(x = value), data = rowSums) + geom_bar( aes(y = .y, fill = factor(.y)), stat = "identity", orientation = "y" ) + + scale_fill_brewer(palette = "Set1") + scale_x_reverse() ``` @@ -343,6 +346,7 @@ ggheat(small_mat) + stat = "identity", orientation = "y" ) + + scale_fill_brewer(palette = "Set1", guide = "none") + scale_x_reverse() ``` @@ -383,6 +387,7 @@ pp <- ggheat(small_mat) + stat = "identity", orientation = "y" ) + + scale_fill_brewer(palette = "Set1", guide = "none") + scale_x_reverse() pp ``` diff --git a/man/figures/README-unnamed-chunk-16-1.png b/man/figures/README-unnamed-chunk-16-1.png index 6750d2df..0ef51b12 100644 Binary files a/man/figures/README-unnamed-chunk-16-1.png and b/man/figures/README-unnamed-chunk-16-1.png differ diff --git a/man/figures/README-unnamed-chunk-17-1.png b/man/figures/README-unnamed-chunk-17-1.png index 57526213..47414c02 100644 Binary files a/man/figures/README-unnamed-chunk-17-1.png and b/man/figures/README-unnamed-chunk-17-1.png differ diff --git a/man/figures/README-unnamed-chunk-19-1.png b/man/figures/README-unnamed-chunk-19-1.png index 539111a4..a01add10 100644 Binary files a/man/figures/README-unnamed-chunk-19-1.png and b/man/figures/README-unnamed-chunk-19-1.png differ diff --git a/man/figures/README-unnamed-chunk-21-1.png b/man/figures/README-unnamed-chunk-21-1.png index f37b8ea9..d0a3a53e 100644 Binary files a/man/figures/README-unnamed-chunk-21-1.png and b/man/figures/README-unnamed-chunk-21-1.png differ