Update Heatmap_tutorial.md

Small edits to improve versatility
cxli233 · Nov 16, 2023 · 186183a · 186183a
1 parent 035cb3e
commit 186183a
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Heatmap_tutorial.md b/Heatmap_tutorial.md
@@ -153,7 +153,9 @@ my_data_reordered <- my_data %>%
   mutate(col = reorder(col, -n)) %>%  # this reorders the columns
   select(-n) %>% 
   inner_join(my_data_peak_values_reordered, by = "row") %>% 
-  mutate(row = reorder(row, n)) # this reorders the rows
+  mutate(peaked_at = reorder(peaked_at, n)) %>% 
+  mutate(order_rows = as.numeric(peaked_at)) %>% 
+  mutate(row = reorder(row, order_rows)) # this reorders the rows by the "peaked_at" column. 
   
 
 head(my_data_reordered)