希望拆分散点图并返回最高值(包括图像)

Question

我在R中有两个列，分别称为A和B，我在其中创建了一个散点图。(这两个散点图是相同的，只是添加了标签)。

我想识别出分隔线后的商品名称。在分界线之上大约有11个点，我该如何在R中这样做呢？

是否创建包含所有大于1e+05的值的数据表？只是在寻找方向，谢谢。

图1：

ggplot(df, aes(x=A, y=B)) +
  geom_point(fill = "red")

图2：

ggplot(df, aes(x=A, y=B)) +
  geom_point(fill = "red") +
geom_text(label=rownames(df))

A样本：1 1136 12 203 147 9 3 12 83 82 1304

样本B: 1852 90 277 329 15 8 30 165 156 2572

Two Identical Scatterplots

Answer 1

这个方法怎么样：

library(ggplot2)
library(ggrepel) # will avoid overlapping of values above the cut off

A <- c( 1136, 12, 203, 147, 9, 3, 12, 83, 82, 1304)
B <- c(1852, 90, 277, 329, 15, 8, 30, 165, 156, 2572)
df <- data.frame(A , B)
df$id <- ifelse(df$A > 1e+03 & df$B > 1e+03, B, NA) # just an example of cut off.

ggplot(df, aes(x=A, y=B)) +
      geom_point() +
      geom_text_repel(aes(x = A, y = B, label = id), size = 2.5, na.rm = TRUE)

​

​