Popisná štatistika a grafická analýza dát

Načítanie dát

data("WWWusage")

Základná štatistická analýza

summary(WWWusage)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    83.0    99.0   138.5   137.1   167.5   228.0

mean(WWWusage)

## [1] 137.08

median(WWWusage)

## [1] 138.5

var(WWWusage)

## [1] 1599.953

sd(WWWusage)

## [1] 39.99941

IQR(WWWusage)

## [1] 68.5

range(WWWusage)

## [1]  83 228

# Variacny koeficient
coef_variation <- sd(WWWusage) / mean(WWWusage) * 100
coef_variation

## [1] 29.17961

# Kvantily
quantile(WWWusage, probs = c(0.25, 0.5, 0.75))

##   25%   50%   75% 
##  99.0 138.5 167.5

# Vyberové momenty
library(moments)
skewness(WWWusage)

## [1] 0.3833507

kurtosis(WWWusage)

## [1] 2.372461

Histogram

hist(WWWusage, breaks=10, main="Histogram of WWWusage", xlab="Usage", col="lightblue", border="black")

# Boxplot
boxplot(WWWusage, main="Boxplot of WWWusage", ylab="Usage")

# Lineárny graf
plot(WWWusage, type="l", main="Line Plot of WWWusage", ylab="Usage", xlab="Time")

# Pridanie normálneho rozdelenia do histogramu
hist(WWWusage, breaks=10, main="Histogram with Normal Distribution", xlab="Usage", col="lightblue", border="black", probability = TRUE)
curve(dnorm(x, mean=mean(WWWusage), sd=sd(WWWusage)), col="red", lwd=2, add=TRUE)

# Violin plot
library(vioplot)

## Warning: package 'vioplot' was built under R version 4.3.3

## Loading required package: sm

## Warning: package 'sm' was built under R version 4.3.3

## Package 'sm', version 2.2-6.0: type help(sm) for summary information

## Loading required package: zoo

## Warning: package 'zoo' was built under R version 4.3.3

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

vioplot(WWWusage, main="Violin Plot of WWWusage", col="lightgreen")