Displaying 4 results from an estimated 4 matches for "orderxy".
Did you mean:
orderly
2023 Apr 25
1
xyTable(x,y) versus table(x,y) with NAs
...a slightly modified code ox xyTable to handle NA too.
xyTableNA <- function (x, y = NULL, digits)
{
??? x <- xy.coords(x, y, setLab = FALSE)
??? y <- signif(x$y, digits = digits)
??? x <- signif(x$x, digits = digits)
??? n <- length(x)
??? number <- if (n > 0) {
??????? orderxy <- order(x, y)
??????? x <- x[orderxy]
??????? y <- y[orderxy]
??????? first <- c(TRUE, (x[-1L] != x[-n]) | (y[-1L] != y[-n]))
??????? firstNA <- c(TRUE, xor(is.na(x[-1L]), is.na(x[-n])) |
xor(is.na(y[-1L]), is.na(y[-n])))
??????? first[firstNA] <- TRUE
??????? first[is.na(...
2023 Apr 25
1
xyTable(x,y) versus table(x,y) with NAs
...o handle NA too.
>
> xyTableNA <- function (x, y = NULL, digits)
> {
> ??? x <- xy.coords(x, y, setLab = FALSE)
> ??? y <- signif(x$y, digits = digits)
> ??? x <- signif(x$x, digits = digits)
> ??? n <- length(x)
> ??? number <- if (n > 0) {
> ??????? orderxy <- order(x, y)
> ??????? x <- x[orderxy]
> ??????? y <- y[orderxy]
> ??????? first <- c(TRUE, (x[-1L] != x[-n]) | (y[-1L] != y[-n]))
> ??????? firstNA <- c(TRUE, xor(is.na(x[-1L]), is.na(x[-n])) |
> xor(is.na(y[-1L]), is.na(y[-n])))
> ??????? first[firstNA] <- T...
2007 Aug 14
2
Using sunflowerplot to add points in a xyplot panel
Hi,
I use panel.points to add points to a xyplot graphic. But I like to use the
sunflowerplot to plot my points because this is very superimposed. It is
possible to use this? I try but it dont work directly. It may be need to put
this function inside a panel.???
Thanks
Ronaldo
--
Where there's a will, there's a relative.
--
> Prof. Ronaldo Reis J?nior
| .''`.
2023 Apr 25
2
xyTable(x,y) versus table(x,y) with NAs
Hi all,
Posted this many years ago (https://stat.ethz.ch/pipermail/r-devel/2017-December/075224.html), but either this slipped under the radar or my feeble mind is unable to understand what xyTable() is doing here and nobody bothered to correct me. I now stumbled again across this issue.
x <- c(1, 1, 2, 2, 2, 3)
y <- c(1, 2, 1, 3, NA, 3)
table(x, y, useNA="always")
xyTable(x, y)