{"blog_title":"yasuhisa's blog","type":"rich","width":"100%","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/s/syou6162/20161113/20161113003333.png","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.yasuhisay.info%2Fentry%2F20081021%2F1224589302\" title=\"R\u3067\u30af\u30ed\u30b9\u8868\u3092\u66f8\u304f - yasuhisa&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_url":"https://hatena.blog","author_name":"syou6162","title":"R\u3067\u30af\u30ed\u30b9\u8868\u3092\u66f8\u304f","categories":["R"],"description":"\u5b9f\u306f\u540c\u3058\u3053\u3068\u3092\u53bb\u5e74\u3082\u3084\u3063\u3066\u3044\u308b\u3093\u3060\u3051\u3069\u3001\u3088\u304f\u5206\u304b\u3089\u306a\u3044\u30b3\u30fc\u30c9\u3067\u3001\u3057\u304b\u3082\u3061\u3083\u3093\u3068\u3057\u3066\u306a\u3044\u3068\u3044\u3046\u3053\u3068\u3067\u66f8\u304d\u306a\u304a\u3057\u3066\u307f\u305f\u3002 cross.table <- function(x,y){ t <- table(x,y) #\u56de\u7b54\u306e\u9577\u3055\u3068\u304b\u306b\u3088\u3063\u3066\u3001mar\u306f\u5909\u66f4\u3057\u3066 par(mar=c(6,6,6,3)) col <- 2:(length(levels(y))+1) barplot(t(t/apply(t,1,sum)) * 100, col=col,horiz=T,axes=F,las=2) par(xpd=TRUE) title(main=paste(deparse(substitute(x)),\"\u3068\"\u2026","published":"2008-10-21 20:41:42","author_url":"https://blog.hatena.ne.jp/syou6162/","blog_url":"https://www.yasuhisay.info/","url":"https://www.yasuhisay.info/entry/20081021/1224589302","version":"1.0","height":"190","provider_name":"Hatena Blog"}