非Meta分析多列森林图绘制请求：基于蓝舌病疫苗统计数据

我希望绘制非Meta分析用途的森林图（Forestplot），用于展示蓝舌病疫苗统计结果，以便进行便捷对比。

我尝试过forestplot包，但始终出现各类错误，推测是因为我不需要该包计算的全部统计量。

我知道可通过ggplot轻松绘制森林图，但希望在每个条形图左侧添加多列不同变量，却不清楚如何在ggplot中实现，因为这些变量本质是类Y轴标签而非表格列。

以下为简化示例代码：

data <- data.frame(Study = c("study 1", "study 2", "study 3"),
                   Vaccine_serotype = c(2,5,6),
                   Viral_challenge_serotype = c(2,5,8),
                   Booster = c('Yes', 'No', 'No'),
                   Sample_size = c(4,10,6),
                   Percentage_inhibition = c(100, 98, 70),
                   Mean_days_seropositivity = c(14, 12, 16),
                   Min_days_seropositivity = c(7, 7, 10),
                   Max_days_seropositivity = c(16, 15, 19))

第一幅图需求 #

• 左侧设置多列（含格式化标题）：Study、Vaccine serotype、Viral challenge serotype、Booster?
• 右侧森林图以Mean days seropositivity为数据点，误差线延伸至Min_days_seropositivity和Max_days_seropositivity
• 添加参考线为所有研究的均值（示例中为14）
• 数据点大小随Sample_size变化，若不可行则添加Sample_size列

第二幅图需求 #

• 结构类似第一幅图
• 以Percentage_inhibition为数据点，无Min/Max误差线
• 添加参考线为所有研究的Percentage_inhibition均值（示例中为89.3）
• 数据点大小随Sample_size变化

内容的提问来源于stack exchange，提问作者JDK