1

x と時間としましょう。列 x のヒストグラムを作成し、列時間の値の集計に基づいて各バーに色を付けます。集計は、ヒストグラムに使用されるブレークによってグループ化されます。そう、

d = cbind(c(rep(1,3), rep(2,3)), c(10,20,10,20,10,20))
names(d) = c("x", "time")
hist(d[,"x"])

素敵なバープロットが得られます。たとえば、自分の色に次のようなものが必要だとしましょう:

palette(rainbow(25))
hist(d[,"x"], col=d[,"time"], n=10)

col を、時間列の集計関数 (平均など) である長さ 10 のベクトルにしたいと思います。

4

2 に答える 2

1

私はこれをplyrandで行いggplot2ます：

require(plyr)
require(ggplot2)

d <- data.frame(x=c(rep(1:4, each=4)), time=sample(10:100, 16, replace=T))
d <- ddply(d, .(x), transform, mean.time=mean(time))

ggplot(d, aes(x=x, group=x, fill=mean.time)) +
  geom_histogram()

ここに画像の説明を入力

于 2012-08-08T20:58:15.050 に答える
0

私が正しく理解していれば、各 x の時間値を平均し、ヒストグラムをプロットしたいと思います。しかし、どの色を使いたいですか？平均時間値ま​​たは x 値に基づく勾配または個別?

この例を出発点と考えてください

require(ggplot2)
d <- data.frame(x=c(rep(1:4, each=4)), time=sample(10:100, 16, replace=T)) # thanks to Andy :)
ggplot(d, aes(x=factor(x), y=time)) + 
stat_summary(fun.y="mean", geom="bar", aes(fill=factor(d$x)))

また

ggplot(d, aes(x=factor(x), y=time)) + 
stat_summary(fun.y="mean", geom="bar", aes(fill=d$x))
于 2012-08-09T04:17:52.123 に答える