会社名、リターン証券取引所およびティッカー記号（Rを使用）

誰かが会社名を取ってその交換とティッカーシンボルを出力するR能力を持っているのかどうか疑問に思う。例えば、文字ベクトル入力取ることができる：会社名、リターン証券取引所およびティッカー記号（Rを使用）

company <- c("Google", "General Motors Company", "singtei")

をして

stockinfo <- ("NASDAQ: GOOGL", "NYSE: GM", "SGX: Z74")

は何も（ggmap力仕事をしているようなパッケージ付き）この単純明快がない可能性があります返しますが、例として、

# Cities needing geocodes 
cities <- c("Phoenix", "Los Angeles", "Portland") 
# Geocode function 
library(ggmap) 
coord <- geocode(cities) 
# Geographic coordinates 
coord

出力：

同様の機能は、このコードは、地理座標指定された都市名を返します。

 lon  lat 
1 -112.0740 33.44838 
2 -118.2437 34.05223 
3 -122.6765 45.52306 
>

出典

2017-09-12 dmb

'library（TTR）'はティッカー情報を提供する 'stockSymbols（exchange =" NASDAQ "）'を持っています。リファレンス：https://stackoverflow.com/a/25635136/8382207 – Sagar

Hello Sagarそれは素晴らしいことです - ありがとうございました。 1つの微妙な詳細 - しかし、今すぐテストから、TTRパッケージは "AMEX"、 "NASDAQ"、 "NYSE"交換に限定されています。他の国際交流を組み込む方法があるのかどうか分からないのですか？ – dmb

私はこれが国際的な交流を含んでいないことを実感しました。現在のシンボルについては、私の答えをご覧ください。 – Sagar

> company <- "Microsoft" 
> symbolData <- stockSymbols(exchange = c("AMEX", "NASDAQ", "NYSE")) 
Fetching AMEX symbols... 
Fetching NASDAQ symbols... 
Fetching NYSE symbols... 

> exc <- symbolData[agrep(company, symbolData[,2]), 8] 
> sym <- symbolData[agrep(company, symbolData[,2]), 1] 
> STK <- paste(exc,":",sym, sep = "") 

> STK 
[1] "NASDAQ:MSFT"

出典

2017-09-12 18:21:05 Sagar

こんにちはサーガル。 1つの会社を使用しているときにコードが動作しますが、企業のベクトルでこのエラーが発生します。「引数 'pattern'の長さが1より大きく、最初の要素のみが使用されます。おそらくあなたはすばやく見ることができますか？ – dmb

ループインすると、データオブジェクトの各要素に対して機能します。 – Sagar

ありがとう！ – dmb

会社名、リターン証券取引所およびティッカー記号（Rを使用）

答えて

関連する問題