[R] quantmod: How could I change the name in chartSeries

[Duncan Mackay]

Hi

I have not used quantmod before  so I got the

stock.name <- getSymbols(stock.code, from = "2010-01-01",
                                                 to = Sys.Date(), src = 
"yahoo", auto.assign=FALSE)
   chartSeries(stock.name, theme = theme.white,
               # subset = 'last 12 months',
               TA = "addVo(); addSMA(); addEnvelope();
                   addMACD(); addMomentum(); addROC();
                   addBBands()")
and 
str(stock.name)

on it to see its structure

If you require  the "^" before the stock.code insert

name = sub("\\..*$","",attributes(stock.name)$dimnames[[2]][1]),
otherwise 
name = stock.code

eg

chartSeries(stock.name,
               theme = theme.white,
               name =
sub("\\..*$","",attributes(stock.name)$dimnames[[2]][1]),
               # subset = 'last 12 months',
               TA = "addVo(); addSMA(); addEnvelope(); addMACD();
addMomentum(); addROC(); addBBands()")
               addLines(v = which(stock.name[,4] == max(stock.name[,4])),
               col = "gray")

If this is not what you want it will be somewhere in the stock.name and
?chartSeries

Duncan

Duncan Mackay
Department of Agronomy and Soil Science
University of New England
Armidale NSW 2351
Email: home: mackay at northnet.com.au


-----Original Message-----
From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org] On
Behalf Of William
Sent: Thursday, 10 July 2014 14:00
To: r-help at r-project.org
Subject: [R] quantmod: How could I change the name in chartSeries

hi, guys,

I am just a beginner to the excellent R package, quantmod. I quite don't 
know how to change the y-axis name in the chartSeries function. 
Actually, I want to write some sort of the following function, by which 
I could use just one code  sentence  to complete the financial analysis.

The following function is designed to provide some aspects of the 
S&P500. And now I want to change the "stock.name" on the y-axis as 
"S&P500". Is there anyway to realize this?

THX

         William


#################################################################
stock.price <- function(stock.name, stock.code){
   #### Loading......
   library(zoo)
   library(xts)
   library(TTR)
   library(Defaults)
   library(quantmod)
#---------------------------------------------------------------------------
---------------------------------------------------------------
   ## Theme: white
   theme.white <- chartTheme("white")
   names(theme.white)
   theme.white$bg.col <- "white"
   theme.white$up.col <- "red"
   theme.white$dn.col <- "green"
#---------------------------------------------------------------------------
---------------------------------------------------------------
   #### main function
   stock.name <- getSymbols(stock.code, from = "2010-01-01",
                                                 to = Sys.Date(), src = 
"yahoo", auto.assign=FALSE)
   chartSeries(stock.name, theme = theme.white,
               # subset = 'last 12 months',
               TA = "addVo(); addSMA(); addEnvelope();
                   addMACD(); addMomentum(); addROC();
                   addBBands()")
   addLines(v = which(stock.name[,4] == max(stock.name[,4])),
            col = "gray")
}
#################################################################
stock.price(S&P500, "^GSPC")

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.