Noktaları geom_point olarak etiketleyin

Oynadığım veriler aşağıda listelenen İnternet kaynağından geliyor

nba <- read.csv("http://datasets.flowingdata.com/ppg2008.csv", sep=",")

Ne yapmak istiyorum, bu tablodaki iki metriği karşılaştıran bir 2D nokta grafiği oluşturmak, her oyuncu grafikte bir noktayı temsil ediyor. Takip koduna sahibim:

nbaplot <- ggplot(nba, aes(x= MIN, y= PTS, colour="green", label=Name)) + 
                  geom_point() 

Bu bana şunları verir:

Benim istediğim noktaların hemen yanında oyuncunun isminin bir etiketi. Ggplot'un estetiğindeki etiket işlevinin bunu benim için yapacağını düşündüm, ama olmadı.

Ben de ggplot ile çalışmak gibi görünüyor text()fonksiyonu ve textxy()fonksiyonu denedim library(calibrate).

Bu noktalara nasıl ad etiketi ekleyebilirim?

Kullanım geom_textile, aesetiket. hjust, vjustMetin konumunu ayarlamak için ile oynayabilirsiniz .

ggplot(nba, aes(x= MIN, y= PTS, colour="green", label=Name))+
  geom_point() +geom_text(aes(label=Name),hjust=0, vjust=0)

EDIT: Yalnızca belirli bir eşiğin üzerindeki değerleri etiketleyin:

  ggplot(nba, aes(x= MIN, y= PTS, colour="green", label=Name))+
  geom_point() +
  geom_text(aes(label=ifelse(PTS>24,as.character(Name),'')),hjust=0,vjust=0)

ggrepelPaket birbirlerinden uzak örtüşen metin etiketlerini kovucu için harika çalışıyor. Ya geom_label_repel()(metnin etrafına dikdörtgenler çizer) ya da geom_text_repel()işlevleri kullanabilirsiniz.

library(ggplot2)
library(ggrepel)

nba <- read.csv("http://datasets.flowingdata.com/ppg2008.csv", sep = ",")

nbaplot <- ggplot(nba, aes(x= MIN, y = PTS)) + 
  geom_point(color = "blue", size = 3)

### geom_label_repel
nbaplot + 
  geom_label_repel(aes(label = Name),
                  box.padding   = 0.35, 
                  point.padding = 0.5,
                  segment.color = 'grey50') +
  theme_classic()

### geom_text_repel
# only label players with PTS > 25 or < 18
# align text vertically with nudge_y and allow the labels to 
# move horizontally with direction = "x"
ggplot(nba, aes(x= MIN, y = PTS, label = Name)) + 
  geom_point(color = dplyr::case_when(nba$PTS > 25 ~ "#1b9e77", 
                                      nba$PTS < 18 ~ "#d95f02",
                                      TRUE ~ "#7570b3"), 
             size = 3, alpha = 0.8) +
  geom_text_repel(data          = subset(nba, PTS > 25),
                  nudge_y       = 32 - subset(nba, PTS > 25)$PTS,
                  size          = 4,
                  box.padding   = 1.5,
                  point.padding = 0.5,
                  force         = 100,
                  segment.size  = 0.2,
                  segment.color = "grey50",
                  direction     = "x") +
  geom_label_repel(data         = subset(nba, PTS < 18),
                  nudge_y       = 16 - subset(nba, PTS < 18)$PTS,
                  size          = 4,
                  box.padding   = 0.5,
                  point.padding = 0.5,
                  force         = 100,
                  segment.size  = 0.2,
                  segment.color = "grey50",
                  direction     = "x") +
  scale_x_continuous(expand = expand_scale(mult = c(0.2, .2))) +
  scale_y_continuous(expand = expand_scale(mult = c(0.1, .1))) +
  theme_classic(base_size = 16)

Düzenleme:ggrepel Çizgilerle kullanmak için şu ve buna bakın .

^{2019-05-01 tarihinde reprex paketi tarafından oluşturuldu (v0.2.0).}

Yukarıdaki örnekte olduğu gibi ifelse kullanmak yerine, bazı eşik değerlerine dayalı olarak etiketlemeden önce verileri önceden filtreleyebilirsiniz, bu, çizim cihazı için çok fazla iş tasarrufu sağlar:

xlimit <- 36
ylimit <- 24
ggplot(myData)+geom_point(aes(myX,myY))+
    geom_label(data=myData[myData$myX > xlimit & myData$myY> ylimit,], aes(myX,myY,myLabel))