library(vip)
library(tidymodels)
library(DBI)
knitr::opts_chunk$set(echo = FALSE)

R Markdown

MARVEL

knitr::include_graphics("marvel-comics_logo-2021-marvelcomics.png")
library(tidyverse)
library(readxl)
marvel <- read.csv(file = 'marvel-wikia-data.csv', stringsAsFactors = TRUE)
top10 <- marvel %>% slice_max(order_by = APPEARANCES, n = 10)

Marvel TOP 10 por aparições

knitr::kable(top10)
library(reticulate)
library(Rcpp)
import numpy as np
import matplotlib.pyplot as plt
plt.bar(r.top10.name, r.top10.APPEARANCES)
plt.xticks(rotation='vertical')
plt.tight_layout()
plt.show()


csatio/shiny01 documentation built on Dec. 19, 2021, 6:21 p.m.