Ярлыки осей смешанного формата в диаграмме ggplot - PullRequest
Новая
       49

Ярлыки осей смешанного формата в диаграмме ggplot

1 голос
/ 31 мая 2019

Возможно ли иметь ось ggplot с метками в формате даты и в текстовом формате?

Следующий код создает диаграмму с осью x в формате даты, которая работает с 18 января по 19 июня,

#create plot with line and points.
#colour of points based on colour column of meltdf2
ggplot(data = meltdf2, aes(x = Month, y = variable, group = variable)) +
  geom_line(linetype = "dashed", colour = "grey") +
  geom_point(aes(colour = meltdf2$colour, size = 3)) +
  geom_point(data = melt_change, aes(shape = value, size = 3)) +
  scale_colour_manual(values = pal, limits = names(pal), guide_legend("Risk Level")) +
  scale_shape_manual(values = sh_pal, limits = names(sh_pal), guide_legend("Latest Change")) +
  scale_x_date(date_breaks = "1 month" , date_labels = "%b-%y") +
  theme(axis.title.y=element_blank(), axis.text.y=element_blank(), axis.ticks.y=element_blank(),
        axis.line.x = element_line(colour = "darkgrey"), axis.title.x=element_blank(),
        panel.background = element_rect(fill = "white"),
        panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        legend.position = c(0.2,0.70),
        legend.key.size = unit(1.5,"line")) + 
  guides(colour = guide_legend(override.aes = list(size = 3)), shape = guide_legend(override.aes = list(size = 5))) +
  scale_size(guide = "none")

Chart

Однако я хотел бы, чтобы метка даты 19 июня была заменена текстовой меткой с надписью «Изменить».Есть ли способ сделать это без указания всех меток по отдельности?

Я попытался создать вектор, который можно использовать в качестве аргумента labels в функции scale_x_date, используя следующий код: 

x_labels <- (as.Date(unique(meltdf2$Month)))
x_labels <- sort(x_labels)
x_labels <- c(x_labels,"Change")

Но вектор, кажется, неправильно сортирует даты, и текст «Изменить» заменяется на NA.

1 Ответ

1 голос
/ 31 мая 2019

Поскольку пример не является полностью воспроизводимым, я создал ответ с вымышленными данными.

Обратите внимание, что мне пришлось создать новый столбец для анализируемого периода (Period), чтобы онфактор и где я добавил имя " Изменение ".

Позже я изменил порядок уровней, используя forcats, функция fct_reorder, основываясь на датах (Dates) интереса. 

library(dplyr)
library(lubridate)
library(ggplot2)
library(forcats)
set.seed(1)
Period_x <- data.frame(Period = seq(lubridate::mdy('jan-01-2018'),
                                    lubridate::mdy('may-01-2019'), 
                                    by = 'month'))

Period_x <- Period_x %>% 
  dplyr::mutate(Period = format(Period, '%b-%y'))
Period_x <- rbind(Period_x, "Change")

Period2 <- seq(lubridate::mdy('jan-01-2018'),
               lubridate::mdy('jun-01-2019'), 
               by = 'month')

Period_x <- Period_x %>% 
  dplyr::mutate(Dates = Period2,
                y = rnorm(18), 
                Period = as.factor(Period),
                Period = forcats::fct_reorder(Period, 
                                              Dates))

ggplot2::ggplot(Period_x) +
  geom_point(aes(x = Period, y = y))

enter image description here

...