Grafická analýza transakcií

Globálne nastavenie Chunkov

knitr::opts_chunk$set(
  echo = TRUE,
  message = FALSE,
  warning = FALSE
)

Načítanie knižníc a údajov

# Načítanie balíka tidyverse (obsahuje ggplot2, dplyr, readr...)
library(tidyverse)

# Používame read_csv namiesto read.csv pre lepšie spracovanie riadkov s čiarkami
udaje <- read_csv("transactions.csv")

# Očistenie dát pre spracovanie (odstránenie čiarok z cien, zmena na čísla)
udaje_clean <- udaje %>%
  mutate(
    price_usd = as.numeric(gsub(",", "", price_usd)),
    event_year = as.numeric(event_year),
    height = as.numeric(height),
    width = as.numeric(width)
  ) %>%
  filter(!is.na(price_usd) & !is.na(event_year))

Grafická analýza

Vzťah medzi výškou diela a cenou

Bodový graf (scatter plot) so zobrazenou čiarou lineárneho trendu. Zobrazuje, či výška diela súvisí s jeho finálnou predajnou cenou.

# Vyfiltrujeme chýbajúce hodnoty pre výšku, aby sa graf správne vykreslil
ggplot(filter(udaje_clean, !is.na(height)), aes(x = height, y = log(price_usd))) +
  geom_point(color = "darkred", alpha = 0.5) +
  geom_smooth(method = "lm", color = "black", se = FALSE) +
  labs(
    title = "Závislosť ceny diela od jeho výšky",
    x = "Výška diela",
    y = "Log(Cena v USD)"
  ) +
  theme_minimal()