R'de Boxplot aykırı etiketleme

Question

R'de Boxplot aykırı etiketleme

R'ye boxpots çizmek ve aykırılara isim eklemek istiyorum. Şimdiye kadar bu çözüm.

İşlev, ihtiyacım olan tüm işlevleri sağlar, ancak etiketleri yanlış şekilde karıştırır. Aşağıdaki örnekte, ayracı "o" yerine "u" olarak işaretler:

library(plyr)
library(TeachingDemos)
source("http://www.r-statistics.com/wp-content/uploads/2011/01/boxplot-with-outlier-label-r.txt") # Load the function
set.seed(1500)
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)

Herhangi bir çözüm biliyor musunuz? Ggplot2 kütüphanesi süper güzel, ancak böyle bir işlevsellik (bildiğim kadarıyla) sağlamaz. Benim alternatifim text() işlevini kullanmak ve boxplot nesnesinden outlier bilgilerini ayıklamaktır. Ancak, bunun gibi etiketler çakışabilir.

Çok teşekkürler :-)

5

katma 28 Ekim 2011 en 12:54 yazar Federico Giorgi düzenlendi 28 Ekim 2011 en 01:09

Görünümler: 3

kaynak

ro ru fr es pt de hi bn ar kk uz

Güncelleme: Bu hatayı Tal Galili'nin dikkatine getirdim, ve saatlerce, o artık bu problemi sergilemeyen betiğin düzenlenmiş bir versiyonunu yayınladı.

katma 31 Ekim 2011 en 10:20, yazar Josh O'Brien, kaynak

2 cevap

debug (boxplot.with.outlier.label) ile buna bir göz attım ve işlevde bug var.

Hata DATA x , y ve label_name öğelerinden oluşturulduğu satırda 125 oluşur.

Önceden lab_y olmasa da x ve y yeniden düzenlenmiştir. x öğesinin verilen değeri ( x1 ) zaten sıralı değilse, deneyimlediğiniz türden bir eşleşme elde edersiniz.

Hemen bir düzeltme olarak, x değerlerini bu gibi ön sipariş verebilir (veya daha zarif bir şey yapabilirsiniz)

df <- data.frame(y, x1, lab_y, stringsAsFactors=FALSE)
df <- df[order(df$x1), ]
# Needed since lab_y is not searched for in data (though it probably should be)
lab_y <- df$lab_y  

boxplot.with.outlier.label(y~x1, lab_y, data=df)

Boxplot produced by procedure described above

6

katma 29 Ekim 2011 en 02:01 yazar Josh O'Brien

kaynak

Sağol Josh. Birkaç gün önce aynı soruna girdim, bu yüzden bu harika bir yardımcı oldu +1

katma 31 Ekim 2011 en 01:40, yazar pssguy, kaynak

Güncelleme: Bu soruyu soran Josh'a (ve işlevdeki hata noktasını tespit ederek) teşekkürler - Bu sorunu çözen güncellenmiş bir sürümü yükleyebildim. Sağol Josh. En iyi, Tal

katma 01 Kasım 2011 en 08:32, yazar Tal Galili, kaynak

Yardım etmekten memnun oldum. Bu, diğer bazı insanlar için kullanıldığından göründüğü için, komut dosyasında bir hata bulmuşsa, kullanıcılardan istediği gibi komut dosyasının yazarına e-posta gönderdim.

katma 31 Ekim 2011 en 03:09, yazar Josh O'Brien, kaynak

Josh: teşekkür ederim. ^ _ ^

katma 29 Ekim 2011 en 02:42, yazar Federico Giorgi, kaynak

yazar TMS · Answer 1 · 2011-10-28T03:29Z

akıllı nokta etiket yerleşimi , burada veya burada . Nihai ve ideal bir çözüm yok, bu yüzden sadece bir tane seçmeniz gerekiyor.

Böylece normal kutu işaretini aşağıdaki gibi etiketlerle üst üste koyarsınız:

set.seed(1501)
y <- c(4, 0, 7, -5, rnorm(16))
x1 <- c("a", "a", "b", "b", sample(letters[1:2], 16, T))
lab_y <- sample(letters, 20)

bx <- boxplot(y~x1)

out_lab <- c()
for (i in seq(bx$out)) { 
    out_lab[i] <- lab_y[which(y == bx$out[i])[1]]
}

identify(bx$group, bx$out, labels = out_lab, cex = 0.7)

Ardından define() çalışması sırasında etiketin nerede olmasını istediğiniz yere tıklamanız yeterlidir. burada açıklandığı gibi. Bittiğinde, sadece "DUR" tuşuna basarsınız. Her bir aykırı değerin birden fazla etikete sahip olabileceğini unutmayın! Benim çözümümde, sadece ilkini seçtim!

Not: For döngüsünden utanıyorum, ama onu nasıl simüle edeceğini bilemiyorum - iyileştirme yapmaktan çekinmeyin.

EDIT: Federico'nın linki şimdi çok daha kolay yapılabilir görüyorum! Sadece şu 2 komut:

boxplot(y~x1)
identify(as.integer(as.factor(x1)), y, labels = lab_y, cex = 0.7)