highstockR

Install from Github

devtools::install_github("yutannihilation/highstockR")

Get data

library(dplyr)

data <- RFinanceJ::rfj("USDJPY=X") %>%
  transmute(Date = as.numeric(Date) * 3600 * 24 * 1000, Close) %>%
  arrange(Date) %>%
  as.matrix

colnames(data) <- NULL

Draw chart

highstockR::highstock(data, 'USDJPY=X')