Сделать земля выглядеть как земля Bloomberg в R

Question

Я пытаюсь сделать сюжет похож на те из терминала Bloomberg в R, и я нашел следующую запись для Mathematica:

https://mathematica.stackexchange.com/questions/48185/make-plot-look-like-bloomberg-terminal

Мой вопрос возможно, это можно сделать в RI, думающем с ggplot2?

Answer 1

Вот первый разрез. У него нет градиентной заливки, а закрытие цены закрытия - это прямоугольник, а не указатель на график (я попробовал annotate с geom="segment", чтобы получить фон стрелки, но похоже, что это не работает должным образом с датами). Для общего использования ему также нужна некоторая логика, а не жесткое кодирование, для определения того, сколько площади выделяется для текста цены закрытия на правом краю. Я также не включил панель с высоким, низким, средним и т. Д., Которую можно добавить с помощью annotate.

library(ggplot2) 

set.seed(199) 
dat = data.frame(date = seq(as.Date("2013/10/01"), as.Date("2013/12/31"), by="1 day"), 
       price = cumsum(rnorm(92, 0, 1)) + 100) 

ggplot(dat, aes(date, y=price)) + 
    geom_area(fill="navyblue", colour="white", alpha=0.5) + 
    theme(plot.background=element_rect(fill="black"), 
     panel.background=element_rect(fill="#101040"), 
     panel.grid.minor=element_blank(), 
     panel.grid.major=element_line(linetype=2), 
     axis.text=element_text(size=15, colour="white")) + 
    coord_cartesian(ylim=c(min(dat$price) - 1, max(dat$price) + 1), 
        xlim=c(min(dat$date)-2, max(dat$date)+10)) + 
    annotate("rect", xmin=max(dat$date) + 0.75, xmax=max(dat$date) + 7.25, 
      ymin=dat$price[dat$date==max(dat$date)] - 0.25, 
      ymax=dat$price[dat$date==max(dat$date)] + 0.25, fill="white", colour="black") + 
    annotate("text", max(dat$date) + 1, dat$price[dat$date==max(dat$date)], 
      label=paste0("$", round(dat$price[dat$date==max(dat$date)],2)), 
      colour="black", hjust=0)