Stručný úvod do jazyka R¶

Mojmír Vinkler, 2.3.2016

Kde programovat v R¶

RStudio (bude používáno na cvičeních)
R konzole z terminálu
Jupyter Notebook (https://try.jupyter.org/)

R jako "lepší" kalkulačka¶

sqrt((42 + 4.2)^2 + sin(exp(1) * pi))

Proměnné¶

a = 1
# operator <- je stejny jako =
b <- 2
c = a + b
c

Základní datové typy¶

# numericky typ
a = 2
a = 2.2

# retezec (string)
a = 'text'

# true / false
a = TRUE
a = FALSE
a = T
a = F

# vektor
a = c(1,2,3)
a = 1:3

Operátory¶

1 == 1
1 != 2
1 < 2
!TRUE
is.na(NaN)
is.null(NULL)

Pokročilé datové typy¶

# matice
A = matrix(1:9, 3, 3)
A = rbind(c(1,2,3), c(4,5,6), c(7,8,9))
A

# dataframe (= matice s pojemnovanymi sloupci)
df = data.frame(a=c(1,2,3), b=c('a', 'b', 'c'))
head(df)

Operace s vektory¶

a = c(1,2,3)
b = c(3,4,5)
# scitani / nasobeni po slozkach
print(a + b)
print(a * b)
# skalarni soucin
print(a %*% b)

[1] 4 6 8
[1]  3  8 15
     [,1]
[1,]   26

Operace s maticemi¶

A = matrix(1, 2, 3)

# nasobeni po slozkach
A * A

# maticove nasobeni
A %*% t(A)

Vyber prvku z vektoru / matice / dataframe¶

a = 1:10
a[4]

A = matrix(1:9, 3, 3)
# prvek
A[1,3]

# 1. radek
A[1,]

# 1. sloupec
A[,1]

A = data.frame(a=c(1,2,3), b=c('a', 'b', 'c'))
# sloupec `a`
A[,'a']
# prvni radek
A[1,]
# sloupce `a` a `b`
A[,c('a', 'b')]

Zakladni funkce¶

a = c(1,2,3)
sum(a)
mean(a)
max(a)
min(a)
sd(a)

Grafika¶

x = 1:100
y = sin(0.1 * x)
plot(x, y, xlab='x-ova osa', ylab='y-ova osa', main='Hlavni popisek')

require(datasets)
pairs(iris[1:4], main="Edgar Anderson's Iris Data", pch=21,
       bg = c("red", "green3", "blue")[unclass(iris$Species)])

Funkce¶

secti = function(a, b, c=1){
    return(a + b + c)
}

secti(3, 4)
secti(3, 4, c=2)

If-else podminky¶

odpoved = 42
if(odpoved == 42){
    print('Spravna odpoved')
} else if(abs(odpoved - 42) <= 2){
    print('Skoro...')
} else {
    print('Spatna odpoved')
}

[1] "Spravna odpoved"

Cykly¶

for(i in 1:10){
    print(i)
}

[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
[1] 8
[1] 9
[1] 10

Načítání dat¶

data = read.table('data-3d-base-xyz.txt', header=TRUE)
head(data)

Používání externích knihoven / skriptů¶

# instalace knihovny
install.packages('circular')

# nacteni knihovny k pouziti (zpristupni funkce k pouziti)
library(circular)

# nacteni vsech funkci z externiho skriptu
source('moje-funkce.R')

Funkce `apply`¶

Pomocí apply můžete aplikovat danou funkci na všechny řádky / sloupce matice (nebo data.frame).

# prumerna hodnota sloupce
apply(data[,c('x.B', 'y.B', 'z.B')], 2, mean)

# prumerna hodnota radku
apply(data[,c('x.B', 'y.B', 'z.B')], 1, mean)

Další funkce¶

# funkce pro vypisovani na konzoli
cat('Vypis', 'text', 42, '\n', 'na dalsi radek')

Vypis text 42 
 na dalsi radek

	id	sex	x.B	y.B	z.B	x.BA	y.BA	z.BA	x.POdx	y.POdx	z.POdx	x.POsin	y.POsin	z.POsin
1	1	F	128.88	139.95	476.2	127.59	155.73	340.5	71.28	154.85	364.29	184.78	160.36	363.71
2	2	F	144.89	150.63	466.31	138.7	160.68	335.72	81.42	153.36	358.42	198.78	171.97	359
3	3	F	111.33	136.22	457.02	109.14	144.94	338.04	54.77	130.4	347.57	164.88	154.13	347.47
4	4	F	126.33	159.01	468.65	122.69	171.45	337.13	70.44	180.89	351.68	178.47	160.87	351.34
5	5	F	133.05	120	473.65	134.91	144.22	349.8	78.17	144.41	367.27	188.57	148.28	366.3
6	6	F	111.08	112.4	467.09	101.96	125.41	339.18	48.74	106.06	356.22	156.4	149.17	356.69

Stručný úvod do jazyka R¶

Kde programovat v R¶

R jako "lepší" kalkulačka¶

Proměnné¶

Základní datové typy¶

Operátory¶

Pokročilé datové typy¶

Operace s vektory¶

Operace s maticemi¶

Vyber prvku z vektoru / matice / dataframe¶

Zakladni funkce¶

Grafika¶

Funkce¶

If-else podminky¶

Cykly¶

Načítání dat¶

Používání externích knihoven / skriptů¶

Funkce apply¶

Další funkce¶

Funkce `apply`¶