# NOT RUN {
df <- data.frame(x = 1:100, y = seq(1, 200, by = 2))
df %>%
e_charts(x) %>%
e_polar(FALSE) %>%
e_angle_axis(FALSE) %>%
e_radius_axis(FALSE) %>%
e_line(y, coord.system = "polar", smooth = TRUE) %>%
e_legend(show = FALSE)
# }
Run the code above in your browser using DataLab