@rammon

Teste_Diretorio

September 24, 2022 · R
getwd()
dir()

x <- getwd()
setwd (x)

getwd ()
setwd (dir="/tmp")

Função_Diretório

updated September 24, 2022 · R
x <- 1:10 # Forma de sequência
save (x, file = "x.RData") # Salva um objeto e utiliza file para colocar o nome do arquivo mais a extensão .RData
load ("x.RData") # Carrega na área de trabalho um objeto salvo anteriormente

# Me diga qual a pasta de trabalho atual
# getwd ("C:\Users\user\Documents\arquivos_de_exercicios_descubra_a_linguagem_r\dados\...")
dir () # Mesma coisa de getwd

# Para saber qual o sistema operacional presente
setwd("~")
getwd()

Função_SessionInfo_Ls_Print

September 24, 2022 · R
sessionInfo() # Menciona a versão do R e o sistema operacional
x <- pi
ls() # Quando vazio o resultado é character (0), mas quando tem um objeto registrado aparece a lista de objetos 
print ("Aqui esta")
print (x)
print (x, digits =3)
print ()

Função_Example

updated September 24, 2022 · R
example ("ls")
example ("as.factor")

Funções_Ajuda_Help

updated September 24, 2022 · R
help(demo) # Para saber o significado de cada argumento, o tipo de objeto retornado pela função
# maiores detalhes sobre o seu uso
?demo # Mesma coisa do help
apropos ("factor") # Quando não é lembrado o nome exato da função


help.search ("install") # Quando não conhecemos a função de que precisamos
??network # Mesma coisa de help.search

help.start () # Manual completo do R 

Formas_Função_Args

September 24, 2022 · R
args (setwd) # Argumento recebido pela função setwd
args (log)
args (head)

Formas_Função_Quit

September 24, 2022 · R
quit ()
q()
?quit

Formas_Sequência

September 24, 2022 · R
seq(0, 1, length.out = 11)
seq(20)
seq(stats::rnorm(20))
seq(1, 9, by = pi)

Problema_Comprimento_Sequência_Vetores

updated September 24, 2022 · R
x <- seq(2, 10, by = 3)
y <- seq(1, 11, by = 3)
x
y
x + y
# In x + y : longer object length is not a multiple of shorter object length
# Esse erro é por conta dos vetores terem comprimento diferente
# Para corrigir ou remediar utiliza a função length ()
length (x) # Comprimento de x
length (y) # Comprimento de y
# Adiciona um zero no vetor que está faltando valor

Boxplot_Teste

September 23, 2022 · R
# Gráfico Box Plots
boxplot (diamonds$price)
diamonds$price %>%
boxplot (
horizontal = T, # horizontal
notch = T, # Intervalo de confiança para a mediana
main = "Boxplot do preço de Diamantes",
sub = "(Fonte: ggplot2::diamonds",
xlab = "Preço dos Diamantes",
col = "#CD0000"
)

Histogramas_Teste

September 23, 2022 · R
# Histogramas
?hist
hist (diamonds$price)
hist (diamonds$price,
breaks = 7, # Sugerindo a quantidade de quebras
main = "Histograma do Preço de Diamantes", # Título
sub = "(Fonte: ggplot2::diamonds",
xlab = "Frequência",
ylab = "Preço de Diamantes",
border = NA, # Sem bordas na barra
col = "#CD0000" # Vermelho)

Teste_Gráfico_Barra

September 21, 2022 · R
# Carregando os pacotes
pacman::p_load(pacman, tidyverse)

?diamonds # Informação sobre o dataset
head(diamonds) # Dando uma olhada no começo do dataset

# Gráfico de barras de frequência
plot(diamonds$cut) 

# Gráfico com um conjunto de pipes
diamonds %>%

Comando_Vetor_Rep

September 19, 2022 · R
rep (c(1, 2, 3), 4)
rep (1:3, times = 4)

Barplot_Gráfico_Cores

September 18, 2022 · R
x <- (c(24, 13, 7, 5, 3, 2))
barplot (x) # Gráfico de barras simples
# Lista das cores
colors ()

barplot (x, col="red3") # Vermelho
barplot (x, col="gray30") # Cinza

barplot (x, col=rgb(.80, 0, 0)) # Vermelho em formato rgb
barplot (x, col="#CD0000") # Vermelho em códigos hexadecimais
barplot (x, col=c("#4D4D4D", "#CD0000")) # Múltiplas cores

Pacotes_Carregar_Dados

September 15, 2022 · R
# Se não exige ou existe o determinado pacote então instale agora
if (! require ("pacman")) install.packages ("pacman")

# Carregar o pacote sem usar é usar a função p_load
pacmam :: p_load (pacmam)

# Carregando e preparando dados
# Usando o CSVs
# Usar do curso do linkedln de fundamentos de r
df <- read_csv ("dados/StateData.csv")
head (df)

Coerção

September 15, 2022 · R
# Coerção do numérico para inteiro
numero <- 5
typeof (numero)
(inteiro <- as.integer(numero))
typeof (inteiro)

# Coerção de caracter para numérico
numeros <- c("1", "2", "3")
typeof (numeros)
(numeros_2 <- as.numeric(numeros))
typeof (numeros_2)

Matriz_Vetores_Listas_Data_Frame

September 15, 2022 · R
x <- matrix(c("a", "b", 
"c", "e"), nrow = 2, byrow = T)
x

y <- matrix(c(1, 2, 4, 7, 8, 10), nrow = 3, byrow = T)
y

g <- array(c(1:4), c(1, 4, 8))
g

# Criando vetores e unindos com a função cbind

Converter_Letras_em_Números

September 09, 2022 · R
a <- c("a", "b")
as.numeric (a)
b <- c("2", "4", "6")
as.numeric (b)

Comandos_Básicos_2

September 09, 2022 · R
# Formato Double
(numero_1 <- 15)
typeof (numero_1)
(numero_2 <- 1.5)
typeof (numero_2)

# Formato caractere
(letra_1 <- "c")
typeof (letra_1)
(texto <- "Uma mensagem")
typeof (texto)

Comandos_Básicos

September 09, 2022 · R
# Comandos Básicos

0:100
"Ola"
a <- 1
a
d <- e <- f <- 3
d
e
seq(30, 0, by= -3)
(y <- c(1, 3, 4, 6))