Yurij Tukachev tukachev
tukachev
/ domclick.R
Created
December 8, 2025 13:14
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| # данные | |
| age_groups <- c("до 24 лет", | |
| "25-34 лет", | |
| "35-44 лет", | |
| "45-54 лет", | |
| "55-64 лет", | |
| "от 65 лет") | |
| percentages <- c(12.63, 30.85, 35.77, 13.16, 4.79, 2.79) |
tukachev
/ piechart_dataviz.R
Created
December 4, 2025 18:20
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(ggplot2) | |
| library(dplyr) | |
| #статика | |
| df <- data.frame( | |
| category = c("Деньги", "Стабильность", "Уважение\nв обществе"), | |
| value = c(33.33333, 33.33333, 33.33333), | |
| sector_color = c("#FF00FF", "#FFA500", "#7CFC00"), | |
| legend_color = c("red", "blue", "yellow") | |
| ) |
tukachev
/ mitrich2025.R
Created
November 26, 2025 19:16
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(sf) | |
| library(rnaturalearth) | |
| library(rnaturalearthdata) | |
| library(ggrepel) | |
| # Загружаем карты | |
| world <- ne_countries(scale = "medium", returnclass = "sf") | |
| countries <- c( | |
| "Russia", |
tukachev
/ ussr_dataviz.R
Created
July 18, 2025 06:55
Воспроизводим графики с помощью ggplot2 из кн. Зейгарник Б.В. Введение в патопсихологию. М., 1969
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Воспроизводим графики с помощью ggplot2 | |
| # из кн. Зейгарник Б.В. Введение в патопсихологию. М., 1969 | |
| library(ggplot2) | |
| library(patchwork) | |
| # Данные для Больной С. | |
| data_patient_S <- data.frame(time = 1:10, | |
| errors = c(2, 2, 3, 5, 5, 7, 6, 2, 2.5, 8)) | |
| # Данные для Больной Л. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Установка и загрузка необходимых пакетов | |
| if (!require(waffle)) install.packages("waffle") | |
| if (!require(ggplot2)) install.packages("ggplot2") | |
| if (!require(ggtext)) install.packages("ggtext") | |
| if (!require(showtext)) install.packages("showtext") | |
| library(waffle) | |
| library(ggplot2) | |
| library(ggtext) | |
| library(showtext) |
tukachev
/ cherry_tree_blossom.R
Created
March 31, 2025 20:42
Day of the year with peak cherry tree blossom
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(showtext) | |
| library(ggshadow) | |
| showtext_auto() | |
| showtext_opts(dpi = 300) | |
| font_add_google("Playfair Display", "PD") | |
| font_add_google("Lato", "lato") | |
| df <- read.csv( |
tukachev
/ grok3_Benchmark.R
Created
February 24, 2025 13:36
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # AI Model Benchmark Scores Across Domains | |
| # https://x.com/xai/status/1891699715298730482 | |
| library(tidyverse) | |
| color_palette <- c( | |
| "Grok-3" = "#1b9e77", | |
| "Grok-3 mini" = "#66a61e", | |
| "Gemini-2 Pro" = "#e7298a", | |
| "DeepSeek-V3" = "#7570b3", | |
| "Claude 3.5 Sonnet" = "#d95f02", |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # 300.ya.ru | |
| # Sys.setenv("YA_TOKEN" = "") # your token | |
| get_sharing_url <- function(article_url) { | |
| token <- Sys.getenv("YA_TOKEN") | |
| if (is.null(token) || token == "") { | |
| stop("YA_TOKEN is empty, please set the environment variable") | |
| } | |
| endpoint <- 'https://300.ya.ru/api/sharing-url' | |
| data <- list(article_url = article_url) |
tukachev
/ yolochka.R
Created
December 30, 2024 20:35
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(ggplot2) | |
| library(ggtext) | |
| set.seed(666) | |
| # Функция для генерации случайных точек внутри треугольника | |
| generate_random_points <- function(n, x_min, x_max, y_min, y_max) { | |
| points <- data.frame(x = numeric(0), y = numeric(0)) | |
| while (nrow(points) < n) { | |
| x <- runif(1, x_min, x_max) |
tukachev
/ time_in_space.R
Created
April 11, 2024 20:01
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(httr) | |
| library(jsonlite) | |
| library(dplyr) | |
| library(ggplot2) | |
| # Download full database | |
| astronaut_db_url <- | |
| 'https://supercluster-iadb.s3.us-east-2.amazonaws.com/adb.json' | |
| astronauts_db <- | |
| jsonlite::fromJSON(content(GET(astronaut_db_url), "text")) |
NewerOlder