Créer un nuage de points risque/rendement
Dans cet exemple, vous avez décidé d’élargir votre univers d’investissement en construisant un portefeuille composé d’un ETF actions américaines (SPY), d’un ETF obligations américaines (AGG), d’une fiducie de placement immobilier (VNQ) et d’un ETF répliquant l’indice de matières premières GSCI (GSG). Le graphique dans l’environnement affiche la performance de ces investissements.
Vous pouvez aussi visualiser l’attractivité relative des investissements en traçant un nuage de points des rendements moyens en fonction des volatilités de portefeuille. Pour cela, vous devez calculer les moyennes et les volatilités pour chaque actif. Cela correspond à chaque colonne de la série de rendements returns.
Ces calculs sont facilités par la fonction apply() dont le premier argument est la série de rendements, le deuxième argument vaut 2 pour indiquer un calcul par colonne, et le troisième argument est le nom de la fonction à appliquer à chaque colonne.
Cet exercice fait partie du cours
Introduction à l’analyse de portefeuille en R
Instructions
- Calculez le vecteur des rendements moyens de ces quatre investissements avec
apply()et appelez-lemeans(notez que vous auriez aussi pu utilisercolMeans()!). - Faites de même pour calculer le vecteur des écarts types et appelez-le
sds. - Créez un nuage de points avec la fonction de tracé de base, en plaçant les volatilités sur l’axe des x et les moyennes sur l’axe des y. Les libellés et une ligne de référence ont déjà été ajoutés pour vous. N’y touchez pas !
Exercice interactif pratique
Essayez cet exercice en complétant cet exemple de code.
# Create a vector of returns
means <- apply(___, 2, "mean")
# Create a vector of standard deviation
# Create a scatter plot
plot(___, ___)
text(sds, means, labels = colnames(returns), cex = 0.7)
abline(h = 0, lty = 3)