fix string replace to fix gene_fpkm sample nums

epigeneticstoocean · Feb 22, 2022 · 1d9c6df · 1d9c6df
1 parent fd53c74
commit 1d9c6df
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/analyses/gene_fpkm.csv b/analyses/gene_fpkm.csv
diff --git a/code/ballgown_analysis.Rmd b/code/ballgown_analysis.Rmd
@@ -720,7 +720,7 @@ whole_gx_table_t_rownames <- rownames_to_column(whole_gx_table_t, "library")
 # Create new column of old sample IDs
 # Will be used for merging with phenotyp table
 whole_gx_table_t_rownames <- whole_gx_table_t_rownames %>%
-  mutate(OldSample.ID = (str_sub(library, -4, 9))) %>% 
+  mutate(OldSample.ID = (str_remove(library, "FPKM."))) %>% 
   relocate(OldSample.ID, .after = library)
 
 # Merge FPKM gene table with phenotype table to get Treatments and Sex for each library