r - ggplot2ヒストグラムに手動で色を塗りつぶす方法

Question

ヒストグラムを生成していますが、特定のグループを特定の色で色付けしたいと思います。これが私のヒストグラムです：

14のグループがあり、最初の7つを赤、次の4つを青、最後の3つをオレンジに色付けしたいと思います。ggplotでこれを行うにはどうすればよいですか？ありがとう。

Answer 1

更新版

グループ化列を指定する必要はありませんggplot。コマンドははるかにコンパクトです。

library(ggplot2)
set.seed(1234)

# Data generating block
df <- data.frame(x=sample(1:14, 1000, replace=T))
# Colors
colors <- c(rep("red",7), rep("blue",4), rep("orange",3))

ggplot(df, aes(x=x)) +
  geom_histogram(fill=colors) +
  scale_x_discrete(limits=1:14)

古いバージョン

library(ggplot2)

# 
# Data generating block
#
df <- data.frame(x=sample(c(1:14), 1000, replace=TRUE))
df$group <- ifelse(df$x<=7, 1, ifelse(df$x<=11, 2, 3))

#
# Plotting
#
ggplot(df, aes(x=x)) +
  geom_histogram(data=subset(df,group==1), fill="red") +
  geom_histogram(data=subset(df,group==2), fill="blue") +
  geom_histogram(data=subset(df,group==3), fill="orange") +
  scale_x_discrete(breaks=df$x, labels=df$x)