Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
Call option formula for Geometric Laplace distributed stock
Зиккурат
Análise de Variâncias DIC e teste de Tukey 1
Paired t-test [Access Medical Information]
Practice
26-08-2020Teste
NewtonMin-12-02-2021
AjusteNaoLinear11-02-21
R added
Teste