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

 
other_function <- function(x) x * 5 - 7

more_calculations <- function() NULL

some_advanced_function <- function(x) {
  print("Я тут")
  y <- other_function(x)
  print(y)
  more_calculations()
  print("Надеюсь дойти сюда!!!!")
}

 
some_advanced_function(4)

[1] "Я тут"
[1] 13
[1] "Надеюсь дойти сюда!!!!"

 
library(icecream)

other_function <- function(x) x * 5 - 7
more_calculations <- function() NULL

some_advanced_function <- function(x) {
  ic()
  y <- other_function(x)
  ic(y)
  more_calculations()
  ic()
}

some_advanced_function(4)

 
> source("~/33.R")
ℹ️ ic| `some_advanced_function()` in ~/33.R:8:2
ℹ️ ic| `y`: num 13
ℹ️ ic| `some_advanced_function()` in ~/33.R:12:2

 
i01 <- function(y, z) {
  list(y = y, z = z)
}

i02 <- function(x, ...) {
  i01(...)
}

str(i02(x = 1, y = 2, z = 3))
#> List of 2
#>  $ y: num 2
#>  $ z: num 3

 
i03 <- function(...) {
  list(first = ..1, third = ..3)
}
str(i03(1, 2, 3))
#> List of 2
#>  $ first: num 1
#>  $ third: num 3

 
i04 <- function(...) {
  list(...)
}
str(i04(a = 1, b = 2))
#> List of 2
#>  $ a: num 1
#>  $ b: num 2

 
library(findInFiles)

res <-findInFiles("R", "gs4_auth", output = "tibble")
res
# A tibble: 11 × 3
   file                              line code                                
   <chr>                            <int> <vctrs_vc>                          
 1 R/blaze_archive_proj_2020_2021.R    25 gs4_auth('[email protected]') 
 2 R/EDC_ppc.R                         12 gs4_auth('[email protected]') 
 3 R/EDC_ppc_kazakhstan.R              12 gs4_auth('[email protected]') 
 4 R/EDC_seo.R                         12 gs4_auth('[email protected]') 
 5 R/Efr_active_proj.R                 12 gs4_auth('[email protected]') 
 6 R/Efr_Churn.R                       12 gs4_auth('[email protected]') 
 7 R/facebook_expenses_2020_2021.R     12 gs4_auth('[email protected]') 
 8 R/netpeak_analysts.R                13 gs4_auth('[email protected]') 
 9 R/nlo_active_proj.R                 11 gs4_auth('[email protected]')
10 R/Rose - Beauty proj.R              12 gs4_auth('[email protected]') 
11 R/user_info_cities.R                12 gs4_auth('[email protected]') 

 
ggplot(mpg, aes(displ, hwy, colour = class)) + 
  geom_point(size = 2) +
  geom_xsideboxplot(aes(y =class), orientation = "y") +
  scale_xsidey_discrete() + #In order to use xsideboxplot with a main panel that uses
  #continuous data, force y axis in xside panel to be discrete
  geom_ysidedensity(aes(x = after_stat(density)), position = "stack") +
  scale_ysidex_continuous(guide = guide_axis(angle = 90), minor_breaks = NULL) +
  theme(ggside.panel.scale = .3)

 
# сравнение векторов
## добавление нового элемента
compare(c("a", "b", "c"), c("a", "b"))

`old`: "a" "b" "c"
`new`: "a" "b"    

## удаление элемента
compare(c("a", "b"), c("a", "b", "c"))

`old`: "a" "b"    
`new`: "a" "b" "c"

## изменение элемента
compare(c("a", "b", "c"), c("a", "B", "c"))

`old`: "a" "b" "c"
`new`: "a" "B" "c"

# сравнение фреймов
df1 <- data.frame(x = 1:3, y = 3:1)
df2 <- tibble::tibble(rev(df1))
compare(df1, df2)

`class(old)`: "data.frame"                   
`class(new)`: "tbl_df"     "tbl" "data.frame"

`names(old)`: "x" "y"
`names(new)`: "y" "x"