r - 如何使用GGPLOT geom_point()进行选择性标记

Question

使用此代码:

library(ggplot2)
p <- ggplot(mtcars, aes(wt, mpg))
p + geom_point()
p + geom_point() + geom_text(aes(wt, mpg, label=row.names(mtcars)))

我得到这张图:

如何修改上面的代码，使其仅标记 wt > 4或 mpg > 25的位置，
而其余的点仍未标记。

Answer 1

为data提供geom_text参数:

library(ggplot2)
mtcars$name <- row.names(mtcars)
p <- ggplot(mtcars, aes(wt, mpg))
p + geom_point()
p + geom_point() + 
  geom_text(data=subset(mtcars, wt > 4 | mpg > 25),
            aes(wt,mpg,label=name))

结果图:

PS:我真的不喜欢构造ggplots的 p + geom()风格，我很确定hadley在原始的ggplot2书中做了这件事，以演示同一图的不同修改，但是人们似乎已经选择并运行它它。这是我的处理方式:

只需将情节的不同组成部分与+一起添加即可，无需保存每个中间步骤。

除非确实需要，否则不要将其保存到变量中，如果需要，仍可以将其保存到文件中ggsave()

在第一个ggplot调用中放置将应用于整个情节的所有美学元素，仅在必要时修改其他内容

我的版本:

ggplot(mtcars, aes(wt, mpg, label=name)) +
  geom_point() +
  geom_text(data=subset(mtcars, wt > 4 | mpg > 25))