R 标记每个数据点

我有这样的数据

df<-structure(list(X = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 10L, 
9L, 11L, 12L, 8L), .Label = c("A", "B", "C", "D", "E", "F", "GG", 
"IR", "MM", "TT", "TTA", "UD"), class = "factor"), X_t = c(3.7066, 
3.6373, 3.2693, 2.5626, 2.4144, 2.2868, 2.1238, 1.8671, 1.7627, 
1.4636, 1.4195, 1.0159), NEW = structure(c(8L, 7L, 9L, 1L, 2L, 
3L, 4L, 5L, 6L, 10L, 11L, 12L), .Label = c("12-Jan", "14-Jan", 
"16-Jan", "19-Jan", "25-Jan", "28-Jan", "4-Jan", "Feb-38", "Feb-48", 
"Jan-39", "Jan-41", "Jan-66"), class = "factor")), class = "data.frame", row.names = c(NA, 
-12L))

---

另外，我想将两个图例合并为一个，因为它是多余的，如果您有任何提示，请让我知道，对于文本（例如标签），请使用

geom_text

：

在

ggplot（）

调用中指定的美学将由后续图层（Geom）继承。因此，通过将

x

和

y

美学放在

ggplot（）

中，我们不必再次指定它们

---

至于图例问题，请参阅详细信息。要组合颜色和大小图例，我们使用

指南\u图例

几何点

绘制点。如果您想打印文本，请使用

geom_text

@Gregor我想在点上打印测试，而不仅仅是点。您想要点和文本吗？使用

geom_点

和

geom_文本

！只有一个问题，当我使用

指南（color=guide\u legend（），size=guide\u legend（））

然后我将图例的标题添加到

指南（color=guide\u legend（title=“mylegend”），size=guide\u legend（））

中时，它将再次为我提供两个图例。将标题添加到两个图例中。

ggplot(data=df)+
  geom_point(aes(X_t, X,size =X_t,colour =X_t,label = NEW))

ggplot(data=df, aes(X_t, X)) +
  geom_point(aes(size = X_t, colour = X_t)) +
  geom_text(aes(label = NEW), nudge_y = 0.5) +
  guides(color = guide_legend(), size = guide_legend())