пакет и видовые окна. Я часто говорю людям, что для необычных пользовательских аннотаций, таких как это, часто быстрее / проще просто изменить изображение после факта в графическом редакторе, таком как Illustrator, или что-то в этом роде.
ираюсь построить соотношение шансов с помощью R / ggplot2, и я хочу добавить две стрелки под или рядом с меткой оси X. Один, указывающий влево, другой, указывающий вправо, демонстрирует влияние уменьшения / увеличения. Я пробовал много вещей, таких как geom_path, geom_line, но без особого успеха. Это мой код:
forest <- function(d, xlab="Odds Ratio", ylab="Influencing variables"){
require(ggplot2)
p <- ggplot(d, aes(x=ordered(x, levels=rev(x)), y=y, ymin=ylo, ymax=yhi)) +
geom_pointrange() +
geom_segment(aes(x = 0, xend = 0, y= 1, yend= 2)) +
coord_flip() +
geom_hline(aes(yintercept=1), lty=2) +
ylab(xlab) +
xlab(ylab) +
scale_y_log10()
return(p)
}
##Test Data
data <- data.frame( x = c("A","B","C","D","E","F","G","H","I"),
y = c(1.782,0.136,0.978,0.645,0.518,1.474,0.855,0.673,0.369))
data <- transform(data, ylo = (0.719,0.046,0.945,0.295,0.188,0.577,0.407,0.310,0.145),
yhi = c(4.420,0.398,1.012,1.411,1.424,3.768,1.798,1.460,0.940))
forest(data)
Добавление такой строки, как geom_line (aes (x = 1), arrow = arrow (length = unit (0.15, "cm")), color = "black", size = 1), приводит к появлению некоторых стрелок, но они конфликтуют с моими исходными данными.
Заранее спасибо за ваше решение, помощь или подсказку!
Марк