syou6162 https://blog.hatena.ne.jp/syou6162/ yasuhisa's blog https://www.yasuhisay.info/ R 実は同じことを去年もやっているんだけど、よく分からないコードで、しかもちゃんとしてないということで書きなおしてみた。 cross.table <- function(x,y){ t <- table(x,y) #回答の長さとかによって、marは変更して 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)),"と"… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.yasuhisay.info%2Fentry%2F20081021%2F1224589302" title="Rでクロス表を書く - 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> https://cdn-ak.f.st-hatena.com/images/fotolife/s/syou6162/20161113/20161113003333.png Hatena Blog https://hatena.blog 2008-10-21 20:41:42 rich https://www.yasuhisay.info/entry/20081021/1224589302 1.0 100%