Маркировка конкретных точек на графике - PullRequest
Новая
       24

Маркировка конкретных точек на графике

0 голосов
/ 09 июня 2018

У меня есть линейный график с данными по месяцам.Мой фрейм данных выглядит так: 

x <- c("2013-01", "2013-02", "2013-03", "2013-04", "2013-05", "2013-06", "2013-07", "2013-08", "2013-09", "2013-10", "2013-11", "2013-12",
       "2014-01", "2014-02", "2014-03", "2014-04", "2014-05", "2014-06", "2014-07", "2014-08", "2014-09", "2014-10", "2014-11", "2014-12",
       "2015-01", "2015-02", "2015-03", "2015-04", "2015-05", "2015-06", "2015-07", "2015-08", "2015-09", "2015-10", "2015-11", "2015-12",
       "2016-01", "2016-02", "2016-03", "2016-04", "2016-05", "2016-06", "2016-07", "2016-08", "2016-09", "2016-10", "2016-11", "2016-12")

Articles <- c(0, 1, 1, 2, 0, 0, 9, 6, 1, 0, 0, 1,
                3, 0, 0, 0, 4, 1, 7, 106, 19, 16, 57, 115,
                26, 20, 33, 52, 45, 36, 32, 23, 21, 38, 17, 18,   
                6, 10, 14, 6, 17, 5, 34, 6, 11, 11, 2, 2)

PoliceFrame <- c(0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0,
              0, 0, 0, 0, 0, 0, 1, 29, 9, 2, 17, 46,
              13, 9, 14, 10, 13, 18, 6, 8, 7, 12, 1, 6,
              1, 2, 3, 1, 2, 2, 22, 2, 2, 7, 2, 1)

ProtesterFrame <- c(0, 0, 0, 2, 0, 0, 1, 2, 1, 0, 0, 1,
                 3, 0, 0, 0, 1, 0, 6, 51, 6, 11, 18, 38,
                 8, 9, 11, 32, 22, 10, 15, 10, 10, 19, 9, 5,
                 3, 6, 6, 2, 8, 3, 8, 3, 8, 4, 0, 1)

Я использую следующий код для создания графика: 

data %>% 
  gather(subject, value, -x) %>% 
  mutate(x = as.Date(paste(x,"-01",sep="")))  %>% 
  ggplot(aes(x=x, y=value,
             group=subject, color = subject, shape = subject)) +
  geom_line() +
  geom_point() +
  labs(title="Media Attention",x="", y = "Media Articles")+
  geom_vline(xintercept=19, linetype = "longdash") +
  geom_vline(xintercept=6, linetype = "longdash") +
  scale_linetype_manual(values = c(1,2,3)) +
  theme(plot.title = element_text(hjust = 0.5, face="bold"), 
        legend.position = "bottom", legend.title = element_blank())

Это дает следующий график:

Plot

Я пытаюсь добавить к этому графику две вещи:

(1) Я хочу добавить две вертикальные пунктирные линии в июле 2013 года и августе 2014 года.

(2) Я хочу добавить метки только там, где находятся красные пики (Статьи).Например, в августе 2014 года наблюдается большой всплеск. Я хочу обозначить его либо на оси X, либо на самом графике (где красная точка).Так что, в основном, я бы назвал этикетки в августе 2014 годаДекабрь 2014 года;Апрель 2015 г .;Октябрь 2015 г .;и июль 2016 года.

Будем весьма благодарны за любые рекомендации по выполнению любой из этих задач!

1 Ответ

0 голосов
/ 09 июня 2018

Первый выполняется с geom_vline, второй с geom_text: 

# separate the data manipulation from the plots so we can reuse it
data <- data %>%
  gather(subject, value, -x) %>% 
  mutate(x = as.Date(paste(x,"-01",sep="")))  

# your original plot call
p <- data %>% 
  ggplot(aes(x=x, y=value,
    group=subject, color = subject, shape = subject)) +
  geom_line() +
  geom_point() +
  labs(title="Media Attention",x="", y = "Media Articles")+
  geom_vline(xintercept=19, linetype = "longdash") +
  geom_vline(xintercept=6, linetype = "longdash") +
  scale_linetype_manual(values = c(1,2,3)) +
  theme(plot.title = element_text(hjust = 0.5, face="bold"), 
    legend.position = "bottom", legend.title = element_blank())

# the new stuff:
p + 
  geom_vline(xintercept = as.Date(c("2013-07-01", "2014-08-01")), linetype = "dashed") + 
  geom_text(data = data[data$subject == 'Articles' & data$value > 60,], mapping = aes(label = x), hjust = 1, nudge_x = -10)

. Не стесняйтесь играть со значениями hjust (0 = выравнивание по левому краю, 1 = вправовыровненный, 0,5 = центр) и nudge_x.Они также могут быть векторами, если вы хотите применить разные значения к каждой метке.

...