The US Grocer (KR)

# Kroger
kroger_stock <- tq_get("KR",
                       get = "stock.prices",
                       from = "2013-03-01",
                       to = "2018-03-01") %>%
  select(-volume) %>%
  rename(Open = open, High = high, Low = low, Close = close, Adjusted = adjusted) %>%
  tk_xts(start = 2013, freq = 1259, silent = TRUE)

dygraph(kroger_stock,
        ylab = "Stock Value",
        main = "Kroger Stock Summary") %>% 
  dyRangeSelector() %>%
  dyOptions(colors = RColorBrewer::brewer.pal(5, "Dark2")) %>%
  dyHighlight(highlightCircleSize = 5, 
              highlightSeriesBackgroundAlpha = 0.8,
              hideOnMouseOut = FALSE,
              list(strokeWidth = 3)) %>%
  dyShading(from = "2015-12-24", to = "2017-10-3") 

Commentary: This graphic shows a 5-point summary of Kroger’s stock value for the last 5 years. You can see that the stock price went down around Christmas of 2015. The value when back up again around October 3, 2017. Around that time Kroger announced that it was working with Goldman Sachs.