Sorry forthat and thanks for the hint.

At marked the appended text as "rawtext", maybe that is the reason why 
it was cut.

Here we go again.

##################################################################

x=runif(100, 1, 2)
y=runif(100, 2, 4)
z=runif(100, 1, 4)


### 2d example
data_xy=as.data.frame(cbind(x, y, a=rep(c(1:10), 10), b=rep(c(1:2), 
each=50)))

custom.panel = function(x, y, subscripts, ...)
{
highlight=(data_xy$a == 1)
     highlight.panel = highlight[subscripts]

panel.xyplot(x[highlight.panel], y[!highlight.panel],
              type='p', pch=18)
panel.xyplot(x[highlight.panel], y[highlight.panel],
              type='b', col="tomato3")
}

xyplot(x~y|b, data=data_xy, groups=a,
panel=custom.panel)

### 3d example
data_xyz=as.data.frame(cbind(x, y, z, a=rep(c(1:10), 10), b=rep(c(1:2), 
each=50)))

custom.panel = function(x, y, z, subscripts, ...)
{
highlight=(data_xyz$a == 1)
     highlight.panel = highlight[subscripts]

panel.cloud(x[highlight.panel], y[!highlight.panel], z[!highlight.panel],
             type='p', pch=18)
panel.cloud(x[highlight.panel], y[highlight.panel], z[highlight.panel],
             type='b', col="tomato3")
}

#that works of course
cloud(z~x*y|b, data=data_xyz)

#that not
cloud(z~x*y|b, data=data_xyz, groups=TRUE,
panel=custom.panel)


##################################################################

On 05/29/2013 03:36 PM, John Kane wrote:
> No attachment.  The R-help list tendst to strip out many type of attached 
> files though pdf and txt , among others get through.
>
> It is better to supply the example in the email itself if possible. Have a 
> look at https://github.com/hadley/devtools/wiki/Reproducibility for 
> suggestions.
>
> John Kane
> Kingston ON Canada
>
>
>> -----Original Message-----
>> From: slued...@gfz-potsdam.de
>> Sent: Tue, 28 May 2013 15:50:33 -0700 (PDT)
>> To: r-help@r-project.org
>> Subject: [R] highlight points in lattice cloud plot
>>
>> Dear list,
>>
>> I am
>>   struggling with the following problem.
>>
>> In a 2d case I managed to highlight a subset of points  through the
>> panel.xyplot function.
>>
>> However, I was trying the same in 3d using panel.cloud, but now luck.
>>
>> I attached a minimal example, I think the first plot shows the idea.
>>
>> Thanks,
>>
>> Stefan
>>
>>
>>
>>
>>
>>
>>
>> --
>> View this message in context:
>> http://r.789695.n4.nabble.com/highlight-points-in-lattice-cloud-plot-tp4668157.html
>> Sent from the R help mailing list archive at Nabble.com.
>>
>> ______________________________________________
>> R-help@r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
> ____________________________________________________________
> FREE ONLINE PHOTOSHARING - Share your photos online with your friends and 
> family!
> Visit http://www.inbox.com/photosharing to find out more!
>
>


        [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to