MAC113 - Introdução à Computação

Administração - 1o. Semestre de 2020

Aula 06b: arquivo.csv

Os assuntos de hoje:
1. manipulação de arquivo.csv
Observações:
1. Tudo que vimos até hoje é a primeira parte deste curso.
2. Vimos estrutura básica da gramática da linguagem R, comandos básicos e seu uso.
3. Os exemplos foram geralmente pequenos, formais e matemáticos.
4. A entrada de dados foi por meio de teclado e a saida foi no console.
5. Se os dados de entrada for muito grande, não é nada prático fornece-los por meio de teclado e fica pior se deve fazer várias vezes.
6. Mas a grande vantágem da computação é processar grande quantidade de dados e exatamente isto que ocorre no dia dia de computação!
7. Para que possamos resolver problemas reais, precisamos ter outro meio de tratar os dados que não foi dado ainda na primeira parte do curso.
8. A manipulação de dados de arquivo é exatamente este meio que vamos ver.
9. Como a filosofia básica do curso é ser minimarista, os arquivos de dados que vamos manipurar não são tão grandes e concentramos a nossa atenção ao arquivos do tipo .csv. Mas o que vamos aprender daqui para frente vai dar boa base para computação prática que um dia vocês vão fazer.
Arquivo.csv:
- Agora vamos começar a trabalhar com dados num arquivo.
- O primeiro a ver é o arquivo.csv.
- Você deve criar o arquivo com seu editor de texto e salva-lo num diretório seu.
- Uma vez feito isto, você pode imprimir o arquivo, manipular os dados do arquivo etc.

Arquivo.csv:

É 1 arquivo em várias linhas e os elementos são separados por ",".
A cada linha termina com o elemento sem ","
A primeira linha é de cabeçalho.

Exemplo:

              Nome,   P1,   P2,  EP1,  EP2,  EP3
	     Andre,  6.5,  7.5,  9.0,  8.7,  7.5
	       Bel , 5.5,  6.5,  6.8,  7.0,  7.5
               Cris, 8.5,  9.5, 10.0, 10.0,  9.5

Vamos chamar este arquivo de nota.scv.

O começo do programa:

            dirTrab <- "/o caminho até o diretorio/"
	    setwd(dirTrab)
	    planilha <- read.csv("nota.csv")		      
            print(planilha)

A saida será:

               Nome   P1   P2  EP1  EP2  EP3
	    1 Andre  6.5  7.5  9.0  8.7  7.5
	    2   Bel  5.5  6.5  6.8  7.0  7.5
            3   Cris 8.5  9.5 10.0 10.0  9.5

Se nota.csv for:

              Nome,P1,P2,EP1,EP2,EP3
	      Andre,6.5,7.5,9.0,8.7,7.5
	      Bel,5.5,6.5,6.8,7.0,7.5
              Cris,8.5,9.5,10.0,10.0,9.5

A siada vai ser o mesmo do anterior.

Mas recomendo editar o arquivo.csv com espaçamento adequado para melhor visualização no seu trabalho.

Se nota.csv for:

               Nome,  P1,   P2,   EP1, EP2, EP3
	      Andre, 6.5,  7.5,   9.0
	        Bel, 5.5,  6.5,   6.8
               Cris, 8.5,  9.5,  10.0

A saida será:

               Nome   P1   P2  EP1  EP2  EP3
	    1 Andre  6.5  7.5  9.0   NA   NA
	    2   Bel  5.5  6.5  6.8   NA   NA 
            3   Cris 8.5  9.5 10.0   NA   NA

NA é ausência de dado.

Voltamos ao nota.csv original:

              Nome,   P1,   P2,  EP1,  EP2,  EP3
	     Andre,  6.5,  7.5,  9.0,  8.7,  7.5
	       Bel , 5.5,  6.5,  6.8,  7.0,  7.5
               Cris, 8.5,  9.5, 10.0, 10.0,  9.5

Se fizer:

            dirTrab <- "/o caminho até o diretorio/"
	    setwd(dirTrab)
	    planilha <- read.csv("nota.csv")		      
            planilha['P'] <- NA
            planilha['EP'] <- NA		       
	    print(planilha)

A saida será:

               Nome   P1   P2  EP1  EP2  EP3   P  EP
	    1 Andre  6.5  7.5  9.0  8.7  7.5  NA  NA
	    2   Bel  5.5  6.5  6.8  7.0  7.5  NA  NA
            3   Cris 8.5  9.5 10.0 10.0  9.5  NA  NA

print(planilha[1,]) => A saida será:

 	    1 Andre  6.5  7.5  9.0  8.7  7.5  NA  NA

Se fizer:

            planilha[1,7] <- (planilha[1,2] + planilha[1,3])2	      
	    print(planilha)

Temos:

               Nome   P1   P2  EP1  EP2  EP3    P  EP
	    1 Andre  6.5  7.5  9.0  8.7  7.5  7.0  NA
	    2   Bel  5.5  6.5  6.8  7.0  7.5   NA  NA
            3   Cris 8.5  9.5 10.0 10.0  9.5   NA  NA

Voltamos ao nota.scv original:

              Nome,   P1,   P2,  EP1,  EP2,  EP3
	     Andre,  6.5,  7.5,  9.0,  8.7,  7.5
	       Bel , 5.5,  6.5,  6.8,  7.0,  7.5
               Cris, 8.5,  9.5, 10.0, 10.0,  9.5

Se fizer:

            dirTrab <- "/o caminho até o diretorio/"
	    setwd(dirTrab)
	    planilha <- read.csv("nota.csv")		      
            planilha['P'] <- (planilha[P1] + planilha[P2])/2 
  	    print(planilha)

A saida será:

               Nome   P1   P2  EP1  EP2  EP3    P  
	    1 Andre  6.5  7.5  9.0  8.7  7.5  7.0  
	    2   Bel  5.5  6.5  6.8  7.0  7.5  6.0
            3   Cris 8.5  9.5 10.0 10.0  9.5  9.0