# Create example data
data <- data.frame(
fold_change = c(2.3, 0.3, -0.4, -4, 1),
pval = c(0.001, 0.7, 0.9, 0.003, 0.03),
start = c(20, 30, 45, 90, 140),
end = c(33, 40, 64, 100, 145),
protein_length = c(rep(150, 5)),
protein_id = c(rep("P1", 5))
)
# Plot Woods' plot
woods_plot(
data = data,
fold_change = fold_change,
start_position = start,
end_position = end,
protein_length = protein_length,
protein_id = protein_id,
colouring = pval
)
Run the code above in your browser using DataLab