4
2

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 3 years have passed since last update.

MDG(名古屋大学 安田・遠藤・浦田研究室)Advent Calendar 2019

Day 3

Rを使って綺麗なグラフを書いてみよう

Last updated at Posted at 2019-12-04

#はじめに
先日Rを使って綺麗なグラフを描けることを知ったのでシェアします。

使ったデータはこちら↓
https://github.com/rfordatascience/tidytuesday
色んなデータがあるので、データで遊んでみたい人はぜひ使ってみてください!

#今回作ったもの
今回は2019-01-08「IMDbが発表した1990年〜2018年のテレビ番組の評価」を使用しました。
どれ程評価があったのかを点の大きさで示し、テレビ番組のシリーズで点を繋げてみました。
これだとあまりggplot2のすごさが伝わっていない気がします…。
30A8A420-2EF4-4976-89C6-BE641A7FB525.png

tidytuesdayのデータを使って他の皆さんが作ったものの方が凄いのでこちらを見てみてください↓
https://mobile.twitter.com/hashtag/tidytuesday%21?lang=en

#やり方
##①tidyverseがライブラリに存在するか確認
tidyverseがなければエラーが出るので、install.packages("tidyverse")でインストールします。

library(tidyverse)

これでggplot2が使えるようになります。

##②データをRStudioに読み込む
githubから自分のパソコンにクローンしてからデータを読み込む。

setwd("~/research/tidytuesday/data/2019/2019-01-08")
library(readr)
IMDb_Economist_tv_ratings <- read_csv("IMDb_Economist_tv_ratings.csv")
View(IMDb_Economist_tv_ratings)

##③グラフを作る
今回作ったグラフは下記のコマンドで作成できます。

ggplot(IMDb_Economist_tv_ratings %>% filter(av_rating>6.5), aes(date, av_rating, col=log(share))) + geom_point(aes(size=share)) + geom_path(aes(group=title, alpha=3)) + scale_color_viridis_c()

#感想
ggplot2にはまだまだ面白そうな機能があるので遊んでみたいです。

#参考Webサイト
ggplot2の使い方
https://rstudio.com/wp-content/uploads/2015/03/ggplot2-cheatsheet.pdf

4
2
1

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
4
2

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?