tukachev

library(jsonlite)
library(tidyverse)
library(RColorBrewer)
library(ggtext)
library(OneR)

#extrafont::loadfonts() # fix fonts

streamHistory <-
  list.files(

tukachev

library(tidyverse)
library(ggdark)

astronauts <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-07-14/astronauts.csv')

astronauts <- astronauts %>%
  mutate(age_at_selection = year_of_selection - year_of_birth,
         age_at_mission = year_of_mission - year_of_birth)

astronauts %>%

tukachev

library(tidyverse)
library(readr)
library(ggtext)

battery_log <- read_csv("battery_log.csv",
                        col_names = FALSE,
                        locale = locale(encoding = "ASCII"))
# View(battery_log)

battery_log <- battery_log %>% rename(

tukachev

library(tidyverse)
library(lubridate)

birthdate <- ymd("1978-06-28")

# Вычисление количества прожитых полных лет и недель
age_years <-
  floor(as.numeric(difftime(Sys.Date(), birthdate, units = "days")) / 365.25)
age_in_weeks <- age_years * 52

tukachev

library(jsonlite)
library(stringr)
library(tidyverse)
library(wordcloud)

# Загружаем данные из JSON-файла
data <- fromJSON("result.json")

# str(data$messages$text[10])
       

tukachev

library(tidyverse)
# remotes::install_github(c("ropensci/tabulizerjars", "ropensci/tabulizer"), INSTALL_opts = "--no-multiarch")
library(tabulizer)
library(rvest)
library(googlesheets4)

url <- "https://minjust.gov.ru/ru/activity/directions/942/"

links <- read_html(url) %>% 
  html_elements("#section-description > div a") %>%

tukachev

pacman::p_load(ggbump, tidyverse, cowplot, wesanderson, ggrepel)
df <- tibble(
  region = c(rep("Магнитогорск", 5),
             c(rep("Челябинск", 5)),
             c(rep("Нижний Тагил", 5))),
  year = c(
    2017,
    2018,
    2019,
    2020,

tukachev

library(tidyverse)
# library(readxl)
library(scales)
library(openxlsx)

# fedbud <- read_excel("fedbud_month.xlsx",
# sheet = "месяц", skip = 2)

url <-
  "https://minfin.gov.ru/common/upload/library/2022/08/main/fedbud_month.xlsx"

tukachev

library(rvest)
library(ggplot2)
library(stringr)
url <- "https://ru.wikipedia.org/wiki/Часы_Судного_дня"
df <- url %>% 
  read_html(url) %>% 
  html_node("table") %>% 
  html_table()

# Небольшие преобразования:

tukachev

library(tidyverse)
library(jsonlite)
library(png)
library(glue)
library(ragg)
library(here)
library(showtext)
library(ggdark)
library(ggtext)