Wie beschrifte ich Punkte in einem Streudiagramm mit R?

Question

Ich bin neu bei R und möchte wissen, wie man Datenpunkte in einem Streudiagramm beschriftet.Ich habe den folgenden Code ausprobiert, erhalte jedoch eine Fehlermeldung.

x = c(102856,17906,89697,74384,91081,52457,73749,29910,75604,28267,122136,
      54210,48925,58937,76281,67789,69138,18026,90806,44893)
y = c(2818, 234, 2728, 2393, 2893, 1015, 1403, 791, 2243, 596, 2468, 1495,
      1232, 1746, 2410, 1791, 1706, 259, 1982, 836)

plot(x, y, main="Scatterplot ", xlab="xaxis ", ylab="yaxis ", pch=19)

names = c("A","C","E","D","G","F","I","H","K","M","L","N","Q","P","S","R",
          "T","W","V","Y")

library(calibrate)
textxy(x, y, labs=names, cx = 0.5, dcol = "black", m = c(0, 0))

Error in text.default(X[posXposY], Y[posXposY], labs[posXposY], adj = c(-0.3,  :
plot.new has not been called yet

Ich verstehe diesen Fehler nicht.Bitte hilf mir

Answer 1

Du könntest es tun ggplot2:

require(ggplot2)
d <- data.frame(x = c(102856,17906,89697,74384,91081,52457,73749,29910,75604,28267,122136, 54210,48925,58937,76281,67789,69138,18026,90806,44893), y = c(2818, 234, 2728, 2393, 2893, 1015, 1403, 791, 2243, 596, 2468, 1495, 1232, 1746, 2410, 1791, 1706, 259, 1982, 836), names = c("A","C","E","D","G","F","I","H","K","M","L","N","Q","P","S","R","T","W","V","Y"))
ggplot(d, aes(x,y)) + geom_point() + geom_text(aes(label=names))

Möglicherweise möchten Sie, dass die Textbeschriftungen nicht direkt über den Punkten liegen. Dies können Sie erreichen, indem Sie die verwenden hjust oder vjust Argumente in der geom_text Teil.

Answer 2

Sie können dies ganz einfach erstellen, indem Sie die verwenden text() Funktion.

text(x,y,labels=names)

Answer 3

Ihr Code funktioniert bei mir mit:

> sessionInfo()
R version 2.14.2 Patched (2012-02-29 r58525)
Platform: x86_64-unknown-linux-gnu (64-bit)

locale:
 [1] LC_CTYPE=en_GB.utf8       LC_NUMERIC=C             
 [3] LC_TIME=en_GB.utf8        LC_COLLATE=en_GB.utf8    
 [5] LC_MONETARY=en_GB.utf8    LC_MESSAGES=en_GB.utf8   
 [7] LC_PAPER=C                LC_NAME=C                
 [9] LC_ADDRESS=C              LC_TELEPHONE=C           
[11] LC_MEASUREMENT=en_GB.utf8 LC_IDENTIFICATION=C      

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods  
[7] base     

other attached packages:
[1] calibrate_1.7 mgcv_1.7-13  

loaded via a namespace (and not attached):
[1] grid_2.14.2    lattice_0.20-0 Matrix_1.0-4   nlme_3.1-103  
[5] tools_2.14.2

Überprüfen Sie, ob Sie über ein aktuelles R und eine aktuelle Version verfügen kalibrieren Wenn nicht, aktualisieren Sie sie und versuchen Sie es erneut.

Es wäre natürlicher, die folgende Reihenfolge Ihrer Anrufe zu verwenden:

> library(calibrate)
> names = c("A","C","E","D","G","F","I","H","K","M","L","N","Q","P","S","R",
+           "T","W","V","Y")
> plot(x, y, main="Scatterplot ", xlab="xaxis ", ylab="yaxis ", pch=19)
> textxy(x, y, labs=names, cx = 0.5, dcol = "black", m = c(0, 0))

Es sollte keinen Unterschied machen, ob das von der erzeugte Plotfenster plot() Anruf ist noch offen.

Answer 4

Sie benötigen nicht das Kalibrierenpaket.Sie können tun:

text (x, y-50, name)

es funktioniert für mich.