Điểm nhãn trong geom_point

Dữ liệu tôi đang chơi đến từ nguồn internet được liệt kê bên dưới

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

Những gì tôi muốn làm là tạo một biểu đồ điểm 2D so sánh hai số liệu từ bảng này, với mỗi người chơi đại diện cho một dấu chấm trên biểu đồ. Tôi có đoạn mã sau:

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

Điều này cho tôi như sau:

Những gì tôi muốn là một nhãn của tên người chơi ngay bên cạnh các dấu chấm. Tôi nghĩ rằng chức năng nhãn trong thẩm mỹ của ggplot sẽ làm điều này cho tôi, nhưng nó đã không làm được.

Tôi cũng đã thử text()chức năng và textxy()chức năng từ library(calibrate), cả hai đều không hoạt động với ggplot.

Làm thế nào tôi có thể thêm nhãn tên cho những điểm này?

Sử dụng geom_text, với aesnhãn hiệu. Bạn có thể chơi với hjust, vjustđể điều chỉnh vị trí văn bản.

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

EDIT: Chỉ dán nhãn các giá trị trên một ngưỡng nhất định:

  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)

Các ggrepelgói hoạt động tuyệt vời để xua đuổi chồng chéo nhãn văn bản ra xa nhau. Bạn có thể sử dụng geom_label_repel()(vẽ hình chữ nhật xung quanh văn bản) hoặc các geom_text_repel()hàm.

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)

Chỉnh sửa: Để sử dụng ggrepelvới các dòng, xem cái này và cái này .

^{Được tạo vào ngày 2019-05-01 bởi gói reprex (v0.2.0).}

Thay vì sử dụng ifelse như trong ví dụ trên, người ta cũng có thể lọc trước dữ liệu trước khi dán nhãn dựa trên một số giá trị ngưỡng, điều này giúp tiết kiệm rất nhiều công việc cho thiết bị vẽ:

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))