Update Figure_1.R

novoalab · Nov 7, 2024 · a7d2ade · a7d2ade
1 parent a7846c9
commit a7d2ade
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/Figure_1/Figure_1.R b/Figure_1/Figure_1.R
@@ -40,6 +40,10 @@ merged <- Reduce(function(x, y) merge(x, y, by = "pos"), inputs)
 # Set column names
 colnames(merged) <- c("position", files)
 
+# Set column names and remove ".csv" from each column name
+colnames(merged) <- c("position", gsub(".csv", "", files))
+
+
 # Write merged data to file
 #write.table(merged, file = "18S_summed_errors_all_samples.txt", quote = FALSE, row.names = TRUE, sep = "\t")
 
@@ -98,6 +102,9 @@ merged <- Reduce(function(x, y) merge(x, y, by = "pos"), inputs)
 # Set column names
 colnames(merged) <- c("position", files)
 
+# Set column names and remove ".csv" from each column name
+colnames(merged) <- c("position", gsub(".csv", "", files))
+
 # Write merged data to file
 #write.table(merged, file = "28S_summed_errors_all_samples.txt", quote = FALSE, row.names = TRUE, sep = "\t")