[R] Label data points in scatterplot matrices

[Uwe Ligges]

Tom Mulholland wrote:
> This does job, but it reveals that I don't really understand panels. 
> What I would like to know is how do you get the same result but without 
> the warnings.
> 
> This is essentially taken from the ?pairs help.
> 
> data(USJudgeRatings)
> # There are 43 observations in this data.frame
> z <- 1:43
> panel.text <- function(x,y,z, ...)
>      {
>          text(x,y,z)
>      }
>  panel.hist <- function(x, ...)
>      {
>          usr <- par("usr"); on.exit(par(usr))
>          par(usr = c(usr[1:2], 0, 1.5) )
>          h <- hist(x, plot = FALSE)
>          breaks <- h$breaks; nB <- length(breaks)
>          y <- h$counts; y <- y/max(y)
>          rect(breaks[-nB], 0, breaks[-1], y, col="cyan", ...)
>      }
> 
> pairs(USJudgeRatings[1:5], panel=panel.text,z=z,,
>            cex = 1.5, pch = 24, bg="light blue",
>            diag.panel=panel.hist, cex.labels = 2, font.labels=2)


Well, in principle you cannot easily (it's a warning, not an errror, BTW).
But you can fake a little bit by, e.g., renaming "z" to "pch":



data(USJudgeRatings)
# There are 43 observations in this data.frame
z <- 1:43
panel.text <- function(x,y,pch, ...)
      {
          text(x,y,pch)
      }
  panel.hist <- function(x, ...)
      {
          usr <- par("usr"); on.exit(par(usr))
          par(usr = c(usr[1:2], 0, 1.5) )
          h <- hist(x, plot = FALSE)
          breaks <- h$breaks; nB <- length(breaks)
          y <- h$counts; y <- y/max(y)
          rect(breaks[-nB], 0, breaks[-1], y, col="cyan", ...)
      }

pairs(USJudgeRatings[1:5], panel=panel.text,
            cex = 1.5, pch = z, bg="light blue",
            diag.panel=panel.hist, cex.labels = 2, font.labels=2)



Uwe Ligges



> 
> Mauricio Esguerra wrote:
> 
>> Hello,
>>
>> I am new to R and would like to know how to label data points in the
>> matrices of scatterplots made by the pairs() command.
>> To be more specific, I want to assign a number to each data point, 
>> instead
>> of the small circumference that appears as a data point.
>>
>> If anyone here knows if its possible to do this with R, I would greatly
>> appreciate your help.
>>
>> Thank you,
>>
>> Mauricio Esguerra
>> PhD candidate
>> Chemistry and Chemical Biology Department
>> Rutgers, the State University of New Jersey
>>
>> ______________________________________________
>> R-help at stat.math.ethz.ch mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide! 
>> http://www.R-project.org/posting-guide.html
>>
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! 
> http://www.R-project.org/posting-guide.html