1

geom_path内側に暗い点がある が必要になることがよくあります。したがって、 andgeom_dotpathを呼び出す代わりに使用できる new が必要です。geom_pathgeom_point

LineColours <- brewer.pal(n=8,name="Paired")

ggplot() +
geom_path(data=mtcars, aes(x=mpg, y=qsec), size=1.5, colour=LineColours[3]) +
geom_point(data=mtcars, aes(x=mpg, y=qsec), size=1.5, colour=LineColours[4])

新しい関数がggplot2 の明るい色と暗い色のペアを生成して、より暗い色を自動的に見つけることができれば、最適です。

4

1 に答える 1

5

カラーピッキングについてはわかりませんが、まったく新しいジオメトリを定義する必要はありません。関連するレイヤーを返す関数を記述できるはずです。

geom_dotpath <- function(data,x,y,pathCol,ptCol,...){
  p1 <- geom_path(data = data,aes_string(x = x,y = y),color = pathCol,...)
  p2 <- geom_point(data = data,aes_string(x = x,y = y),color = ptCol,...)
  list(p1,p2)
}

ggplot() + geom_dotpath(data = mtcars,
                        x = "mpg",
                        y = "qsec",
                        pathCol = LineColours[3],
                        ptCol = LineColours[4],
                        size = 1.5)
于 2012-12-12T03:05:35.707 に答える