aula_BSI_27_04_2023.R

#install.packages("usethis")
#usethis::use_course("https://github.com/DATAUNIRIO/Base_de_dados/archive/master.zip")


library(leaflet)
leaflet() %>%
  addTiles() %>%
  addCircles(lng=-43.1688718, lat=-22.9549635, popup="Eu estou aqui!")

leaflet() %>%
  addTiles() %>%
  addProviderTiles('CartoDB.DarkMatter') %>%
  addMarkers(lng=-43.1688718, lat=-22.9549635, popup="UNIRIO")

conteudo = paste(sep = "<br/>",
                 paste0("<img src='https://www.r-project.org/logo/Rlogo.png", "' />"),
                 paste0("<b>Nome: </b>", "CCET"),
                 paste0("<b>Local: </b>", "Avenida Pasteur, 458"),
                 paste0("<a href='https://www.uniriotec.br/", "'>Link</a>"))

conteudo

leaflet() %>%
  addTiles() %>%
  setView(-43.1688718, -22.9549635, zoom=13) %>%
  addMarkers(lng=-43.1688718, lat=-22.9549635, 
             popup=conteudo)


library(leaflet)
leaflet() %>%
  addTiles() %>%
  add_markers(lng=-43.1688718, lat=-22.9549635, popup="Eu estou aqui!")


library(readxl)
BasesEstados <- read_excel("~/Base_de_dados-master/BasesEstados.xlsx")
head(BasesEstados)


library(geobr)
mapa_estados = read_state()

library(dplyr)
BasesEstados = BasesEstados %>% rename(code_state = Codigo)
dados_para_mapa = mapa_estados %>% left_join(BasesEstados)

class(BasesEstados$code_state)
class(mapa_estados$code_state)

BasesEstados$code_state = as.double(BasesEstados$code_state)

dados_para_mapa = mapa_estados %>% left_join(BasesEstados)

library(ggplot2)
names(dados_para_mapa)

library(ggplot2)
ggplot() +
  geom_sf(data=dados_para_mapa, aes(fill=IDH))+
  scale_fill_distiller(palette = "Reds",direction = 1, name="IDH", limits = c(0.6,0.85))

mapa1 = ggplot() +
  geom_sf(data=dados_para_mapa, aes(fill=Esperancadevida))+
  scale_fill_distiller(palette = "Blues",direction = 1, name="Esperança de Vida", limits = c(70,78))


library(plotly)
ggplotly(mapa1)

library(leaflet)
leaflet_mapa = 
  dados_para_mapa %>%
  leaflet() %>% addPolygons(color = "#444444",
                            fillColor = ~colorQuantile("Blues", IDH)(IDH))

leaflet_mapa
leaflet_mapa  %>% addTiles() 
leaflet_mapa  %>% addProviderTiles("CartoDB.VoyagerLabelsUnder")
leaflet_mapa %>%  addProviderTiles("Stamen.Watercolor")

library(waldo)
compare(c("Flamengo", "Fluminense", "Vasco"), c("Flamengo", "Fruminense"))

#--------------------------------------------------------

library(stringdist)
stringdist('Carlos','Carla')
stringdist('Flamengo','Framengo')
stringdist('Flamengo','Fluminense')


#--------------------------------------------------------
banco1 = data.frame(time=c('Flamengo', 'Fluminense', 'Dasco', 'Botafogos', 'America'), gols=c(9, 1, 3, 0, 2))
banco2 = data.frame(time=c('Framengo', 'Fruminense', 'Vasco', 'Botafogo', 'Americas'), vitorias =c(3, 1, 2, 0, 1))

library(fuzzyjoin)
library(dplyr)

stringdist_join(banco1, banco2, 
                by='time', 
                mode='left', 
                method = "jw", 
                max_dist=99, 
                distance_col='dist') %>%
  group_by(time.x) %>%
  slice_min(order_by=dist, n=1)