ggplot2 Scatter Plot Labels

Question

我正在嘗試使用ggplot2來創建和標記散點圖。 我正在繪制的變量都被縮放，使得水平軸和垂直軸以標准偏差（1,2,3,4，...平均值）為單位繪制。 我希望能夠做的只是標記那些超出平均值標准偏差的元素。 理想情況下，此標簽將基於另一列數據。

有沒有辦法做到這一點？

我查看了在線手冊，但是我無法找到有關為繪圖數據定義標簽的任何信息。

感謝幫助！

謝謝！

BEB

Answer 1

使用子集：

library(ggplot2)
x <- data.frame(a=1:10, b=rnorm(10))
x$lab <- letters[1:10]
ggplot(data=x, aes(a, b, label=lab)) + 
  geom_point() + 
  geom_text(data = subset(x, abs(b) > 0.2), vjust=0)

Answer 2

標簽可以通過以下方式完成：

library("ggplot2")
x <- data.frame(a=1:10, b=rnorm(10))
x$lab <- rep("", 10)   # create empty labels
x$lab[c(1,3,4,5)] <- LETTERS[1:4]   # some labels
ggplot(data=x, aes(x=a, y=b, label=lab)) + geom_point() + geom_text(vjust=0)

Answer 3

在ggplot函數之外的子集：

library(ggplot2)
set.seed(1)
x <- data.frame(a = 1:10, b = rnorm(10))
x$lab <- letters[1:10]
x$lab[!(abs(x$b) > 0.5)] <- NA
ggplot(data = x, aes(a, b, label = lab)) + 
  geom_point() + 
  geom_text(vjust = 0) 

使用qplot：

qplot(a, b, data = x, label = lab, geom = c('point','text'))