Спиральный барплот с использованием ggplot &ordin_polar (Condegram)

Я хотел бы создать гистограмму на архимедовой спирали, как обсуждалосьВот.

С конечной целью чего-то вродеэтот, но менее подавляющим.

Вот примерный кадр данных:

    test <- structure(list(month = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
                                     1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), 
           year = c(2015, 2015, 2015, 2015, 2015, 2015, 2015, 
                    2015, 2015, 2015, 2015, 2015, 2016, 2016, 
                    2016, 2016, 2016, 2016, 2016, 2016, 2016, 
                    2016, 2016, 2016), 
           value = c(49, 34, 35, 34, 50, 35, 48, 50, 44, 38, 42, 
                   43, 33,30, 42, 43, 58, 55, 47, 36, 35, 53, 
                   61, 59)), 
          .Names = c("month", "year", "value"), 
          class = "data.frame", row.names = c(NA, -24L))

Я могу сделать гистограмму, используя следующий код:

    ggplot(monthly, aes(x = ym, y = value)) +
      geom_bar(stat = "identity") 

И я могу сделать спираль, используя следующий код:

    a <- 0   #Any number here & it still looks the same to me...
    b <- 10  #Any number here & it still looks the same to me...
    theta <- seq(0,10*pi, 0.01)
    r <- a + b*theta
    df <- data.frame(x = r*cos(theta), y = r*sin(theta))
    ggplot(df, aes(x,y)) + 
      geom_point(col = 'red')

Но как (если вообще) я могу построить барына спираль?

Это примерно так же близко, как я получил: создание спирали смой Данные, а не приведенная выше формула. Но мои данные на самом деле не отображаются ...

    d <- ggplot(monthly, aes(x = month, y = month, color = year)) + 
      geom_path(size = 2) + 
      coord_polar() +
      theme_minimal() + 
      theme(legend.position = "none")
    d