Mudanças entre as edições de "Linguagem R:Manipulação de arquivos"

De BrapciWiki
Ir para navegação Ir para pesquisar
Linha 6: Linha 6:
  
 
  write.csv(Your DataFrame,"Path where you'd like to export the DataFrame\\File Name.csv", row.names = FALSE)
 
  write.csv(Your DataFrame,"Path where you'd like to export the DataFrame\\File Name.csv", row.names = FALSE)
 +
 +
== Unir arquivos .csv ==
 +
 +
# Carrea o arquivos 202007707.csv para a variavel df1 - primeira tabela
 +
df1 <- read.csv("20200707.csv",sep=';')
 +
 +
# Carrea o arquivos 202007707.csv para a variavel df1 - segunda tabela
 +
df2 <- read.csv("202007078.csv",sep=';')
 +
 +
# Carrea o arquivos 202007709.csv para a variavel df1 - terceira tabela
 +
df3 <- read.csv("20200708.csv",sep=';')
 +
 +
# Unir todos os arqivos em um só - os dados ficaram na variável dft
 +
dft <- rbind(df1,df2,df3)
 +
 +
# Pode-se unir vários arquivos realizando a leitura de vários
 +
dft <- rbind(df1, df2, ....)

Edição das 09h47min de 8 de julho de 2020

Leitura de arquivo texto

f <- 'd:/projeto/dados_da_pesquisa.txt'
t <- scan(f, what="character", sep=';', encoding="UTF-8")

Exportar Data.Frame para EXCEL (.CSV)

write.csv(Your DataFrame,"Path where you'd like to export the DataFrame\\File Name.csv", row.names = FALSE)

Unir arquivos .csv

# Carrea o arquivos 202007707.csv para a variavel df1 - primeira tabela
df1 <- read.csv("20200707.csv",sep=';')
# Carrea o arquivos 202007707.csv para a variavel df1 - segunda tabela
df2 <- read.csv("202007078.csv",sep=';')
# Carrea o arquivos 202007709.csv para a variavel df1 - terceira tabela
df3 <- read.csv("20200708.csv",sep=';')
# Unir todos os arqivos em um só - os dados ficaram na variável dft
dft <- rbind(df1,df2,df3)
# Pode-se unir vários arquivos realizando a leitura de vários
dft <- rbind(df1, df2, ....)