R4marketing | канал Алексея Селезнёва | Язык R. Страница 10

 
library(this.path)

print(this.path())
print(this.dir())

 
> source("~/test.R", echo=TRUE)

> library(this.path)

> print(this.path())
[1] "C:/Users/Username/Documents/test.R"
attr(,"this.path.n")
[1] 1

> print(this.dir())
[1] "C:/Users/Username/Documents"

 
install.packages("ggchicklet", repos = "https://cinc.rud.is")
# или
remotes::install_git("https://git.rud.is/hrbrmstr/ggchicklet.git")
# или
remotes::install_git("https://git.sr.ht/~hrbrmstr/ggchicklet")
# или
remotes::install_gitlab("hrbrmstr/ggchicklet")
# или
remotes::install_bitbucket("hrbrmstr/ggchicklet")
# или
remotes::install_github("hrbrmstr/ggchicklet")

 
library(ggchicklet)
library(ggplot2)

# тестовые данные
df <- data.frame(
  value = 1:5,
  group = LETTERS[1:5]
  )

# обычная гистограмма
ggplot(df, aes(group, value)) + geom_col()

# гистограмма с закруглёнными углами
ggplot(df, aes(group, value)) + 
  geom_chicklet(radius = grid::unit(3, "mm"))

 
library(webshot2)

# снимок одной страницы
webshot("https://www.r-project.org")

# снимок нескольких страниц в параллельно мрежиме
webshot(c("https://www.r-project.org", "https://www.rstudio.com"))

# Используем CSS селектер для определения области скриншота
webshot(
  "http://rstudio.github.io/leaflet", 
  "leaflet-menu.png", 
  selector = ".list-group"
  )

# полученный скриншот можно использовать 
# совместно с другими функциями в конвейере
webshot("https://www.r-project.org/", "r-small.png") %>%
  resize("75%") %>%
  shrink()

 where(is.numeric())

 dependencies in R code ... NOTE
  Unexported object imported by a ':::' call: 'package:::function'
    See the note in ?`:::` about the use of this operator.

 
utils::globalVariables("where")

is_response <- getFromNamespace("is_response", "httr2")

 
library(tvthemes)
library(ggplot2)
library(dplyr)
library(glue)
library(extrafont)
loadfonts(quiet = TRUE)

import_simpsons()

data <- gapminder::gapminder %>% 
  filter(country %in% c("France", "Germany", "Ireland", "Italy", "Japan", "Norway", "Belarus")) %>% 
  mutate(year = as.Date(paste(year, "-01-01", sep = "", format='%Y-%b-%d')))

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
  geom_area(alpha = 0.8) +
  scale_x_date(breaks = data$year, date_labels = "%Y") +
  scale_y_continuous(expand = c(0, 0), labels = scales::dollar) +
  scale_fill_simpsons() +
  labs(title = "The Simpsons",
    subtitle = "Theme inspired in part by @nathancunn's blog posts",
    caption = glue("
                      A 'Bake 'em Away, Toys!' Production
                      Location: Sector 7G"),
    x = "Wel-diddly-elcome neighborino!",
    y = "Price of Duff Beer") +
  theme_simpsons(title.font = "Akbar",
    text.font = "Akbar",
    axis.text.size = 8)

 
# тестовые данные
x <- c(1, 3, 0, 5, 0 ,7)

# старый вариант
dplyr::case_when(
    x == 0 ~ NA_character,
    x <= 2 ~ "low",
    x <= 4 ~ "medium",
    TRUE ~ "high"
)

# новый вариант
dplyr::case_when(
    x == 0 ~ NA,
    x <= 2 ~ "low",
    x <= 4 ~ "medium",
    .default = "high"
)

 
library(dplyr)

df <- tibble(x = c(1, 3, 0, 5, 0 ,7))

df %>% mutate(
  case_when(
    x == 0 ~ NA,
    x <= 2 ~ tibble(type = 'low', id = 1),
    x <= 4 ~ tibble(type = 'medium', id = 2),
    .default = tibble(type = 'high', id = 3)
  )
)

 
# A tibble: 6 × 3
      x type      id
  <dbl> <chr>  <dbl>
1     1 low        1
2     3 medium     2
3     0 NA        NA
4     5 high       3
5     0 NA        NA
6     7 high       3