ggplot2で-infinityからinfinityまでの線ですか？

Question

私はこれを行うことができます

ggplot2でこのような何かをプロットしたいと思います：

library(ggplot2) 
ggplot() + geom_hline(yintercept=1) + 
    ylab("Likelihood") + 
    theme(axis.ticks = element_blank(), axis.text.y = element_blank(), 
     panel.background = element_blank()) 

しかし、私はまだ-infinity 0での行を追加する必要があります無限遠

Answer 1

this postの少しの助けを借りて、 *あなたが軸線に矢印を追加することができます*のggplot2の開発版でFYI

ggplot() + geom_hline(yintercept=1) + 
    ylab("Likelihood") + 
    xlab('')+ 
    theme(axis.ticks = element_blank(), axis.text.y = element_blank(), 
      panel.background = element_blank())+ 
    scale_x_continuous(breaks = c(-5,0,5), 
         labels = c(expression(-infinity), 0, expression(infinity)), 
         limits = c(-5,5))+ 
    geom_segment(aes(x = -Inf, xend = Inf, y = -1, yend = -1), 
       arrow = arrow(length = unit(.2, 'cm')))+ 
    geom_segment(aes(x = Inf, xend = -Inf, y = -1, yend = -1), 
       arrow = arrow(length = unit(.2, 'cm')))+ 
    ylim(c(-1,3))