Добавление geom_hline в график плотности с использованием coord_polar()

Question

Мне нужно добавить контрольную линию к моему графику плотности с использованием R и ggplot2.

Поскольку я использую полярные координаты, это должно сделать круг посреди моего сюжета. Я использую geom_hline(yintercept = .5), но ни одна строка не появляется на моем участке, когда я добавляю coord_polar().

Вот мой код.

ggplot(flights_sample2, aes(x = radians, fill = factor(nf, levels = c(8:0)))) + 
    geom_bar(binwidth = pi/18, position = "fill") + 
    scale_x_continuous(limits = c(0, 2*pi), breaks = c(0,pi/2, pi, 3*pi/2), 
              labels = c("N", "E", "S", "W")) + 
    coord_polar() + 
    xlim(0,2*pi) + 
    geom_hline(yintercept = .5) 

Любые предложения?

Answer 1

Если вы первый настроить ссылку с geom_line, а затем добавить coord_polar() вы можете получить опорный круг:

xx=seq(0,2*pi,length=10) 
yy=rep(2,10) 
g <- ggplot(flights_sample2, aes(x = radians, fill = factor(nf, levels = c(8:0)))) + 
    geom_bar(binwidth = pi/18, position = "fill") + 
    scale_x_continuous(limits = c(0, 2*pi), breaks = c(0,pi/2, pi, 3*pi/2), 
              labels = c("N", "E", "S", "W")) + 
     xlim(0,2*pi) + 
    geom_hline(aes(x=xx, y=yy)) 

g+coord_polar() 

Очевидно, что это не тестировалась с вашими данными и кодом, но он работал с пример на странице справки (coord_polar)