ベース R はパーセンテージを報告しないためhist()
(および freq=FALSE も役に立たない)、私はlattice
.
histogram(rnorm(10000))
次のことで私を助けてください:
- プロットの周りのボックスを取り除くにはどうすればよいですか?
- x/y ラベルと x/y 軸の cex を個別に定義するにはどうすればよいですか?
- x 軸と y 軸にカスタム名を付けるにはどうすればよいですか?
または、 に固執したい場合はhist()
、以下に示すように、わずかに変更できます。
この関数はhist()
、ヒストグラムの構造に関するあらゆる種類の有用な情報を含むオブジェクトである戻り値を取得するために 1 回呼び出します。次に、(a) ビンの幅と (b) 各バーの密度を使用して、(c) 各バーに含まれる観測値のパーセンテージを計算します。
histPercent <- function(x, ...) {
H <- hist(x, plot = FALSE)
H$density <- with(H, 100 * density* diff(breaks)[1])
plot(H, freq = FALSE, ...)
}
histPercent(rnorm(10000), col="dodgerblue", las=1,
xlab="Echs-axis", ylab="Why-axis")
これで始められるはずです:
library(lattice)
histogram(rnorm(10000),
main=list(
label="Main plot title",
cex=1.5),
xlab=list(
label="Custom x-axis label",
cex=0.75),
ylab=list(
label="My very own y-axis label",
cex=1.2),
scales=list(cex=0.5),
par.settings = list(axis.line = list(col = 0))
)