Linguagem R:Manipulação de arquivos - Histórico de revisão

Renefgj em 17h40min de 12 de julho de 2020

2020-07-12T17:40:25Z

2020-07-11T14:25:28Z

2020-07-08T09:47:57Z

2020-06-22T16:33:36Z

2020-06-22T16:24:06Z

Criou página com '= Leitura de arquivo texto = f <- 'd:/projeto/dados_da_pesquisa.txt' t <- scan(f, what="character", sep=';', encoding="UTF-8")'

Página nova

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

← Edição anterior		Edição das 17h40min de 12 de julho de 2020
Linha 27:		Linha 27:
	# Pode-se unir vários arquivos realizando a leitura de vários		# Pode-se unir vários arquivos realizando a leitura de vários
	dft <- rbind(df1, df2, ....)		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 anterior		Edição das 14h25min de 11 de julho de 2020
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'

← Edição anterior		Edição das 09h47min de 8 de julho de 2020
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 anterior		Edição das 16h33min de 22 de junho de 2020
Linha 2:		Linha 2:
	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)