final_df <- data.frame(id = 1:10, Count = c(10, 20, 30, 40, 50, 60, 70, 80, 90, 100),
method = rep("Method1", 10),
Description = LETTERS[1:10],
point_position = seq(10, 100, 10),
test_color = sample(c("red", "blue"), 10, replace = TRUE))
pal <- c("Method1" = "blue")
highlight_ids <- c(1, 5, 9)
enrich_polar_bubble(final_df, pal, highlight_ids)
Run the code above in your browser using DataLab