R4marketing | канал Алексея Селезнёва | Язык R

library(colouR)
library(ggplot2)
library(dplyr)

# Анализ палитры изображение с усреднением цветов
top10 <- getTopCol(
  path = "https://static.make.ua/catalog/35/city-1491__1557487852__300h.jpg",
  n          = 5,
  avgCols    = T,
  n_clusters = 10,
  exclude    = T, 
)

# Сортируем цвета
top10$hex <- factor(top10$avg_color, levels = top10$avg_color)

# Выводим график по цветам
ggplot(top10, aes(x = hex, y = freq)) +
  geom_bar(stat = 'identity', fill = top10$hex) +
  theme_dark() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  xlab('HEX colour code') +
  ylab('Frequency')

# Выводим палитру
plotPalette(top10$avg_color)

n_clusters = 10

exclude    = TRUE

n = 5

# Используем полученную палитру в ggplot2
# подготовка данных
manufacturer_counts <- mpg %>%
  group_by(manufacturer) %>%
  summarize(count = n()) %>% 
  head(5)

mpgsort <- manufacturer_counts[order(manufacturer_counts$count, decreasing = TRUE), ]

mpgsort$manufacturer <-  factor(mpgsort$manufacturer, levels = mpgsort$manufacturer)

# Строим график с использованием полученной палитры
ggplot(mpgsort, aes(x = manufacturer, y= count, fill = manufacturer)) +
  geom_bar(stat = 'identity') +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_manual(values = top10$avg_color)

library(qdapRegex)

x <-  "I like [bots] (not)."

rm_between(x, "(", ")")
ex_between(x, "(", ")")
rm_between(x, c("(", "["), c(")", "]"))
ex_between(x, c("(", "["), c(")", "]"))

rm_between(x, "[", "]",replacement = "humans")

# пример текста
text <- "@alex привет, отправь 12.07.2023 @john информацию о стоимости #iphone на почту [email protected] потом позвони мне (067)123-45-67"

ex_date(text)  # извлекаем дату
ex_email(text) # извлекаем имейл
ex_hash(text)  # извлекаем хеш
ex_tag(text)   # извлекаем теги
ex_phone(text) # извлекаем номер телефона?

# создаём словарь
regex_dict <- list("rm_phone" = "\\(\\d{3}\\)\\d{1,4}-\\d{1,4}-\\d{1,4}")
# устанавливаем пользовательский словарь по умолчанию
options("regex.library" = regex_dict)
# используем словарь и паттерн из него
ex_phone(text, pattern = "@rm_phone")

library(ggflowchart)

data <- tibble::tibble(from = c("A", "A", "A", "B", "C", "F"),
                       to = c("B", "C", "D", "E", "F", "G"))

ggflowchart(data)

node_data <- tibble::tibble(
  name = c("A", "B", "C", "D", "E", "F", "G"),
  type = c("Type 1", "Type 1", "Type 1", "Type 1", 
           "Type 2", "Type 2", "Type 2")
  )
ggflowchart(data, node_data, fill = type)

# CRAN
install.packages('rgoogleads')

# GitHub
devtools::install_github('selesnow/rgoogleads')

R
library(mailer)

send_mail(
  from = "[email protected]",
  to = "[email protected]",
  subject = "CSV file",
  body = "Attached is the CSV file.",
  attach_files = "data.csv",
  authenticate = TRUE,
  smtp_server = "smtp.gmail.com",
  smtp_port = 465,
  smtp_username = "[email protected]",
  smtp_password = "password",
  use_ssl = TRUE
)