専門的技術的、管理的職業の動向
long formatでデータを作成。```{r}dat_ <- gather(work,"key","value",-code)``````ggplot(dat_,aes(x=key,y=value,group=code))+ geom_line(size=2,aes(col=code))+labs(x="year",y="percent",fill="legend",title="専門的管理的職業の動向",caption = "国勢調査",subtitle = "19