asdf, R - rextester

asdf

library(data.table)
library(dplyr)
library(ggplot2)

a<-" week posts   weekdate year month  col fct_month
    1    26 2001-01-01 2001     1 grey       Jan
    2    24 2001-01-08 2001     1 grey       Jan
    3    35 2001-01-15 2001     1 grey       Jan
    4    35 2001-01-22 2001     1 grey       Jan
    5    19 2001-01-29 2001     1 grey       Jan
    6    55 2001-02-05 2001     2 grey       Feb
    7    32 2001-02-12 2001     2 grey       Feb
    8    31 2001-02-19 2001     2 grey       Feb
    9    36 2001-02-26 2001     2 grey       Feb
   10    36 2001-03-05 2001     3 grey       Mar
    2    34 2002-01-07 2002     1 grey       Jan
    3    34 2002-01-14 2002     1 grey       Jan
    4    27 2002-01-21 2002     1 grey       Jan
    5    27 2002-01-28 2002     1 grey       Jan
    6    25 2002-02-04 2002     2 grey       Feb
    7    36 2002-02-11 2002     2 grey       Feb
    8    34 2002-02-18 2002     2 grey       Feb
    9    41 2002-02-25 2002     2 grey       Feb
   10    34 2002-03-04 2002     3 grey       Mar
   11    34 2002-03-11 2002     3 grey       Mar
"
mindf<-fread(a) %>% 
  mutate(weekdate=as.Date(weekdate, format="%Y-%m-%d"))
ggplot(data=mindf, aes(x=weekdate, y=posts, group = year, color = col)) + 
  ylim(0,NA) +
  geom_point(stat='identity') +
  geom_polygon(fill=NA, aes(group=year,color=year))+
  coord_polar(start =0) +
  scale_color_identity() +
  xlab('Week of the year')+
  ylab('Job ads posted per week') +
  scale_x_date(date_breaks = "1 month", date_labels = "%b")


run \| edit \| history \| help	0