Úloha 2. (prvá časť)

Investície do akcií

Julka začala investovať do akcií. Chce analyzovať svoj prvý investičný portfólio:

Portfólio akcií:

Apple: 5 akcií po 150 €

Microsoft: 3 akcii po 280 €

Tesla: 2 akcie po 210 €

Ceny akcií

cena_apple <- 150
cena_microsoft <- 280
cena_tesla <- 210

Počet akcií

pocet_apple <- 5
pocet_microsoft <- 3
pocet_tesla <- 2

Výpočet hodnôt pre každú spoločnosť

hodnota_apple <- cena_apple * pocet_apple
hodnota_microsoft <- cena_microsoft * pocet_microsoft
hodnota_tesla <- cena_tesla * pocet_tesla

Celková hodnota portfólia

celkova_hodnota <- hodnota_apple + hodnota_microsoft + hodnota_tesla

Percentuálne zastúpenie každého aktíva

podiel_apple <- (hodnota_apple / celkova_hodnota) * 100
podiel_microsoft <- (hodnota_microsoft / celkova_hodnota) * 100
podiel_tesla <- (hodnota_tesla / celkova_hodnota) * 100

Výpis základných výsledkov

celkova_hodnota

## [1] 2010

round(podiel_apple, 1)

## [1] 37.3

round(podiel_microsoft, 1)

## [1] 41.8

round(podiel_tesla, 1)

## [1] 20.9

---

Stĺpcový graf hodnoty akcií v portfóliu

hodnoty <- c(hodnota_apple, hodnota_microsoft, hodnota_tesla)
spolocnosti <- c("Apple", "Microsoft", "Tesla")
barplot(hodnoty,
       names.arg = spolocnosti,
       col = c("lightpink", "lightblue", "lightgreen"),
       main = "Hodnota akcií v portfóliu",
       xlab = "Spoločnosti",
       ylab = "Hodnota (€)",
       ylim = c(0, 1000))