色を変えてggplot2の線にシェイプを追加するgeom_freqpoly

Question

geom_freqpolyを使ってプロットされた線にシェイプを追加しようとしています。

data <- data.frame(time=runif(1000,0,20000), 
        class=c("a","b","c","d")) 

ggplot(data, aes(time, colour = class)) + geom_freqpoly(binwidth = 1000) + geom_point(aes(shape=class)) 

が、これはこのエラーを生成します。 'エラーを：geom_pointは以下の行方不明の美学を必要とします。Y'

どのように私はこのエラーを解決することができますか？

もう1つは、線を描くために単一の色（例えば青色）を使用したいのですが、scale_colour_brewer()で私は色の縮尺を変更できません。最も明るい色がほぼ白であり、かろうじて見ることができます。

カラーのカスタム最小値と最大値を追加するにはどうすればよいですか？これについて

Answer 1

どのように？あなたが得ているエラーはgeom_pointによって生成されており、それにはxとyが必要なので削除しました。

ggplot(data, aes(x = time, color = class)) + 
    geom_freqpoly(binwidth = 1000) + 
    scale_color_brewer(palette = "Blues") + 
    theme_dark() 

あなたは暗い背景にしたくない場合は、RColorBrewerから手動で値を渡します。次の例では、コントラストを上げるために1秒おきに色を使用しています。あなたはlayer_data機能を使用してggplotオブジェクトから集計データを抽出することができ

p1 <- ggplot(data, aes(x = time, color = class)) + 
    geom_freqpoly(binwidth = 1000) + 
    scale_color_manual(values = RColorBrewer::brewer.pal(9, name = "Blues")[c(3, 5, 7, 9)]) 

EDIT

。

xy <- layer_data(p1) 

ggplot(xy, aes(x = x, y = count, color = colour)) + 
    theme_bw() + 
    geom_line() + 
    geom_point() + 
    scale_color_manual(values = RColorBrewer::brewer.pal(9, name = "Blues")[c(3, 5, 7, 9)])