про смену меток в ггрепеле - PullRequest
Новая
       20

про смену меток в ггрепеле

1 голос
/ 10 октября 2019

Если я хочу поменять название ярлыков в ggrepel по одному, как я могу это сделать?

Например, 

  scale_fill_manual(values=values,labels=c("A", "B",    
  expression(paste(italic("C")," ",     
  "D")),expression(paste(italic("E")," ", "F")))

Могу ли я добавить этот тип гибких ярлыков вggrepel ?? 

  library(ggrepel)
  set.seed(42)


  dat <- subset(mtcars, wt > 2.75 & wt < 3.45)
  dat$car <- rownames(dat)

p <- ggplot(dat, aes(wt, mpg, label = car)) +
geom_point(color = "red")
p1 <- p + geom_text() + labs(title = "geom_text()")
p2 <- p + geom_text_repel() + labs(title = "geom_text_repel()")

1 Ответ

0 голосов
/ 10 октября 2019

Насколько я знаю, вам нужно подготовить этикетки, которые вы хотите напечатать. Если это так, опция parse = TRUE анализирует их по expression()

dat <- dat %>% 
  head(n = 4) %>% 
  mutate(lab = c("A", 
                 "B",    
                 'paste(italic("C"), " ", "D")',
                 'paste(italic("E"), " ", "F")'))
pp <- dat %>% 
  ggplot(aes(wt, mpg, label = lab)) +
  geom_point(color = "red")

pp1 <- pp + geom_text(parse = TRUE) + labs(title = "geom_text()")
pp2 <- pp + geom_text_repel(parse = TRUE) + labs(title = "geom_text_repel()")
...