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

 
library(ggbump)
library(ggplot2)
library(dplyr)

df <- data.frame(country = c(
  "India", "India", "India",
  "Sweden", "Sweden", "Sweden",
  "Germany", "Germany", "Germany",
  "Finland", "Finland", "Finland"),
  year = c(2011, 2012, 2013,
    2011, 2012, 2013,
    2011, 2012, 2013,
    2011, 2012, 2013),
  rank = c(4, 2, 2, 3, 1, 4, 2, 3, 1, 1, 4, 3))

ggplot(df, aes(year, rank, color = country)) +
  geom_point(size = 10) +
  geom_bump(size = 2)

---
title: "Code Collapse Demonstration"
output:
  html_document:
    code_folding: hide
---

```{r}
#| include = FALSE
library(dplyr)
library(ggplot2)
```

There is a negative correlation between horsepower and miles per gallon.

```{r}
mtcars %>% 
  ggplot(aes(x = hp, y = mpg)) +
  geom_point()
```

 
ttt(ttt_human(), ttt_ai(level = 4))

 
> ttt(ttt_human(), ttt_ai())
    A B C
   ------
 1| . . .
 2| . . .
 3| . . .

 Player 1 (no name) to play
choose move (e.g. A1) > A1
 action = A1 
    A B C
   ------
 1| X . .
 2| . . .
 3| . . .

 Player 2 (ttt AI) to play
 action = C1 
    A B C
   ------
 1| X . O
 2| . . .
 3| . . .

 Player 1 (no name) to play
choose move (e.g. A1) > B2
 action = B2 
    A B C
   ------
 1| X . O
 2| . X .
 3| . . .

 Player 2 (ttt AI) to play
 action = B1 
    A B C
   ------
 1| X O O
 2| . X .
 3| . . .

 Player 1 (no name) to play
choose move (e.g. A1) > C3
 action = C3 
game over
    A B C
   ------
 1| X O O
 2| . X .
 3| . . X

 won by Player 1 (no name)!

---
title: "Tabset Demonstration"
output: html_document
---

```{r}
#| include = FALSE
library(dplyr)
library(ggplot2)
```

There is a negative correlation between horsepower and miles per gallon.

## Tab {.tabset}

### Plot

```{r}
mtcars %>% 
  ggplot(aes(x = hp, y = mpg)) +
  geom_point()
```

### Table

```{r}
#| collapse = TRUE
mtcars %>% 
  glimpse()
```

 
remotes::install_github("rundel/livecode")

 
server = livecode::serve_file()
#> ✔️ Started sharing 'example.R' at 'http://192.168.1.128:30000'.
#> ✖️ The current ip address ('192.168.1.128') for the server is private, only users on the same local network are likely to be able to connect.

 
server$send_msg("Hello World!", type = "success")
server$send_msg("Oh no!\n\n Something bad has happened.", type = "error")

 
server$stop()

 
library(FourScores)

# запускаем игру
FourScores(
  rows           = 5, 
  columns        = 5, 
  AI             = T, 
  AIstrength     = 0, 
  AIplayernumber = 1, 
  PlayerNames    = c("PC", "Human")
  )

library(tidyverse)
my_data <- mtcars |> mutate(vars = 1:n())
vars <- c("cyl", "am")

my_data |> select(all_of(vars)) |> glimpse()

Rows: 32
Columns: 2
$ cyl <dbl> 6, 6, 4, 6, 8, 6, 8, 4, 4, 6, 6, 8, 8, 8, 8, 8, 8, 4, 4, 4, 4, 8, 8, 8, 8, 4, 4, 4, 8, 6, 8, 4
$ am  <dbl> 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1

my_data |> select(vars) |> glimpse()

Rows: 32
Columns: 1
$ vars <int> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32

var <- "am"
mtcars |> transmute(am = .data[[var]] * 10) |> glimpse()
mtcars |> mutate(.data$am * 2) |> glimpse()

var <- "am"
mtcars |> select(all_of(var)) |> glimpse()
#> Rows: 32
#> Columns: 1
#> $ am <dbl> 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1,…

mtcars |> select("am") |> glimpse()
#> Rows: 32
#> Columns: 1
#> $ am <dbl> 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1,…

 
library(ggplot2)

GeomLine$default_aes
#> Aesthetic mapping: 
#> * `colour`    -> "black"
#> * `linewidth` -> 0.5
#> * `linetype`  -> 1
#> * `alpha`     -> NA