3

すべての観測値のヒストグラムで観測点 (サブセット) を示すヒストグラムを作成しようとしています。意味のあるものにするために、各ポイントに異なる色を付け、プロットに凡例を配置する必要があります。私の問題は、プロットにスケールを表示できないように見えることです。以下は、私が試した例です。

subset <-1:8
results = data.frame(x_data = rnorm(5000),TestID=1:5000)
m <- ggplot(results,aes(x=x_data))
m+stat_bin(aes(y=..density..))+
stat_density(colour="blue", fill=NA)+
  geom_point(data = results[results$TestID %in% subset,], 
       aes(x = x_data, y = 0),  
       colour = as.factor(results$TestID[results$TestID %in% subset]),
       size = 5)+
scale_colour_brewer(type="seq", palette=3)

Ideally, I'd like the points to be positioned on the density line(but I'm really unsure of how to make that work, so I'll settle to position them at y = 0). What I need most urgently is a legend which indicates the TestID that corresponds to each of the points in subset.

Thanks a lot to anyone who can help.

4

1 に答える 1

3

これは 2 番目のポイントに対処します。凡例が必要な場合は、その変数を美学として含め、変数 (この場合は色) にマップする必要があります。したがって、実際に行う必要があるのは、次のようcolour = as.factor(results$TestID[results$TestID %in% subset])に呼び出し内に移動することだけです。aes()

ggplot(results,aes(x=x_data)) + 
  stat_bin(aes(y=..density..))+
  stat_density(colour="blue", fill=NA)+
  geom_point(data = results[results$TestID %in% subset,], 
             aes(x = x_data, 
                 y = 0, 
                 colour = as.factor(results$TestID[results$TestID %in% subset])
                 ),
             size = 5) +
  scale_colour_brewer("Fancy title", type="seq", palette=3)
于 2013-06-04T14:27:25.480 に答える