Skip to content

Instantly share code, notes, and snippets.

View tukachev's full-sized avatar

Yurij Tukachev tukachev

View GitHub Profile
# 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",
@tukachev
tukachev / 300ya.R
Created January 21, 2025 01:52
300ya.ru API using R
# 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)
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)
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"))
library(jsonlite)
library(tidyverse)
library(RColorBrewer)
library(ggtext)
library(OneR)
#extrafont::loadfonts() # fix fonts
streamHistory <-
list.files(
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 %>%
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(
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
library(jsonlite)
library(stringr)
library(tidyverse)
library(wordcloud)
# Загружаем данные из JSON-файла
data <- fromJSON("result.json")
# str(data$messages$text[10])
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") %>%