{"height":"190","author_url":"https://blog.hatena.ne.jp/chito_ng/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fknknkn.hatenablog.com%2Fentry%2F2020%2F06%2F20%2F185917\" title=\"ggplot\u3067\u4ed6\u306e\u5909\u6570\u3092\u57fa\u6e96\u306b\u4e26\u3073\u66ff\u3048\u308b - \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>","description":"\u6570\u5024\u3067\u4e26\u3073\u66ff\u3048\u308b\u5834\u5408 \u4ee5\u4e0b\u306e\u3088\u3046\u306a\u30b0\u30e9\u30d5\u3067\u8003\u3048\u308b\u3002 library(tidyverse) data(diamonds) # \u30c7\u30fc\u30bf\u4f5c\u6210 df = diamonds %>% group_by(clarity, cut) %>% summarise(n = n()) %>% ungroup() # \u308f\u304b\u308a\u3084\u3059\u3044\u3082\u306e\u3060\u3051\u62bd\u51fa df_filtered = df %>% filter(clarity %in% c('SI2', 'VVS2', 'IF')) # clarity\u306e\u6a19\u6e96\u306e\u9806\u756a df_filtered %>% ggplot(aes(n, cut, fill = clarity)) + geom\u2026","provider_url":"https://hatena.blog","blog_title":"\u307e\u305a\u306f\u874b\u306e\u7ffc\u304b\u3089\u3002","width":"100%","published":"2020-06-20 18:59:17","url":"https://knknkn.hatenablog.com/entry/2020/06/20/185917","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/c/chito_ng/20200620/20200620180711.png","version":"1.0","blog_url":"https://knknkn.hatenablog.com/","author_name":"chito_ng","provider_name":"Hatena Blog","categories":["R","\u4f7f\u3044\u65b9\u30e1\u30e2(\u4e0d\u4fbf\u89e3\u6c7a)","\u53ef\u8996\u5316"],"title":"ggplot\u3067\u4ed6\u306e\u5909\u6570\u3092\u57fa\u6e96\u306b\u4e26\u3073\u66ff\u3048\u308b","type":"rich"}