Merge pull request #48 from AnthonyChristidis/main

Fix minor code typos in plot functions.
ccb-hms · Jun 11, 2024 · 7887b4c · 7887b4c
2 parents a3bfea3 + 270c069
commit 7887b4c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/R/plot.calculateDiscriminantSpace.R b/R/plot.calculateDiscriminantSpace.R
@@ -80,8 +80,7 @@ plot.calculateDiscriminantSpace <- function(x, cell_types, plot_type = c("scatte
             ggplot2::theme(panel.grid.minor = ggplot2::element_blank(),
                            panel.grid.major = ggplot2::element_line(color = "gray", linetype = "dotted"),
                            plot.title = ggplot2::element_text(size = 14, face = "bold", hjust = 0.5),
-                           axis.title = ggplot2::element_text(size = 12), axis.text = ggplot2::element_text(size = 10),
-                           axis.text.x = ggplot2::element_text(angle = 45, hjust = 1, size = 10))
+                           axis.title = ggplot2::element_text(size = 12), axis.text = ggplot2::element_text(size = 10))
         return(scatter_plot)
 
     } else if (plot_type == "boxplot"){ # Boxplot
@@ -131,8 +130,7 @@ plot.calculateDiscriminantSpace <- function(x, cell_types, plot_type = c("scatte
             ggplot2::theme(panel.grid.minor = ggplot2::element_blank(),
                            panel.grid.major = ggplot2::element_line(color = "gray", linetype = "dotted"),
                            plot.title = ggplot2::element_text(size = 14, face = "bold", hjust = 0.5),
-                           axis.title = ggplot2::element_text(size = 12), axis.text = ggplot2::element_text(size = 10),
-                           axis.text.x = ggplot2::element_text(angle = 45, hjust = 1, size = 10))
+                           axis.title = ggplot2::element_text(size = 12), axis.text = ggplot2::element_text(size = 10))
         return(box_plot)
     }
 }
diff --git a/R/plotGeneExpressionDimred.R b/R/plotGeneExpressionDimred.R
@@ -119,7 +119,7 @@ plotGeneExpressionDimred <- function(se_object,
       plot_obj <- ggplot2::ggplot(data_pairs, ggplot2::aes(x = x_value, y = y_value, color = Expression)) +
           ggplot2::geom_point(size = 1, alpha = 0.5) + 
           ggplot2::xlab("") + ggplot2::ylab("") + 
-          scale_color_gradient(low = "grey90", high = "blue") +
+          ggplot2::scale_color_gradient(low = "grey90", high = "blue") +
           ggplot2::facet_grid(rows = ggplot2::vars(y), cols = ggplot2::vars(x), scales = "free") +
           ggplot2::theme_bw() +
           ggplot2::theme(panel.grid.minor = ggplot2::element_blank(),