Atividade-01_PROJETO-INTEGRADOR-DE-COMPETÊNCIAS-EM-CIÊNCIA-DE-DADOS-I

Prévia do material em texto

PROJETO INTEGRADOR DE COMPETÊNCIAS EM CIÊNCIA DE DADOS I - 40h 
 
 
Atividade 01 
 
#Criar matriz de 11 linhas e 2 colunas 
M <- matrix(1:22, nrow=11, ncol=2) 
 
#visualizar matriz 
M 
 [,1] [,2] 
 [1,] 1 12 
 [2,] 2 13 
 [3,] 3 14 
 [4,] 4 15 
 [5,] 5 16 
 [6,] 6 17 
 [7,] 7 18 
 [8,] 8 19 
 [9,] 9 20 
[10,] 10 21 
[11,] 11 22 
 
#criar tabela com os dados verduras e valores 
tabela1 <- data.frame (verdura = c("alface", "cenoura", "pepino", "chuchu", "pimenta", "couve", "rúcula", "cebola", "alho", "pimentão", "alcachofra"), valores 
=c(25,45,28,79,74,61,12,68,93,39,100)) 
 
#visualizar tabela (verdura e valor) 
tabela1 
 
 verdura valores 
1 alface 25 
2 cenoura 45 
3 pepino 28 
4 chuchu 79 
5 pimenta 74 
6 couve 61 
7 rúcula 12 
8 cebola 68 
9 alho 93 
10 pimentão 39 
11 alcachofra 100 
 
 
#inserir na linha 12 a média dos onze valores 
tabela1 <- rbind(tabela1, data.frame(verdura = "MÉDIA", valores = mean(tabela1[,2]))) 
 
#visualizar tabela (verdura e valor) com a média dos valores 
tabela1 
 
 verdura valores 
1 alface 25.00000 
2 cenoura 45.00000 
3 pepino 28.00000 
4 chuchu 79.00000 
5 pimenta 74.00000 
6 couve 61.00000 
7 rúcula 12.00000 
8 cebola 68.00000 
9 alho 93.00000 
10 pimentão 39.00000 
11 alcachofra 100.00000 
12 MÉDIA 56.72727 
 
 
#calculo da soma dos onze valores 
x <- sum(tabela1[,2]) 
x 
 
[1] 680.7273 
 
 
y <- tabela1[12,2] 
y 
 
[1] 56.72727 
 
 
soma <- x - y 
soma 
 
[1] 624 
 
 
#inserir na linha 13 a soma dos onze valores 
tabela1 <- rbind(tabela1, data.frame(verdura = "SOMA", valores = soma)) 
 
#visualizar tabela (verdura e valor) com média e soma 
tabela1 
 
 verdura valores 
1 alface 25.00000 
2 cenoura 45.00000 
3 pepino 28.00000 
4 chuchu 79.00000 
5 pimenta 74.00000 
6 couve 61.00000 
7 rúcula 12.00000 
8 cebola 68.00000 
9 alho 93.00000 
10 pimentão 39.00000 
11 alcachofra 100.00000 
12 MÉDIA 56.72727 
13 SOMA 624.00000 
 
 
#para montar o gráfico em barra, foi criado uma nova matriz 
ativ_01 <- data.frame("verduras" = 1:11,"valores"=1:11) 
 
ativ_01$verduras <- c("alface", "cenoura", "pepino", "chuchu", "pimenta", "couve", "rúcula", "cebola", "alho", "pimentão", "alcachofra") 
 
ativ_01$valores <- c(25,45,28,79,74,61,12,68,93,39,100) 
 
#inserindo rotulos 
rotulo <- c("VERDURAS", "VALORES") 
 
par (mgp = c(1,1,0)) 
 
#gerar o gráfico de barras 
barplot (ativ_01$valores, main="Preço das Verduras", xlab = rotulo[1], ylab = rotulo[2], names.arg = ativ_01$verduras, ylim = c(0, 120), cex.names = 0.8, xaxs = "i")