Upload New File

Cytoscape/extract_mrna_names_from_mirna.R

+library(readxl)
+
+df <- read_excel("C:/Users/Emre/Desktop/multimir_results_cyto.xlsx")
+mrna <- read_excel("C:/Users/Emre/Desktop/mRNAs.xlsx")
+
+mrna_genes <-  mrna$external_gene_name
+
+filtered_df <- df[df$target_symbol %in% mrna_genes | duplicated(df$target_symbol) %in% mrna_genes, ]
+
+print(filtered_df)
+
+library(writexl)
+output_file <- ("C:/Users/Emre/Desktop/cytoscape.xlsx")
+write_xlsx(filtered_df, output_file)