Укладка меток в ggplot - PullRequest
Новая
       13

Укладка меток в ggplot

0 голосов
/ 21 января 2019

Я строю эмпирические кривые ROC и застрял с некоторыми, которые выглядят не очень разумными.Я использую geom_text_repel, но они просто близко друг к другу.Мне было интересно, если кто-то может предложить какое-то разумное решение.

Данные: 

    structure(list(sens = c(0, 0.2, 0.2, 0.4, 0.4, 0.4, 0.4, 0.4, 
0.4, 0.4, 0.4, 0.4, 0.4, 0.4, 0.5, 0.5, 0.5, 0.7, 0.7, 1), one_min_spec = c(0, 
0, 0, 0.021, 0.021, 0.021, 0.041, 0.041, 0.041, 0.041, 0.041, 
0.041, 0.041, 0.041, 0.062, 0.062, 0.108, 0.17, 0.183, 1), cut_point = c(NA, 
18L, 17L, 16L, 15L, 14L, 13L, 12L, 11L, 10L, 9L, 8L, 7L, 6L, 
5L, 4L, 3L, 2L, 1L, NA)), row.names = c(1L, 12156L, 11470L, 10784L, 
10098L, 9412L, 8726L, 8040L, 7354L, 6668L, 5982L, 5296L, 4610L, 
3924L, 3238L, 2552L, 1866L, 1180L, 494L, 20L), class = "data.frame")

И код построения: 

ggplot(df, aes(one_min_spec, sens, label = cut_point)) +
  geom_abline(
    intercept = 0,
    slope = 1,
    color = "black",
    linetype = "dashed"
  ) +
  geom_path(colour = "gray") +
  geom_point(colour = "black") +
  geom_text_repel(size = 4) +
  scale_y_continuous(limits = c(0, 1),
                     expand = c(0, 0)) +
  scale_x_continuous(limits = c(0, 1),
                     expand = c(0, 0)) +
  theme(text = element_text(size = 14))

Я подумал, может быть, попытатьсясоздайте одну метку для каждой точки вместо числа, если они совместно используют одну и ту же точку в пространстве ROC.Т.е. в этом случае это будет одна метка 6-13 вместо всех точек разреза, имеющих одну.Не совсем уверен, как это сделать, и имеет ли это смысл?

1 Ответ

0 голосов
/ 22 января 2019

Если вы хотите сжать точки вырезания до одной метки, вот один из способов сделать это: 

library(dplyr)

df2 <- df %>% 
  group_by(one_min_spec, sens) %>% 
  summarise(cut_point = ifelse(all(is.na(cut_point)),
                               "",
                               range(cut_point, na.rm = TRUE) %>%
                                 unique() %>%
                                 paste(collapse = "-"))) %>%
  ungroup()

> df2
# A tibble: 9 x 3
  one_min_spec  sens cut_point
         <dbl> <dbl> <chr>    
1        0       0   ""       
2        0       0.2 17-18    
3        0.021   0.4 14-16    
4        0.041   0.4 6-13     
5        0.062   0.5 4-5      
6        0.108   0.5 3        
7        0.17    0.7 2        
8        0.183   0.7 1        
9        1       1   ""

Этот обработанный фрейм данных будет работать с вашим исходным кодом ggplot(). Я упростил это несколько ниже для иллюстрации: 

ggplot(df2, aes(one_min_spec, sens, label = cut_point)) +
  geom_abline(linetype = "dashed") + # the rest are the same as default options anyway
  geom_path(colour = "gray") +
  geom_point(colour = "black") +
  geom_text_repel(size = 4)

plot

...