1

各バーの多数派クラスごとにヒストグラムバーに色を付けるための便利な関数を作成しました。

color_hist <- function(x, cats, ...){
  hist <- hist(x, plot=FALSE, ...)
  cuts <- cut(x, breaks=hist$breaks)

  color = apply(table(cuts, cats), 1, which.max)

  hist(x, col=color,...)
}

color_hist(iris[,4], iris[,5])

カラーヒストリー

可能な限りの動作を再現したいのですhist()が、元のヒストグラムから色付きのヒストグラムにタイトルとxラベルを渡す方法がわかりません。

hist2

新しいヒストグラムに古いヒストグラムと同じデフォルトのタイトル/xlabelを付けたいのですが、他のユーザー指定のパラメーターも渡したいのですが。誰かが私がこの問題を解決するのを手伝ってくれるか、または他の方法でこの機能を改善することができますか？

（クラスのパーセンテージに応じて、色を互いにブレンドさせることができれば、それもクールです...）

4

1 に答える 1

5

のコードを見てくださいhist.default。これがそこでどのように処理されるか...

color_hist <- function(x, cats, xlab = xname, main = paste("Histogram of", xname), ...){
  xname <- paste(deparse(substitute(x), 500), collapse = "\n")
  hist <- hist(x, plot=FALSE, ...)
  cuts <- cut(x, breaks=hist$breaks)

  color = apply(table(cuts, cats), 1, which.max)

  hist(x, col=color, xlab = xlab, main = main, ...)
}

color_hist(iris[,4], iris[,5])

ここに画像の説明を入力

于 2012-10-09T22:17:52.917 に答える