brew install python
#・・・#==> python@3.9#Python has been installed as# /opt/homebrew/bin/python3##Unversioned symlinks `python`, `python-config`, `pip` etc. pointing to#`python3`, `python3-config`, `pip3` etc., respectively, have been installed into# /opt/homebrew/opt/python@3.9/libexec/bin##You can install Python packages with# pip3 install <package>#They will install into the site-package directory# /opt/homebrew/lib/python3.9/site-packages##tkinter is no longer included with this formula, but it is available separately:# brew install python-tk@3.9##See: https://docs.brew.sh/Homebrew-and-Python
#NASDAQ100の銘柄コード
nasdaq100.tic <- NASDAQ100$Ticker
nasdaq100.tic
# [1] "ATVI" "ADBE" "AMD" "ABNB" "ALGN" "GOOGL" "GOOG" "AMZN" # [9] "AEP" "AMGN" "ADI" "ANSS" "AAPL" "AMAT" "ASML" "TEAM" # [17] "ADSK" "ADP" "BIDU" "BIIB" "BKNG" "AVGO" "CDNS" "CHTR" # [25] "CTAS" "CSCO" "CTSH" "CMCSA" "CPRT" "COST" "CRWD" "CSX" # [33] "DDOG" "DXCM" "DOCU" "DLTR" "EBAY" "EA" "EXC" "FAST" # [41] "FISV" "FTNT" "GILD" "HON" "IDXX" "ILMN" "INTC" "INTU" # [49] "ISRG" "JD" "KDP" "KLAC" "KHC" "LRCX" "LCID" "LULU" # [57] "MAR" "MRVL" "MTCH" "MELI" "FB" "MCHP" "MU" "MSFT" # [65] "MRNA" "MDLZ" "MNST" "NTES" "NFLX" "NVDA" "NXPI" "ORLY" # [73] "OKTA" "PCAR" "PANW" "PAYX" "PYPL" "PTON" "PEP" "PDD" # [81] "QCOM" "REGN" "ROST" "SGEN" "SIRI" "SWKS" "SPLK" "SBUX" # [89] "SNPS" "TMUS" "TSLA" "TXN" "VRSN" "VRSK" "VRTX" "WBA" # [97] "WDAY" "XEL" "XLNX" "ZM" "ZS" #2021年中の株価取得
Date <-c("2021-01-01","2021-12-31")list<-as.character(unlist(nasdaq100.tic))
quantmod::getSymbols(list, src ="yahoo", verbose =T, from = Date[1], to=Date[2])#空のデータフレームの作成
stock <-data.frame(matrix(NA,
nrow=dim(get(nasdaq100.tic[1]))[1],
ncol=length(list)))#列名を付与するcolnames(stock)<-list#表示head(stock)# ATVI ADBE AMD ABNB ALGN GOOGL GOOG AMZN AEP AMGN ADI ANSS AAPL AMAT#1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA#2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA#3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA#4 NA NA NA NA NA NA NA NA NA NA NA NA NA NA#5 NA NA NA NA NA NA NA NA NA NA NA NA NA NA#6 NA NA NA NA NA NA NA NA NA NA NA NA NA NA#データの代入#文字列(ex. "assign('a', ATVI[,4])" )を作成して、#eval(parse(text = "..."))で、その文字列を命令文として実行するfor(n inseq_len(length(list))){try(eval(parse(text =paste("assign('a', ",list[n],"[,4])", sep=""))))
stock[,n]<- a
}#行名を日付にするrownames(stock)<-rownames(data.frame(a))#データ取得完了head(stock)# ATVI ADBE AMD ABNB ALGN GOOGL GOOG AMZN#2021-01-04 89.90 485.34 92.30 139.15 526.46 1726.13 1728.24 3186.63#2021-01-05 90.69 485.69 92.77 148.30 543.65 1740.05 1740.92 3218.51#2021-01-06 88.00 466.31 90.33 142.77 540.39 1722.88 1735.29 3138.38#2021-01-07 89.67 477.74 95.16 151.27 558.36 1774.34 1787.25 3162.16#2021-01-08 91.30 485.10 94.58 149.77 570.53 1797.83 1807.21 3182.70#2021-01-11 90.91 474.24 97.25 148.13 557.04 1756.29 1766.72 3114.21
#日時列に変える
stock03$date <-as.Date(stock03$date)#途中経過を表示head(stock03)# tic Sector date close#1 ATVI Communication Services 2021-01-04 100#2 ADBE Information Technology 2021-01-04 100#3 AMD Information Technology 2021-01-04 100#4 ABNB Consumer Discretionary 2021-01-04 100#5 ALGN Health Care 2021-01-04 100#6 GOOGL Communication Services 2021-01-04 100#株価の変動幅から、カラーを決める
stock03$dclose <- stock03$close -100
stock03$dclose2 <-NA
colfunc <- grDevices::colorRampPalette(c("brown3","white","darkgreen"))#色で区分け
a <-colfunc(17)
b1 <-seq(range(stock03$dclose)[1]-10,0, length.out=9)
b2 <-seq(0,range(stock03$dclose)[2]+10, length.out=9)
b3 <-c(b1, b2[-1])for(n inlength(b3):1){stock03$dclose2[stock03$dclose < b3[n]]<- a[n]}#途中経過を表示head(stock03)# tic Sector date close dclose dclose2#1 ATVI Communication Services 2021-01-04 100 0 #DFEBDF#2 ADBE Information Technology 2021-01-04 100 0 #DFEBDF#3 AMD Information Technology 2021-01-04 100 0 #DFEBDF#4 ABNB Consumer Discretionary 2021-01-04 100 0 #DFEBDF#5 ALGN Health Care 2021-01-04 100 0 #DFEBDF#6 GOOGL Communication Services 2021-01-04 100 0 #DFEBDF
1年間のパフォーマンス
#年変動の結果表示
stock2021 <- stock03[stock03$date =="2021-12-30",c(1:3,5)]
stock2021[order(stock2021$dclose, decreasing =T),]
tic Sector date dclose
5105 LCID Consumer Discretionary 2021-12-30285.9565092 FTNT Information Technology 2021-12-30147.1705120 NVDA Information Technology 2021-12-30125.6155115 MRNA Health Care 2021-12-30125.1865083 DDOG Information Technology 2021-12-3096.1315108 MRVL Information Technology 2021-12-3088.8155064 AMAT Information Technology 2021-12-3081.8585098 INTU Information Technology 2021-12-3073.0865056 GOOGL Communication Services 2021-12-3069.3975057 GOOG Communication Services 2021-12-3068.9615066 TEAM Information Technology 2021-12-3066.4195151 ZS Information Technology 2021-12-3065.5315102 KLAC Information Technology 2021-12-3064.0535065 ASML Information Technology 2021-12-3060.0445125 PANW Information Technology 2021-12-3059.6495053 AMD Information Technology 2021-12-3057.2595072 AVGO Information Technology 2021-12-3056.4085114 MSFT Information Technology 2021-12-3055.8735122 ORLY Consumer Discretionary 2021-12-3054.5855084 DXCM Health Care 2021-12-3051.3145126 PAYX Information Technology 2021-12-3051.0075104 LRCX Information Technology 2021-12-3050.2725149 XLNX Information Technology 2021-12-3050.1725080 COST Consumer Staples 2021-12-3048.3395141 TSLA Consumer Discretionary 2021-12-3046.6685139 SNPS Information Technology 2021-12-3045.5875068 ADP Information Technology 2021-12-3045.3365076 CSCO Information Technology 2021-12-3044.7225121 NXPI Information Technology 2021-12-3041.0765089 EXC Utilities 2021-12-3039.3005073 CDNS Information Technology 2021-12-3038.6645063 AAPL Information Technology 2021-12-3037.7025099 ISRG Health Care 2021-12-3036.2385095 IDXX Health Care 2021-12-3034.4785090 FAST Industrials 2021-12-3033.9145132 REGN Health Care 2021-12-3033.0635107 MAR Consumer Discretionary 2021-12-3032.1315086 DLTR Consumer Discretionary 2021-12-3032.1025087 EBAY Consumer Discretionary 2021-12-3029.6705111 FB Communication Services 2021-12-3028.0435075 CTAS Industrials 2021-12-3027.9255082 CSX Industrials 2021-12-3027.2425112 MCHP Information Technology 2021-12-3026.9575113 MU Information Technology 2021-12-3026.7935055 ALGN Health Care 2021-12-3025.7875146 WBA Consumer Staples 2021-12-3025.5805079 CPRT Industrials 2021-12-3025.2225131 QCOM Information Technology 2021-12-3023.0515093 GILD Health Care 2021-12-3022.0435054 ABNB Consumer Discretionary 2021-12-3021.2945147 WDAY Information Technology 2021-12-3021.2295061 ADI Information Technology 2021-12-3019.6965129 PEP Consumer Staples 2021-12-3019.6855143 VRSN Information Technology 2021-12-3019.0705052 ADBE Information Technology 2021-12-3017.5535119 NFLX Communication Services 2021-12-3017.0665142 TXN Information Technology 2021-12-3016.7615101 KDP Consumer Staples 2021-12-3016.1135116 MDLZ Consumer Staples 2021-12-3013.5195062 ANSS Information Technology 2021-12-3013.4235138 SBUX Consumer Discretionary 2021-12-3012.7455144 VRSK Industrials 2021-12-3012.4265077 CTSH Information Technology 2021-12-3011.9875106 LULU Consumer Discretionary 2021-12-3011.8665071 BKNG Consumer Discretionary 2021-12-3010.7135059 AEP Utilities 2021-12-308.7695118 NTES Communication Services 2021-12-307.2465058 AMZN Consumer Discretionary 2021-12-305.8455117 MNST Consumer Staples 2021-12-305.2875096 ILMN Health Care 2021-12-304.4815081 CRWD Information Technology 2021-12-304.2205103 KHC Consumer Staples 2021-12-304.1785097 INTC Information Technology 2021-12-304.1685135 SIRI Communication Services 2021-12-304.0525148 XEL Utilities 2021-12-303.9145136 SWKS Information Technology 2021-12-303.3705124 PCAR Industrials 2021-12-303.1875074 CHTR Communication Services 2021-12-301.5765078 CMCSA Communication Services 2021-12-300.1585060 AMGN Health Care 2021-12-30-0.0845094 HON Industrials 2021-12-30-0.4045070 BIIB Health Care 2021-12-30-1.2145133 ROST Consumer Discretionary 2021-12-30-2.3925145 VRTX Health Care 2021-12-30-3.0425088 EA Communication Services 2021-12-30-3.6205067 ADSK Information Technology 2021-12-30-5.0975091 FISV Information Technology 2021-12-30-6.6125134 SGEN Health Care 2021-12-30-6.6735123 OKTA Information Technology 2021-12-30-10.2215109 MTCH Communication Services 2021-12-30-11.1535140 TMUS Communication Services 2021-12-30-12.0215127 PYPL Information Technology 2021-12-30-17.2655110 MELI Consumer Discretionary 2021-12-30-17.2895100 JD Consumer Discretionary 2021-12-30-18.4525051 ATVI Communication Services 2021-12-30-24.9285137 SPLK Information Technology 2021-12-30-30.2225085 DOCU Information Technology 2021-12-30-30.2375069 BIDU Communication Services 2021-12-30-30.5305150 ZM Information Technology 2021-12-30-47.0755130 PDD Consumer Discretionary 2021-12-30-64.3545128 PTON Consumer Discretionary 2021-12-30-74.520