Permalink
Browse files

arrow of geom-path can be filled.

  • Loading branch information...
1 parent 1df1e82 commit 35a7e3282e6ddec0e2a0917815c29a6b571f1309 @kohske kohske committed Jun 26, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 R/geom-path-.r
View
@@ -166,7 +166,7 @@ GeomPath <- proto(Geom, {
x[!end], y[!end], x[!start], y[!start],
default.units="native", arrow = arrow,
gp = gpar(
- col = alpha(colour, alpha)[!end],
+ col = alpha(colour, alpha)[!end], fill = alpha(fill, alpha)[!end],
lwd = size[!end] * .pt, lty = linetype[!end],
lineend = lineend, linejoin = linejoin, linemitre = linemitre
)
@@ -179,7 +179,7 @@ GeomPath <- proto(Geom, {
x, y, id = id,
default.units = "native", arrow = arrow,
gp = gpar(
- col = alpha(colour, alpha)[start],
+ col = alpha(colour, alpha)[start], fill = alpha(fill, alpha)[start],
lwd = size[start] * .pt, lty = linetype[start],
lineend = lineend, linejoin = linejoin, linemitre = linemitre)
)
@@ -200,7 +200,7 @@ GeomPath <- proto(Geom, {
default_stat <- function(.) StatIdentity
required_aes <- c("x", "y")
- default_aes <- function(.) aes(colour="black", size=0.5, linetype=1, alpha = NA)
+ default_aes <- function(.) aes(colour="black", size=0.5, linetype=1, alpha = NA, fill = "white")
guide_geom <- function(.) "path"
})

0 comments on commit 35a7e32

Please sign in to comment.