Merge pull request #70 from acastroaraujo/patch-1

Minor fix to plots.R
RoheLab · Dec 6, 2023 · dcd5f1b · dcd5f1b
2 parents 1eb2878 + 2139b3e
commit dcd5f1b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plots.R b/R/plots.R
@@ -68,7 +68,7 @@ plot_svd_u <- function(fa, factors = 1:min(5, fa$rank)) {
       leverage = purrr::pmap_dbl(., sum)
     ) %>%
     dplyr::sample_n(min(nrow(.), 1000), weight = leverage^2) %>%
-    dplyr::mutate(node = row_number()) %>%
+    dplyr::mutate(node = dplyr::row_number()) %>%
     tidyr::gather(eigen, value, -node) %>%
     ggplot2::ggplot(ggplot2::aes(node, value)) +
     ggplot2::geom_line() +
@@ -92,7 +92,7 @@ plot_svd_v <- function(fa, factors = 1:min(5, fa$rank)) {
       leverage = purrr::pmap_dbl(., sum)
     ) %>%
     dplyr::sample_n(min(nrow(.), 1000), weight = leverage^2) %>%
-    dplyr::mutate(node = row_number()) %>%
+    dplyr::mutate(node = dplyr::row_number()) %>%
     tidyr::gather(eigen, value, -node) %>%
     ggplot2::ggplot(ggplot2::aes(node, value)) +
     ggplot2::geom_line() +