GLOBAL X MLPA ETF

GLOBAL X MLPA ETF es un fondo cotizado en bolsa incorporado en los EE. UU. El Fondo busca rastrear el desempeño del Índice de Infraestructura MLP de Solactive. El Fondo se trata como una corporación regular, o corporación “C”, para propósitos de impuestos federales sobre los ingresos de los EE, proporcionar resultados de inversión que correspondan generalmente al precio y al rendimiento del rendimiento, antes de los honorarios y gastos, del Índice de Infraestructura MLP de Solactive,ay que invierte en algunas de las Sociedades Master Limited (MLP) más grandes y más líquidas.

plot(cars)

rm(list=ls(all=TRUE))
library(RCurl)

## Loading required package: bitops

library(packrat)
library(rsconnect)
library(quantmod)

## Loading required package: xts

## Loading required package: zoo

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

## Registered S3 method overwritten by 'xts':
##   method     from
##   as.zoo.xts zoo

## Loading required package: TTR

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

## Version 0.4-0 included new data defaults. See ?getSymbols.

library(xts)
library(tseries)
library(forecast)

## Registered S3 methods overwritten by 'forecast':
##   method             from    
##   fitted.fracdiff    fracdiff
##   residuals.fracdiff fracdiff

library(openxlsx)
library(timeSeries)

## Loading required package: timeDate

## 
## Attaching package: 'timeSeries'

## The following object is masked from 'package:zoo':
## 
##     time<-

library(tframePlus)

## Loading required package: tframe

library(ggplot2)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:timeSeries':
## 
##     filter, lag

## The following objects are masked from 'package:xts':
## 
##     first, last

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:timeSeries':
## 
##     filter

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

library(hrbrthemes)

## NOTE: Either Arial Narrow or Roboto Condensed fonts are required to use these themes.

##       Please use hrbrthemes::import_roboto_condensed() to install Roboto Condensed and

##       if Arial Narrow is not on your system, please see http://bit.ly/arialnarrow

library(ggthemes)
library(tidyverse)

## -- Attaching packages ------------------------------------------- tidyverse 1.2.1 --

## v tibble  2.1.3     v purrr   0.3.2
## v tidyr   0.8.3     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.4.0

## -- Conflicts ---------------------------------------------- tidyverse_conflicts() --
## x tidyr::complete() masks RCurl::complete()
## x plotly::filter()  masks dplyr::filter(), timeSeries::filter(), stats::filter()
## x dplyr::first()    masks xts::first()
## x dplyr::lag()      masks timeSeries::lag(), stats::lag()
## x dplyr::last()     masks xts::last()
## x purrr::splice()   masks tframe::splice()

library(dygraphs)
library(gridExtra)

## 
## Attaching package: 'gridExtra'

## The following object is masked from 'package:dplyr':
## 
##     combine

library(backports)
library(dplyr)
library(RCurl)
library(packrat)
library(rsconnect)

Data<-read.csv(file.choose())

View(Data)


str(Data$Date)

##  Factor w/ 1174 levels "2015-01-02","2015-01-05",..: 1 2 3 4 5 6 7 8 9 10 ...

Data$Date <- as.Date(Data$Date, "%Y-%m-%d")

range(Data$Date)

## [1] "2015-01-02" "2019-08-30"

Data <- Data[order(Data$Date), ]

Precio <- xts(x= Data$Close, 
             order.by = Data$Date)
colnames(Precio)<- c("Cierre")

 p<- dygraph(Precio) %>%dyOptions(labelsUTC = TRUE, fillGraph=TRUE,fillAlpha=0.5, drawGrid = F, colors="forestgreen") %>%
  dyRangeSelector() %>%dyCrosshair(direction = "vertical") %>%
  dyHighlight(highlightCircleSize = 5, highlightSeriesBackgroundAlpha =
                0.2, hideOnMouseOut = F)  %>%
  dyRoller(rollPeriod = 1)
p