Statistika

email: elmirsemedli777@gmail.com

DIAMONDS

MTCARS

library(ggplot2) 
  library(tidyverse)

 data <- mtcars
 data %>% 
            ggplot(aes(x=disp, y=hp))+
            geom_line(color="darkgreen", linewidth = 1.2)

Cedveller 1

library(DT)

## Warning: package 'DT' was built under R version 4.6.1

library(tidyverse)
dataset <- dslabs::gapminder

Cedveller 2

dataset %>% datatable(rownames = F, class = "row-border stripe", 
                      filter = "top", 
                      extensions = "Buttons", options = list(
                        dom = "Blfrtip", buttons=list("colvis", "copy", "csv", "excel", "pdf"))
                      ) %>%  formatStyle(columns = "continent", backgroundColor = styleEqual(c(
                        "Europe", "Asia", "Africa", "Americas", "Oceania"), c("lightblue", "red", "green", "lightgreen",
                                                                              "pink") 
                      ))

Dataset ferqli

dataset %>% 
  datatable(rownames = FALSE, filter = "top", extensions = "Buttons", 
            options = list(dom = "Blfrtip", buttons = list("colvis", "copy", "csv", "excel", "pdf"))) %>%  
  formatStyle(columns = "life_expectancy",
              # Ən kiçik və ən böyük dəyərə görə bənövşəyi bar çəkir
              background = styleColorBar(dataset$infant_mortality, "lightgreen"),
              backgroundSize = '98% 88%',
              backgroundRepeat = 'no-repeat',
              backgroundPosition = 'center')

csv

stars <- dslabs::stars

stars %>% datatable(rownames = F, class = "cell-border stripe", filter = "top", 
                    extensions = "Buttons", options = list(
                      dom="Blftrip", buttons=list("colvis", "copy", "csv", "excel", "pdf")
                    ))

Stars data 2

 texas <- ggplot2::txhousing

  texas %>% datatable(rownames = F, class = "row-border",
                    filter = list(position = "top", clear = FALSE),
                      extensions = "Buttons", options = list(
                        dom="Blfrtip", 
                        pageLength = 10, buttons=list("colvis", "copy", "pdf", "csv", "excel" )
                      )) %>% formatStyle(columns = "month", backgroundColor = styleEqual(c(9,10,11,12), c("green", "yellow", "orange", "purple" )) )

NYC Flight dataseti

 library(nycflights13)

## Warning: package 'nycflights13' was built under R version 4.6.1

 nyc <- flights %>%  slice_head(n=500) 
 
 nyc %>% datatable(rownames = T, class = "cell-border", filter = "top",
                   extensions = "Select", options = list(
                     dom="Blfrtip", buttons=list("colvis", "pdf", "csv", "excel")
                   )
                   ) %>% formatStyle(columns = "distance", background = styleColorBar(nyc$distance, "lightblue"),
                                     backgroundSize= '%98 %88', 
                                     backgroundRepeat= 'repeat', backgroundPosition='center')

 library(nycflights13)
 nyc <- flights %>%  slice_head(n=1000) 
 
 nyc %>% datatable(rownames = T, class = "cell-border", filter = "top",
                   extensions= "Buttons",

 options = list(
                     dom="Blfrtip", buttons=list("colvis", "pdf", "csv", "excel")
                   )
                   )