Таблица

#library(formattable) 
library(readxl)


Table1 <- read_excel("~/Paramecium.temperature.xlsx")
Table1
## # A tibble: 24 × 2
##    temperature Paramecium
##          <dbl>      <dbl>
##  1        -2.7          5
##  2         1.4         29
##  3         2.9         47
##  4         5.2         19
##  5         8.1        143
##  6         8.6        178
##  7        12.8        259
##  8        14          284
##  9        15.6        173
## 10        18.4        485
## # ℹ 14 more rows
#formattable(Table1)

Кот

Гиперссылка

Еще один кот https://animalpaw.ru/images/uL_l4hb795_BV76SuNHr2G2bEXWVZwBhiPs5lgH7E48/aHR0cDovL21pbmlvOjkwMDAvYW5pbWFscGF3LzIwMjAtMDgtMTMvN2JiNGFlNTFjMzM1NDc3MWJmZmUyN2ViMjcxNWE5ZDQuanBn.jpg.

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

График

You can also embed plots, for example: