La couleur d'un point et d'ajouter une annotation dans ggplot2?

J'ai un dataframe a avec trois colonnes :

GeneName, Index1, Index2

Je dessine un nuage de points comme ceci

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

Alors je veux de la couleur d'un point dont la GeneName est "G1" et ajouter une zone de texte près de ce point, ce qui pourrait être la meilleure façon de le faire?

InformationsquelleAutor Hanfei Sun | 2013-01-16
  1. 21

    Quelque chose comme cela devrait fonctionner. Vous devrez peut-être déconner avec le x et y arguments pour geom_text().

    library(ggplot2)

highlight.gene <- "G1"

set.seed(23456)
a <- data.frame(GeneName = paste("G", 1:10, sep = ""),
                   Index1 = runif(10, 100, 200),
                   Index2 = runif(10, 100, 150))

a$highlight <- ifelse(a$GeneName == highlight.gene, "highlight", "normal")
textdf <- a[a$GeneName == highlight.gene, ]
mycolours <- c("highlight" = "red", "normal" = "grey50")

a
textdf

ggplot(data = a, aes(x = Index1, y = Index2)) +
    geom_point(size = 3, aes(colour = highlight)) +
    scale_color_manual("Status", values = mycolours) +
    geom_text(data = textdf, aes(x = Index1 * 1.05, y = Index2, label = "my label")) +
    theme(legend.position = "none") +
    theme()

    La couleur d'un point et d'ajouter une annotation dans ggplot2?

    • Oui, certes, vous pourriez et pour un véritable exemple minimal qui aurait été suffisant. Je voulais utiliser un bloc de données parce que c'est facilement extensible à plusieurs étiquettes (par exemple, les points G1 et G7). Mais il est bon de rappeler annotate.
    InformationsquelleAutor SlowLearner
  2. 49

    Vous pouvez créer un sous-ensemble contenant juste ce point, puis l'ajouter à l'intrigue:

    # 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

    REMARQUE: Puisque tout le monde se maintient droit de vote à cette question, je pensais que j'allais le rendre plus facile à lire.

    InformationsquelleAutor rrs