Replaced deprecated ggplot2 functions

FelixErnst · Jan 17, 2024 · e338cd2 · e338cd2
1 parent 9e5ae36
commit e338cd2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: tRNA
 Title: Analyzing tRNA sequences and structures
-Version: 1.21.0
-Date: 2022-12-19
+Version: 1.21.1
+Date: 2024-01-17
 Authors@R: person("Felix GM", 
  "Ernst",
  email = "felix.gm.ernst@outlook.com",

diff --git a/R/tRNA-plot.R b/R/tRNA-plot.R
@@ -370,7 +370,7 @@ setMethod(
  df[[name]][df[[name]]$value == 0,"value"] <- "No"
  plot <- ggplot2::ggplot(df[[name]],
  ggplot2::aes_(x = ~id,
- y = ~((..count..)/sum(..count..)),
+ y = ~(ggplot2::after_stat(count)/sum(ggplot2::after_stat(count))),
  fill = ~colour)) +
  ggplot2::geom_bar(position = "fill") +
  ggplot2::scale_x_discrete(name = "Sample") +