Aula Renata

Teste

Teste

library(readxl)
Niteroi_Solidaria <- read_excel("C:/Users/eric/Desktop/Niteroi_Solidaria.xlsx", 
                                col_types = c("numeric", "text", "text", 
                                              "text", "text", "numeric", "text", 
                                              "numeric", "text", "text", "text", 
                                              "text", "text", "text"))

## New names:
## * `` -> ...1
## * Telefone -> Telefone...5
## * Telefone -> Telefone...10

View(Niteroi_Solidaria)

tabela1<-table(Niteroi_Solidaria$Local)
tabela1

## 
##                                      Clube Central 
##                                                  1 
##                                     Drive-thru UFF 
##                                                  1 
##               Policlínica Dr João da Silva Vizella 
##                                                  1 
##       Policlínica Regional Carlos Antônio da Silva 
##                                                  1 
##                     Policlínica Regional de Itaipu 
##                                                  1 
##                Policlínica Regional de Piratininga 
##                                                  1 
##           Policlínica Regional do Largo da Batalha 
##                                                  1 
## Policlínica Regional Doutor Guilherme Taylor March 
##                                                  1 
##               Policlínica Regional Dr Renato Silva 
##                                                  1 
##                          Policlínica Sérgio Arouca 
##                                                  1

pizza1 <-pie(tabela1,
             main = "Locais",
             col =c("647","red","blue")) 

pizza1

## NULL

Vamos aprender a programar em R???