Extracting sample names according to geographical region (R script)

#R script was written to extract the sample names according to geographical region from provided data sample set:

Tab = read.table(file = "D:/Downloads/metadata_new_pipeline_final_run_fws_v5.txt",comment="",header = TRUE)
write.table(tab,file="metadata_new_pipeline_final_run_fws_v5.csv",sep=",",col.names=TRUE,row.names=FALSE,quote = FALSE)
df <- data.frame(tab)
#To find sample names acc to country
brazil <- subset(df, COUNTRY == "Brazil")
list1 <- list(brazil$run_accessions_2)
list1 <- data.frame(list1)
peru <- subset(df, COUNTRY == "Peru")
list2 <- list(peru$run_accessions_2)
list2 <- data.frame(list2)
columbia <- subset(df, COUNTRY == "Colombia")
list3 <- list(columbia$run_accessions_2)
list3 <- data.frame(list3)