見出し画像

専門的技術的、管理的職業の動向

スクリーンショット 2021-05-29 14.08.03


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 = "1995-2015")+
guides(color=guide_legend(reverse = TRUE))+
theme_minimal(base_family = "HiraKakuProN-W3")
```
ggplotのaesの中で`group=code`とし、また、geom_lineのaesの中で`col=code`と設定している。`size=2`は、aesの外で設定している。


```{r,echo=FALSE,fig.width=6,fig.asp=0.618,out.width="70%",fig.align="center"}
library(ggplot2)
ggplot(dat_,aes(x=key,y=value,group=code))+
 geom_line(size=2,aes(col=code))+
 geom_point(col="grey")+
labs(x="year",y="percent",title="専門的管理的職業の動向",caption = "国勢調査",subtitle = "1995-2015",col="legend")+
guides(color=guide_legend(reverse = TRUE))+
theme_minimal(base_family = "HiraKakuProN-W3")
```

この記事が気に入ったらサポートをしてみませんか?