これは私のデータです:
type<-rep(c(0,1),100)
diff<-rnorm(100)
data<-data.frame(type,diff)
diff
のヒストリグラムをプロットする場合、次のようにします。
hist(data$diff)
しかし、type
に従ってヒストグラムを分割するために何をしたいのか。私はこれを行うことができます:
par(mfrow=c(1,2))
hist(data$diff[data$type==0])
hist(data$diff[data$type==1])
しかし、これが私に与えているのは、2つの異なるヒストグラムが並んでいるということです。私がやりたいのは、片側に0
のdiff
と、反対側にdiff
of 1
の単一のヒストグラムを作成することです。切れ目や境界線のない連続したバーを持つこのようなもの。これはおそらく、各因子ごとに軸が2つに分割されることを意味します。
ggplot2
パッケージを使用できます:
library(ggplot2)
ggplot(data,aes(x=diff))+geom_histogram()+facet_grid(~type)+theme_bw()
それらを「かわす」ことで同じプロットに置くこともできます:
ggplot(data,aes(x=diff,group=type,fill=type))+
geom_histogram(position="dodge",binwidth=0.25)+theme_bw()
それらをオーバーラップさせる場合、位置はposition="identity"
である必要があります
ggplot(data,aes(x=diff,group=type,fill=type))+
geom_histogram(position="identity",alpha=0.5,binwidth=0.25)+theme_bw()
最初のものと同じように見せたいが、境界線がない場合は、少しハックする必要があります。
data$diff[data$type==1] <- data$diff[data$type==1] + 6
ggplot(data,aes(x=diff,group=type,fill=type))+
geom_histogram(position="identity",alpha=0.5,binwidth=0.25)+theme_bw()+
scale_x_continuous(breaks=c(-2:2,4:8),labels=c(-2:2,-2:2))
そのプロットは格子パッケージを使用して作成されました
set.seed(1)
type<-rep(c(0,1),100)
diff<-rnorm(100)
data<-data.frame(type,diff)
library('lattice')
histogram(~ diff | type, data = data)
基本的なグラフィックスでそれを行う方法は次のとおりです
## first plot - left half of x-axis, right margin set to 0 lines
par(fig = c(0, .5, 0, 1), mar = c(5,4,3,0))
hist(data$diff[data$type==0], ann = FALSE, las = 1)
## second plot - right half of x-axis, left margin set to 0 lines
par(fig = c(.5, 1, 0, 1), mar = c(5,0,3,2), new = TRUE)
hist(data$diff[data$type==1], ann = FALSE, axes = FALSE)
axis(1)
axis(2, lwd.ticks = 0, labels = FALSE)
title(main = 'Histogram', xlab = 'x label', outer = TRUE, line = -2)