{"blog_url":"https://uncorrelated.hatenablog.com/","author_name":"uncorrelated","type":"rich","version":"1.0","width":"100%","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Funcorrelated.hatenablog.com%2Fentry%2F20150208%2F1423402647\" title=\"R\u3067\u5404\u96c6\u56e3\u306b\u304a\u3051\u308b\u5927\u304d\u3044\u65b9\u304b\u30892\u756a\u76ee\u306e\u5024\u3092\u8abf\u3079\u308b -  \u9921\u5b50\u4ed8\u309b\u9332\u309b\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","categories":["R\u8a00\u8a9e"],"height":"190","author_url":"https://blog.hatena.ne.jp/uncorrelated/","image_url":null,"published":"2015-02-08 22:37:27","description":"\u30c4\u30a4\u30c3\u30bf\u30fc\u3067\u898b\u304b\u3051\u305f\u5fa1\u984c\u306a\u306e\u3067\u3059\u304c\u3001\uff08\u5b66\u6821\u306e\u8ab2\u984c\u306a\u3069\u3067\uff09\u3042\u308a\u305d\u3046\u306a\u306e\u3067\u3001\u7f6e\u3044\u3066\u304a\u304d\u307e\u3059\u3002 # \u304a\u8a66\u3057\u30c7\u30fc\u30bf\u3092\u4f5c\u308b set.seed(20150208) n <- 30 df <- data.frame(type=c(\"A\", \"B\", \"C\")[round(runif(n, min=0.5, max=3.5))], value=60 - ((1:n)-10)^2)# \u30bf\u30a4\u30d7\u3054\u3068\u306b\u6700\u5927\u5024\u3092\u6c42\u3081\u308b tapply(df$value, df$type, max)# 2\u756a\u76ee\u306e\u5024\u3092\u6c42\u3081\u308b tapply(df$value, df$type, function(x){ # \u964d\u9806\u30bd\u30fc\u30c8\u3092\u3057\u30662\u756a\u76ee\u3092\u8fd4\u3059 # \u6700\u2026","title":"R\u3067\u5404\u96c6\u56e3\u306b\u304a\u3051\u308b\u5927\u304d\u3044\u65b9\u304b\u30892\u756a\u76ee\u306e\u5024\u3092\u8abf\u3079\u308b","blog_title":" \u9921\u5b50\u4ed8\u309b\u9332\u309b","url":"https://uncorrelated.hatenablog.com/entry/20150208/1423402647"}