Как добавить метки второй оси в ggplot2?

Опираясь на мой предыдущий вопрос Я хочу добавить метку второй оси на противоположной стороне графика.

Фрейм данных выглядит следующим образом:

test <- structure(list(characteristic = structure(c(1L, 2L, 3L, 1L, 2L
),.Label = c("Factor1", "Factor2", "Factor3"), class = "factor"), 
    es = c(1.2, 1.4, 1.6, 1.3, 1.5), ci_low = c(1.1, 1.3, 1.5, 
    1.2, 1.4), ci_upp = c(1.3, 1.5, 1.7, 1.4, 1.6), label = structure(c(1L, 
    3L, 5L, 2L, 4L),.Label = c("1.2 (1.1, 1.3)", "1.3 (1.2, 1.4)", 
    "1.4 (1.3, 1.5)", "1.5 (1.4, 1.6)", "1.6 (1.5, 1.7)"), class = "factor"), 
    set = structure(c(1L, 1L, 1L, 2L, 2L),.Label = c("H", "S"
    ), class = "factor")),.Names = c("characteristic", "es", 
"ci_low", "ci_upp", "label", "set"), class = "data.frame", row.names = c(NA, 
-5L))

Используя Решение Тайлера , его график выглядит так, как на данный момент:

По аналогии с лесным участком я хотел бы добавить второй набор меток(labelпеременных в моем фрейме данных ), представляющих графические значения, предпочтительно в правой части панелей. Так что все это имитирует лесной участок, подобный этому примеру:

Я знаю, что вторая ось кажется не одобряемой . Однако это всего лишь еще один набор этикеток.. и, кажется, это обычай среди лесных участков.

Как это сделать в ggplot?