{"author_name":"chito_ng","published":"2019-02-20 09:36:25","categories":["R","\u4f7f\u3044\u65b9\u30e1\u30e2(\u30e9\u30a4\u30d6\u30e9\u30ea)","\u66f8\u7c4d"],"image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/c/chito_ng/20190220/20190220085649.png","url":"https://knknkn.hatenablog.com/entry/2019/02/20/093625","version":"1.0","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","type":"rich","blog_title":"\u307e\u305a\u306f\u874b\u306e\u7ffc\u304b\u3089\u3002","author_url":"https://blog.hatena.ne.jp/chito_ng/","height":"190","title":"ggplot2\u899a\u66f8\u2462 \u6ce8\u91c8(\u89e3\u91c8\u88dc\u52a9\uff09 ","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fknknkn.hatenablog.com%2Fentry%2F2019%2F02%2F20%2F093625\" title=\"ggplot2\u899a\u66f8\u2462 \u6ce8\u91c8(\u89e3\u91c8\u88dc\u52a9\uff09  - \u307e\u305a\u306f\u874b\u306e\u7ffc\u304b\u3089\u3002\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","blog_url":"https://knknkn.hatenablog.com/","description":"\u5f15\u304d\u7d9a\u304d\u300cR\u30b0\u30e9\u30d5\u30a3\u30c3\u30af\u30af\u30c3\u30af\u30d6\u30c3\u30af\u300d\u3002 R\u30b0\u30e9\u30d5\u30a3\u30c3\u30af\u30b9\u30af\u30c3\u30af\u30d6\u30c3\u30af \u2015ggplot2\u306b\u3088\u308b\u30b0\u30e9\u30d5\u4f5c\u6210\u306e\u30ec\u30b7\u30d4\u96c6\u4f5c\u8005:Winston Chang\u767a\u58f2\u65e5: 2013/11/30\u30e1\u30c7\u30a3\u30a2: \u5927\u578b\u672c \u904e\u53bb\u8a18\u4e8b\u306f\u4ee5\u4e0b ggplot2\u899a\u66f8\u2460 \u68d2\u30b0\u30e9\u30d5 - \u307e\u305a\u306f\u874b\u306e\u7ffc\u304b\u3089\u3002 ggplot2\u899a\u66f8\u2461 \u6563\u5e03\u56f3 - \u307e\u305a\u306f\u874b\u306e\u7ffc\u304b\u3089\u3002 \u6ce8\u91c8\u3092\u3064\u3051\u308b annotate\u95a2\u6570\u3092\u7528\u3044\u308b\u3068\u3001\u30b0\u30e9\u30d5\u5185\u3067\u3042\u3089\u3086\u308b\u5e7e\u4f55\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u91cd\u306d\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u3002 \u30c6\u30ad\u30b9\u30c8 \u30aa\u30d7\u30b7\u30e7\u30f3geom = \"text\"\u3068\u3059\u308b\u3068\u4efb\u610f\u306e\u4f4d\u7f6e\u306blabel\u3067\u8a18\u8ff0\u3057\u305f\u30c6\u30ad\u30b9\u30c8\u3092\u6307\u5b9a\u3067\u304d\u308b\u3002 p <- ggplot(faithful, aes(x=erup\u2026"}