---

title: “R script to create an igraph plot for the miRNA-target interactions” output: html_notebook

# Install and load required packages
install.packages("igraph")
library(igraph)

# Sample miRNA-target interactions (replace this with your data)
miRNA_targets <- data.frame(
  miRNA = c("miR-1", "miR-1", "miR-2", "miR-3", "miR-4"),
  target = c("PTEN", "TP53", "EGFR", "BRCA1", "BRCA2")
)

# Create an igraph object
g <- graph_from_data_frame(miRNA_targets, directed = TRUE)

# Set vertex labels (miRNAs and targets)
vertex_labels <- unique(c(miRNA_targets$miRNA, miRNA_targets$target))

# Plot the igraph
plot(g,
     layout = layout.circle,  # You can use different layouts for better visualization.
     vertex.label = vertex_labels,
     vertex.size = 30,
     edge.arrow.size = 0.5,
     edge.curved = 0.2,
     edge.label = E(g)$miRNA,  # Show miRNA names on edges
     edge.label.cex = 0.7,
     main = "miRNA Target Interactions"
)