Добавление линий в лесной участок

Question

Я хотел бы добавить в таблицу разделительные метки столбцов (жирный шрифт) из приведенных ниже данных. У меня есть компонент, использующий функцию hrzl_lines, но я не могу найти способ, чтобы линии появлялись на любой части моего лесного участка.

Я также хотел бы усы в конце лесных участков. Я включил вершины = ИСТИНА, но это не работает.

forestplot_acm <-
  structure(list(
    coeff = c(NA, NA, 1.19, 1.09, 1.11, 1.12, NA),
    lower = c(NA, NA, 1.09, 1.01, 1.01, 1.02,NA),
    upper = c(NA, NA, 1.30, 1.22, 1.22, 1.23, NA)),
    .Names = c("coeff","lower","upper"),
    row.names =c(NA,-7L),
    class = "data.frame")

tabletext <- cbind(
c("", "Model Name", "Base Model", "Model 1", "Model 2", "Model 3", NA),
c("", "HR", "1.19", "1.09", "1.11", "1.11", NA),
c("", "P Value", "<0.001", "0.03", "0.03","0.02", NA))

forestplot(tabletext,
           hrzl_lines = list("2" = gpar(lty = 2, col="#000044")),
           forestplot_acm$coeff, 
           forestplot_acm$lower,
           forestplot_acm$upper, 
           zero = 1,
           is.summary=c(TRUE,TRUE,rep(FALSE,5)),
           line.margin = (0.2),
           xticks = c(1,1.05,1.1,1.15,1.2,1.25,1.3,1.35),
           col=fpColors(box="royalblue",line="black", hrz_lines = 
           "#000044"),
           lineheight = "auto",
           vertices = TRUE)