TradingView In R Notebook

knitr::opts_chunk$set(warning = FALSE, message = FALSE)
library(tradingview)
library(tidyverse)
library(tidyquant)

data <- iris %>% mutate(
  time = Sys.time() + (row_number() * 60 * 60),
  color = case_when(
    Sepal.Width > 3 ~ "above",
    TRUE ~ "below"
  )
)
data

aapl <- tq_get("AAPL") %>% mutate(time = date)
aapl

Render

tradingview(data, height = 300) %>%
  tv_chart(decimals = 2) %>%
  tv_line(value = "Sepal.Width") %>%
  tv_line(value = "Sepal.Length", color = "rgba(255,0,0,0.5)") %>%
  tv_histogram(name = "histogram", 
               value = "Sepal.Width", 
               base = 3, 
               colors = "color", 
               mapping = list(
                 above = "rgba(0, 255, 0, 0.1)", 
                 below = "rgba(255, 0, 0, 0.1)"))

tradingview(aapl, height = 400) %>%
  tv_chart(decimals = 2) %>%
  tv_line(value = "close")

tradingview(aapl, height = 400) %>%
  tv_chart(decimals = 2, margins = tv_margins(0, 0.2)) %>%
  tv_candles() %>%
  tv_line(color = "rgba(255,0,0,0.2)", value = "close") %>%
  tv_histogram(value = "volume", color = "rgba(0,0,0,0.15)", overlay = TRUE, margins = tv_margins(0.8, 0))