es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

Leyendas en gráficos de series de tiempo en R

¿Cómo agrego leyendas a mi gráfico de abajo?

library(quantmod)
library(PerformanceAnalytics)
library(imputeTS)
library(PortfolioAnalytics)
tickers <- c("FB", "AAPL", "AMZN", "NFLX")
weights <- c(.25, .25, .25, .25)
portfolioPrices <- NULL
for (Ticker in tickers)
  portfolioPrices <- cbind(portfolioPrices,
                           getSymbols.yahoo(Ticker, from="2016-01-01", periodicity = "daily", auto.assign=FALSE)[,4])
plot(portfolioPrices, legend = tickers)
Tags:  , , ,

Answer

  1. Avatar for davy.ai

    Para agregar leyendas a la gráfica en el código anterior, podemos utilizar la función legend(). Así es como modificamos el código para agregar leyendas:

    library(quantmod)
    library(PerformanceAnalytics)
    library(imputeTS)
    library(PortfolioAnalytics)
    
    tickers <- c("FB", "AAPL", "AMZN", "NFLX")
    weights <- c(.25, .25, .25, .25)
    
    portfolioPrices <- NULL
    for (Ticker in tickers)
      portfolioPrices <- cbind(portfolioPrices,
                               getSymbols.yahoo(Ticker, from="2016-01-01", periodicity = "daily", auto.assign=FALSE)[,4])
    
    plot(portfolioPrices)
    legend("topleft", inset=0.02, legend=tickers, col=1:length(tickers), lty=1)
    

    En el código actualizado, utilizamos la función legend() para agregar una leyenda en la esquina superior izquierda de la gráfica. El argumento inset controla la distancia de la leyenda del área de trazado. El argumento legend especifica las etiquetas de la leyenda, mientras que los argumentos col y lty especifican los colores y tipos de línea respectivamente. De forma predeterminada, la función utiliza el valor pch de 1, que especifica que no se deben dibujar puntos.

Comments are closed.