Linguagem orientada a objeto

Aqui vamos falar do símbolo ‘<-’ ou ‘=’.

meu_numero <- 19

meu_numero
## [1] 19
meu_numero2 <- 21

meu_numero2
## [1] 21
class(meu_numero)
## [1] "numeric"
soma <- meu_numero+meu_numero2
soma
## [1] 40
meu_numero3 = 31

soma2 = soma + meu_numero3
soma2
## [1] 71
novo_numero = meu_numero^2
novo_numero
## [1] 361
meu_numero = meu_numero + 5
meu_numero
## [1] 24
novo_numero
## [1] 361
meu_texto = "esse é meu primeiro texto em R"
meu_texto
## [1] "esse é meu primeiro texto em R"
class (meu_texto)
## [1] "character"
numero_como_texto = "154"
numero_como_texto
## [1] "154"
class(numero_como_texto)
## [1] "character"
numero_como_texto2 = as.character(novo_numero)
numero_como_texto2
## [1] "361"
numero = as.numeric(numero_como_texto2)
numero
## [1] 361

Trabalhando com vetores no R

O vetor tem a estrutura ‘c()’. Exemplos: c(1, 2, 3, 4, 5) c(“a”, “b”, “c”, “d”)

meu_vetor = c(11,54,89,75,99)
meu_vetor
## [1] 11 54 89 75 99
class(meu_vetor)
## [1] "numeric"
somav = sum(meu_vetor)
somav
## [1] 328
mediav = mean (meu_vetor)
mediav
## [1] 65.6
estat = summary(meu_vetor)
estat
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    11.0    54.0    75.0    65.6    89.0    99.0
vetor_texto = c('meu', 'texto', 'em R')
vetor_texto
## [1] "meu"   "texto" "em R"

Sobre Data.frame

Podemos armazenar vários vetores criando um banco de dados com a função data.frame

Funcionarios <- data.frame(nome = c("Marx", "Weber", "Durkheim","Arendt", "Maquiavel"),
                           sexo = c("M", "M", "M", "F","M"),
                           salario = c(1000, 1200, 1300, 2000, 500),
                           stringsAsFactors = FALSE)
Funcionarios
##        nome sexo salario
## 1      Marx    M    1000
## 2     Weber    M    1200
## 3  Durkheim    M    1300
## 4    Arendt    F    2000
## 5 Maquiavel    M     500
turma <- data.frame(nome_aluno = c("Jurgen Habermas", "Karl Popper", "John Rawls","Paulo Freire"),
                    sexo = c("M", "M", "M","M"),
                    CR = c(6.98, 7.01, 7.03, 8.88), stringsAsFactors = FALSE)
turma
##        nome_aluno sexo   CR
## 1 Jurgen Habermas    M 6.98
## 2     Karl Popper    M 7.01
## 3      John Rawls    M 7.03
## 4    Paulo Freire    M 8.88
Funcionarios$salario
## [1] 1000 1200 1300 2000  500
turma$nome_aluno
## [1] "Jurgen Habermas" "Karl Popper"     "John Rawls"      "Paulo Freire"
media_sal = mean(Funcionarios$salario)
media_sal
## [1] 1200

Conclusão

O R nos permite diversas possibilidades de aplicação.

O R é fantástico!