[R] xy plot key colors don't match plot

[Deepayan Sarkar]

On 4/27/07, Ken Nussear <knussear at usgs.gov> wrote:
> Hi
>
> Trying to finish a simple xyplot, but the key colors don't match
> those specified on the plot. I have only been able to change the
> color of the key text, but not the points.
>
>
> Hours <- c
> (25.88,32.31,24.04,23.27,16.64,19.75,27.25,17.9,20.45,29.65,20.83,27.17,
> 28.42,28,18.85,17.4,19.75,25.34,23.23,29.85,28.96,25.6,14.67,20.55,25.77
> ,
> 23.18,30.37,25.68,24.74,23.57,20.12,15.47,27.63,35,21.88,23.17,26.65,26.
> 5,19.64,19.57,26.67,23.03,21.85,28.43,27.11,17.43,24.36,23.88,24.13,31.2
> 7,28.82)
>
> DistanceMeters <- c
> (244.77,101.49,188.54,94.76,4.31,34.83,91.76,8.5,1,475.71,337.13,737.32,
> 272.06,173.71,5.39,45.39,92.69,304.39,487.79,342.87,396.17,382.04,1,0,26
> 9.4,441.37,303.39,330.39,169.89,462.5,84.62,41.24,1,574.75,5.65,61.52,16
> 0.99,94.14,103.93,24.38,575.64,4.15,251.73,347.13,5.8,69.92,477.86,465.7
> 3,152.09,390.05,205.81)
>
> Surveyor <- as.factor(c
> ("K9","Human","K9","Human","Human","Human","K9","Human","Human","K9","K9
> ","K9","K9","Human","Human","Human","Human","Human","K9","Human","Human"
> ,"K9","Human","Human","K9","Human","Human","Human","Human","Human","K9",
> "K9","K9","Human","Human","K9","K9","K9","Human","Human","Human","Human"
> ,"Human","K9","Human","Human","K9","Human","Human","Human","Human"))
>
> library(lattice)
>
>
> xyplot(DistanceMeters~Hours, groups=Surveyor, xlab="Time (h)",
> ylab="Distace Moved (m)", pch = c(1, 16), col=c("black","black"),
> auto.key=T)

You need

xyplot(DistanceMeters~Hours, groups=Surveyor, [...] ,
       par.settings = list(superpose.symbol = list(
             pch = c(1, 16), col=c("black","black")),
       auto.key=TRUE)

-Deepayan