In csatio/shiny01: Meu primeiro shiny app

library(vip)
library(tidymodels)
library(DBI)

knitr::opts_chunk$set(echo = FALSE)

R Markdown

DC

knitr::include_graphics("15-153902_superman-dc-comics-logo-comic-book-the-new.png") 

library(tidyverse)
library(readxl)
dc <- read.csv(file = 'dc-wikia-data.csv', stringsAsFactors = TRUE)
top10 <- dc %>% slice_max(order_by = APPEARANCES, n = 10)

DC TOP 10 por aparições

knitr::kable(top10)

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()

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

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