Geek asks and answers

Highlighting labels on a drawer in R

I would like to build each column of the matrix as a boxplot, and then mark the outliers in each square as the name of the row to which they belong in the matrix. To use an example:

vv=matrix(c(1,2,3,4,8,15,30),nrow=7,ncol=4,byrow=F)
rownames(vv)=c("one","two","three","four","five","six","seven")
boxplot(vv)

I would like to mark outlier in each plot (in this case 30) as the name of the line to which it belongs, so in this case 30 belongs to line 7. Is there an easy way to do this? I saw similar questions to this, but no one seemed to work the way I want it to.

+5
source share
6 answers

In the above example, this is a little boring because they are all the same. but here is the code:

bxpdat <- boxplot(vv)
text(bxpdat$group,                                              # the x locations 
     bxpdat$out,                                                # the y values
     rownames(vv)[which(vv == bxpdat$out, arr.ind=TRUE)[, 1]],  # the labels
     pos = 4)

, , "" (.. ) boxplot. Boxplot boxplot.stats. :

 str(bxpdat)
+4

. , b Boxplot .

library(car)

Boxplot(y ~ x, id.method="y")
+6

"Boxplot" {car}, .

: https://CRAN.R-project.org/package=car

+5

@DWin- boxplot, - , , :

#Create data
set.seed(1)
basenums <- c(1,2,3,4,8,15,30)
vv=matrix(c(basenums, sample(basenums), 1-basenums, 
          c(0, 29, 30, 31, 32, 33, 60)),nrow=7,ncol=4,byrow=F)
dimnames(vv)=list(c("one","two","three","four","five","six","seven"), 1:4)

@DWin :

enter image description here

, 4- , .

(, , ), .

#Reshape data
vv_dat <- as.data.frame(vv)
vv_dat$row <- row.names(vv_dat)
library(reshape2)
new_vv <- melt(vv_dat, id.vars="row")

#Get boxplot data
bxpdat <- as.data.frame(boxplot(value~variable, data=new_vv)[c("out", "group")])

#Get matches with boxplot data
text_guide <- do.call(rbind, apply(bxpdat, 1, 
    function(x) new_vv[new_vv$value==x[1]&new_vv$variable==x[2], ]))

#Add labels
with(text_guide, text(x=as.numeric(variable)+0.2, y=value, labels=row))

enter image description here

+4

Or you can just run the code from this blog post :

source("https://raw.githubusercontent.com/talgalili/R-code-snippets/master/boxplot.with.outlier.label.r") # Load the function
set.seed(6484)
y <- rnorm(20)
x1 <- sample(letters[1:2], 20,T)
lab_y <- sample(letters, 20)
# plot a boxplot with interactions:
boxplot.with.outlier.label(y~x1, lab_y)

(which handles multiple emissions close to each other)

enter image description here

0
source

@ SEBASTIAN-s This is a small modification of the DWin solution, which seems to work with more generality.

bx1<-boxplot(pb,las=2,cex.axis=.8)
if(length(bx1$out)!=0){
  ## get the row of each outlier
  out.rows<-sapply(1:length(bx1$out),function(i) which(vv[,bx1$group[i]]==bx1$out[i]))
  text(bx1$group,bx1$out,
     rownames(vv)[out.rows],
     pos=4
  )
}
0
source

More articles:


All Articles