Я хотел бы создать график штрихов на архимедовой спирали, как обсуждалось здесь.
С конечной целью чего-то вроде this, но менее подавляющим.
Здесь образец кадра данных:
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