Me gustaría crear un diagrama de barras en una espiral de Arquímedes, como se discutióaquí.

Con el objetivo final de algo comoesta, pero menos abrumador.

Aquí hay un marco de datos de muestra:

    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))

Puedo hacer un gráfico de barras, usando el siguiente código:

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

Y puedo hacer la espiral, usando el siguiente código:

    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')

Pero, ¿cómo (si es que puedo) puedo trazar las barras?en la espiral?

Esto es lo más cerca que he llegado: crear una espiral conmi datos en lugar de la fórmula anterior. Pero mis datos no se muestran realmente ...

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