Adding filtered row names as labels in geom_point using geom_text (error on length of the dataset)-CodePudding

I have a dataset and I want to add specific labels (row names in this case) to my ggplot graph. However, when I use filter, an error regarding length of the data frame shows on the console. I would appreciate if anyone could help me to resolve the issue.

require("ggrepel")
require("tidyerse")

x <- sample(x = 1:20, size = 30, replace = T)
y <- sample(x = 1:20, size = 30, replace = T)
df <- data.frame(x,y)

df %>% ggplot(aes(x=x,y=y)) 
  geom_point() 
  geom_text_repel(aes(label = rownames(df)))

df %>% ggplot(aes(x=x,y=y)) 
  geom_point() 
  geom_text_repel(data = df %>% filter(x>10), 
                    aes(label = rownames(df)))

Error in check_aesthetics(): ! Aesthetics must be either length 1 or the same as the data (14): label

CodePudding user response：

Since you are using df for rownames, then it would still return all rownames. So, you need to also add you filter statement inside of rownames() (i.e., aes(label = rownames(df %>% filter(x > 10)))).

library(tidyverse)

df %>%
  ggplot(aes(x = x, y = y))  
  geom_point()  
  geom_text_repel(data = df %>% filter(x > 10),
                  aes(label = rownames(df %>% filter(x > 10))))