MAC113 - Introdução à Computação

Administração - 1o. Semestre de 2020

Lista 06b: arquivo.csv

Nesta aula você vai ter contato com arquivo.csv. Faça passo a passo para se acostumarcom a novidade

Depois de cada questão, recomendo limpar console por clear console para o espaço de console não ficar carregado.

Questão 1:

Edite o seguinte arquivo no editor de texto e salve-o num diretório com o nome nota1.csv.

              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

No RScript Escreve o seguinte:

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

Observe a saida.

Questão 2:

No mesmo diretório escreva nota2.csv abaixo:

              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

No RScript Escreve o seguinte:

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

Observe a saida.

Questão 3:

Escreva nota3.csv abaixo no mesmo diretório:

               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

    No RScript Escreve o seguinte:
 	  
            dirTrab <- "/o caminho até o diretorio/"
	    setwd(dirTrab)
	    planilha3 <- read.csv(nota3.csv)		      
            print(planilha3)
	


	 
Observe a saida

Questão 4:

Voltamos ao nota1.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

No RScript Escreve o seguinte:

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

Observe a saida.

Acrescente:

	      print(planilha1[1,])
	      print(planilha1)

Observe a saida.

Acrescente:

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

Observe a saida.

Faça:

            nlin <- nrow(planilha1)  #nrow eh o número de linhas
            print(nlin)

Observe a saida.

Faça:

            print(ncol(planilha1)  #ncol eh o número de colunas

Observe a saida.

Questão 5:

Voltamos ao nota1.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

No RScript Escreve o seguinte:

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

Observe a saida.

Questão 6:

Voltamos ao nota1.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

No RScript Escreve o seguinte:

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

Observe a saida.

Questão 7:

Voltamos ao nota1.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

No RScript Escreve o seguinte:

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

Observe a saida:

Questão 8 (variável logica e arquivo.csv:

Suponha que existe um arquivo alunos.csv como abaixo:

              Nome,  Altura,   Peso
	     Andre,     176,     75 
	       Bel,     168,     53
              Cris,     172,     60
	         :        :       :

Suponha que o arquivo acima tem mais de 50 linhas.
Faça um programa que lê o arquivo acima e verifica se existe um(a) aluno(a) com altura acima de 190 e imprimir a resposta adequada.
Seu programa deve interromper a computão assim que achar altura acima de 190 usando a variável logica.