文字列のリストの検索と置換 - gsub eapply？ここ

Question

は、再生目的のために私のコードの簡略化の抜粋です。

library("quantmod") 
stockData <- new.env() 
stocksLst <- c("AAB.TO", "BBD-B.TO", "BB.TO", "ZZZ.TO") 
nrstocks = length(stocksLst) 
startDate = as.Date("2016-09-01") 

for (i in 1:nrstocks) { 
    getSymbols(stocksLst[i], env = stockData, src = "yahoo", from = startDate) 
} 

私のデータは、その後、私はいくつかの分析を行うために使用し、この環境stockDataに格納されます。私は現在XTSオブジェクトの名前をクリーンアップしたいと思います：

ls(stockData) 
[1] "AAB.TO" "BB.TO" "BBD-B.TO" "ZZZ.TO" 

私は削除する - をと名前のすべてから.TO、およびeapply GSUBとを使用しようとしました、成功することなく、適切な構文を理解することはできません。どんな助けもありがとう。ありがとう。

Answer 1

as.listとgsubの使用：

library("quantmod") 
stockData <- new.env() 
stocksLst <- c("AAB.TO", "BBD-B.TO", "BB.TO", "ZZZ.TO") 
nrstocks = length(stocksLst) 
startDate = as.Date("2016-09-01") 

for (i in 1:nrstocks) { 
    getSymbols(stocksLst[i], env = stockData, src = "yahoo", from = startDate) 
} 

ls(stockData) 
# [1] "AAB.TO" "BB.TO" "BBD-B.TO" "ZZZ.TO" 

#convert to list for ease in manipulation 
stockData = as.list(stockData) 

#find . and replace everything after it with "" 

names(stockData)= gsub("[.].*$","",names(stockData)) 

#alternately you could match pattern .TO exactly and replace with "" 

#names(stockData)= gsub("[.]TO$","",names(stockData)) 

ls(stockData) 
# [1] "AAB" "BB" "BBD-B" "ZZZ" 

#convert back to env 
list2env(stockData) 

Answer 2

の代わりにRを学びながら?regexでgsub状のベースRの機能を使用して、あなたはそれがはるかに簡単ライブラリstringrの関数で文字列を操作することがあります。 str_replace：

library(stringr) 
e.stocks <- list2env(setNames(lapply(stocksLst, function(x) y <- getSymbols(x, env = NULL)), 
        str_replace(str_replace(stocksLst, "-", ""), "\\.TO", "")))