Mudanças entre as edições de "Linguagem R:Manipulação de arquivos"
Ir para navegação
Ir para pesquisar
(Criou página com '= Leitura de arquivo texto = f <- 'd:/projeto/dados_da_pesquisa.txt' t <- scan(f, what="character", sep=';', encoding="UTF-8")') |
|||
| (3 revisões intermediárias pelo mesmo usuário não estão sendo mostradas) | |||
| Linha 1: | Linha 1: | ||
| + | = Leitura de arquivo com caixa de dialogo solicitando o arquivo = | ||
| + | df <- read.delim(file.choose()) | ||
| + | df <- read.csv2(file.choose()) /* csv2 utiliza o delimitator ";" e separador de decimal "," - Padrão Brasil */ | ||
| + | |||
= Leitura de arquivo texto = | = Leitura de arquivo texto = | ||
f <- 'd:/projeto/dados_da_pesquisa.txt' | f <- 'd:/projeto/dados_da_pesquisa.txt' | ||
t <- scan(f, what="character", sep=';', encoding="UTF-8") | 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, ....) | ||
| + | |||
| + | == Verificando a existência de arquivos == | ||
| + | path <- 'x/RPI0' | ||
| + | i = 2280 | ||
| + | while (i <= 2583) | ||
| + | { | ||
| + | file <- paste(path,i,'.csv',sep='') | ||
| + | print(file) | ||
| + | if (file.exists(file)) | ||
| + | { | ||
| + | df <- read.csv2(file,sep=';', row.names=NULL) | ||
| + | } | ||
| + | i <- (i+1) | ||
| + | } | ||
| + | print("FIM") | ||
Edição atual tal como às 17h40min de 12 de julho de 2020
Índice
Leitura de arquivo com caixa de dialogo solicitando o arquivo
df <- read.delim(file.choose()) df <- read.csv2(file.choose()) /* csv2 utiliza o delimitator ";" e separador de decimal "," - Padrão Brasil */
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, ....)
Verificando a existência de arquivos
path <- 'x/RPI0'
i = 2280
while (i <= 2583)
{
file <- paste(path,i,'.csv',sep=) print(file) if (file.exists(file)) { df <- read.csv2(file,sep=';', row.names=NULL) } i <- (i+1)
}
print("FIM")
