R e Python - reticulate

reticulate_funcionamento_basico.R

# Aula de integração do R com o Python
# Objetivo: Raspar dados de uma tabela com o python e fazer um histograma com o R
# Parte 1 e 3: scripts do R
# https://rpubs.com/gomes555/reticulate
# https://beatrizmilz.github.io/python-brasil-2021-reticulate/
# https://beatrizmilz.com/blog/2021-python-serie/semana-1-parte-1/

#-----------------------------------------------------------------------------
# Parte 0
#-----------------------------------------------------------------------------
#library(reticulate)
# escrever no google "python version"
# Instalar o python
# reticulate::install_python(version = "3.9.12")
# Por padrão, o reticulate usa a versão do Python encontrada em seu PATH (por exemplo, Sys.which("python")).
# use_python("C:/Users/Fellipe/Anaconda3")

#-----------------------------------------------------------------------------
# Parte 1
#-----------------------------------------------------------------------------
library(reticulate)

reticulate::py_install("requests")
reticulate::py_install("bs4")
reticulate::py_install("os")
reticulate::py_install("csv")

os <- import("os")
os$listdir(".")

#-----------------------------------------------------------------------------
# Parte 3
#-----------------------------------------------------------------------------

import("pandas",as = "pd")
posicao <-  py$posicao
nome <-  py$nome
pib <-  py$pib
pibcapta <-  py$pibcapta
idh <-  py$idh

dados <- data.frame(posicao,nome,pib,pibcapta,idh)
colnames(dados)<-c('posicao','nome','pib','pibcapta','idh')
remove(posicao,nome,pib,pibcapta,idh)
dados$pib <- gsub("\\.","",dados$pib)
dados$pib <- as.numeric(dados$pib)
hist(dados$pib)