HW6.r

library(DT)

## Warning: пакет 'DT' был собран под R версии 4.3.3

library(plotly)

## Warning: пакет 'plotly' был собран под R версии 4.3.3

## Загрузка требуемого пакета: ggplot2

## Warning: пакет 'ggplot2' был собран под R версии 4.3.3

## 
## Присоединяю пакет: 'plotly'

## Следующий объект скрыт от 'package:ggplot2':
## 
##     last_plot

## Следующий объект скрыт от 'package:stats':
## 
##     filter

## Следующий объект скрыт от 'package:graphics':
## 
##     layout

library(crosstalk)

## Warning: пакет 'crosstalk' был собран под R версии 4.3.3

library(carData)

## Warning: пакет 'carData' был собран под R версии 4.3.3

un_data <- SharedData$new(carData::UN)
dt <- datatable(un_data, options = list(pageLength = 15, columnDefs = list(list(targets = '_all', className = 'dt-center'))))
dt <- dt %>% formatStyle(names(carData::UN), fontWeight = 'bold')

p_plotly <- plot_ly(data = un_data, x = ~fertility, y = ~lifeExpF, color = ~group, size = ~pctUrban, type = "scatter", mode = "markers")

filter_checkbox <- filter_checkbox("group", "Group", un_data, ~group)
filter_slider <- filter_slider("fertility", "fertility", un_data, ~fertility)
filter_select <- filter_select("region", "Region", un_data, ~region, multiple = TRUE)

bscols(p_plotly, filter_checkbox, filter_slider, filter_select, dt)

## Warning: Ignoring 14 observations

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

Group

oecd

other

africa

fertility

Region