solve NOTE for p-value and FC histogram

Author: ItsMeKathy

R/pvalue_FC_histogram.R

@@ -20,24 +20,24 @@ pvalue_foldchange_histogram <- function(RES,
   D <- data.frame(p = RES[[columnname_p]],
                   padj = RES[[columnname_padj]],
                   FC = RES[[columnname_FC]])
-
-  pl_hist_p <- ggplot2::ggplot(D, ggplot2::aes(x = p)) +
+  
+  pl_hist_p <- ggplot2::ggplot(D, ggplot2::aes(x = D[["p"]])) +
     ggplot2::geom_histogram(breaks = seq(0,1, 0.05)) +
     ggplot2::theme_bw() +
     ggplot2::labs(title = "Histogram of p-values",
          x = "p-value",
          y = "Frequency") +
     ggplot2::xlim(0,1)
 
-  pl_hist_padj <- ggplot2::ggplot(D, ggplot2::aes(x = padj)) +
+  pl_hist_padj <- ggplot2::ggplot(D, ggplot2::aes(x = D[["padj"]])) +
     ggplot2::geom_histogram(breaks = seq(0,1, 0.05)) +
     ggplot2::theme_bw() +
     ggplot2::labs(title = "Histogram of p-values",
          x = "Adjusted p-value",
          y = "Frequency") +
     ggplot2::xlim(0,1)
 
-  pl_hist_FC <- ggplot2::ggplot(D, ggplot2::aes(x = log2(FC))) +
+  pl_hist_FC <- ggplot2::ggplot(D, ggplot2::aes(x = log2(D[["FC"]]))) +
     ggplot2::geom_histogram() +
     ggplot2::theme_bw() +
     ggplot2::labs(title = "Histogram of p-values",