着色一点并在ggplot2中添加注释？

Question

我有一个包含三列的数据框a：

GeneName，Index1，Index2

我画了一个像这样的散点图

ggplot(a, aes(log10(Index1+1), Index2)) +geom_point(alpha=1/5)

然后我想为GeneName为"G1"的点着色，并在该点附近添加一个文本框，这可能是最简单的方法吗？

Answer 1

您可以创建仅包含该点的子集，然后将其添加到绘图中：

# create the subset
g1 <- subset(a, GeneName == "G1")

# plot the data
ggplot(a, aes(log10(Index1+1), Index2)) + geom_point(alpha=1/5) +  # this is the base plot
  geom_point(data=g1, colour="red") +  # this adds a red point
  geom_text(data=g1, label="G1", vjust=1) # this adds a label for the red point

注意：由于每个人都在对这个问题进行投票，我认为我会更容易阅读。

Answer 2

这样的事情应该有效。您可能需要弄清x的{​​{1}}和y个参数。

geom_text()