Testik

knitr::opts_chunk$set(
    echo = FALSE,
    message = FALSE,
    warning = FALSE)

Табличка

library(dplyr)
library(formattable)
df <- readxl::read_excel("Morji.xlsx")
formattable(df)

Красивое

Красивое 1

Красивое 2

График

library(ggplot2)
library(plotly)
p <- ggplot(df, aes(`age`, `weight.2013`))+ 
    geom_line() + 
    geom_point(color = "red")
plotly::ggplotly(p)