pacta.interactive.plot

The goal of pacta.interactive.plot is to …

Installation

You can install the development version of pacta.interactive.plot from R-universe with:

install.packages("pacta.interactive.plot", repos = "https://rmi-pacta.r-universe.dev")

You can install the development version of pacta.interactive.plot from GitHub with:

devtools::install_github("RMI-PACTA/pacta.interactive.plot")

Example

This is a basic example usage of tech_exposure_chart():

library(pacta.interactive.plot)

load(system.file("example-data/test.rda", package = "pacta.interactive.plot"))

tech_exposure <-
  as_tech_exposure_data(
    equity_results_portfolio = equity_results_portfolio,
    bonds_results_portfolio = bonds_results_portfolio,
    indices_equity_results_portfolio = indices_equity_results_portfolio,
    indices_bonds_results_portfolio = indices_bonds_results_portfolio,
    select_scenario = "WEO2019_SDS",
    select_scenario_auto = "ETP2017_B2DS",
    select_scenario_shipping = "SBTI_SBTI",
    select_scenario_other = "ETP2017_B2DS",
    equity_market_levels = c("Global Market", "Developed Market", "Emerging Market")
  )

tech_exposure_chart(tech_exposure)

This is a basic example usage of trajectory_alignment_chart():

library(pacta.interactive.plot)

load(system.file("example-data/test.rda", package = "pacta.interactive.plot"))

trajectory_alignment_data <-
  as_trajectory_alignment_data(
    equity_results_portfolio = equity_results_portfolio,
    bonds_results_portfolio = bonds_results_portfolio,
    indices_equity_results_portfolio = indices_equity_results_portfolio,
    indices_bonds_results_portfolio = indices_bonds_results_portfolio,
  )

trajectory_alignment_chart(trajectory_alignment_data)

This is a basic example usage of peer_comparison_chart():

library(pacta.interactive.plot)

load(system.file("example-data/test.rda", package = "pacta.interactive.plot"))

peer_comparison_data <-
  as_peer_comparison_data(
    equity_results_portfolio = equity_results_portfolio,
    bonds_results_portfolio = bonds_results_portfolio,
    peers_equity_results_user = peers_equity_results_user,
    peers_bonds_results_user = peers_bonds_results_user,
    investor_name = "Test",
    portfolio_name = "TestPortfolio_Input",
    start_year = 2020,
    peer_group = "pensionfund",
    select_scenario = "WEO2019_SDS",
    select_scenario_auto = "ETP2017_B2DS",
    select_scenario_shipping = "SBTI_SBTI",
    select_scenario_other = "ETP2017_B2DS"
  )

peer_comparison_chart(peer_comparison_data)