R语言绘制小提琴图geom_violin，如何给每个小提琴添加自定义直线？

R语言绘制小提琴图geom_violin，如何给每个小提琴添加自定义直线？

效果如下图所示：

数据按照下面的方式进行存储

下面提供所需要的代码：

#加载必要的包
rm(list = ls())
library(magrittr)
library(tidyverse)
library(dplyr)
library(ggplot2)

#首先读取数据
##加载数据
melted_df<- read.csv('E:\\R_Code\\plot_heat_map\\melted_df.csv', header = T) 
head(network_all)

actual_results_neg<- read.csv('E:\\R_Code\\plot_map\\actual_results_neg.csv', header = T)
head(actual_results_neg)

#自定义colorbar颜色信息
colors_map <- c("#FF6600", "#D73027", "#666666", "#31A354", "#F