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

library(ggplot2)

# тестовые данные
df = data.frame(x = c("label", "long label", "very, very long label"), 
                y = c(10, 15, 20))

# дефолтные настройки
ggplot(df, aes(x, y)) + 
  xlab("") + ylab("Number of Participants") +
  geom_bar(stat = "identity") 

library(stringr)

# перенос троки
ggplot(df, aes(x, y)) + 
  xlab("") + ylab("Number of Participants") +
  geom_bar(stat = "identity") +
  scale_x_discrete(labels = function(x) str_wrap(x, width = 10))

# изменяем угол наклона текста подписей
p3 <- ggplot(df, aes(x, y)) + 
  xlab("") + ylab("Number of Participants") +
  geom_bar(stat = "identity") +
  theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5))

tags$div(
    id = "all_plots",
    column(
      width = 6,
      wellPanel(
        plotOutput("scatter")
      )
    ),
    column(
      width = 6,
      wellPanel(
        plotOutput("bill_length")
      )
    ),
    column(
      width = 6,
      wellPanel(
        plotOutput("bill_depth")
      )
    ),
    column(
      width = 6,
      wellPanel(
        plotOutput("penguin_count")
      )
    )
  )

sortable_js("element_id")

library(qrcode)
code <- qr_code("QR CODE")
print(code)

##               
##  ▗▄▄▄  ▗▗▄▄▄  
##  ▐▗▄▐ ▐▟▐▗▄▐  
##  ▐▐█▐▐▞▐▐▐█▐  
##  ▐▄▄▟▗▚▚▐▄▄▟  
##  ▗▖ ▄▖ ▖ ▗▖   
##  ▝▄▜▄▌▘▜▚▛▚█  
##  ▐▜█▚▀▐██▙▙▞  
##  ▗▄▄▄▐▄▞▖▗▟▄  
##  ▐▗▄▐▝▖▖▞▗▟▘  
##  ▐▐█▐ ▞█▛▄▐▄  
##  ▐▄▄▟▐▘▜▀▐▜▝  
##               
##               
## 
## use plot() for a better quality image

plot(code)

library(shiny)
library(shinyglide)

ui <- fixedPage(style = "max-width: 500px;",
  titlePanel("Simple shinyglide app"),

  glide(
    height = "350px",
    screen(
      p("This is a very simple shinyglide application."),
      p("Please click on Next to go to the next screen.")
    ),
    screen(
      p("Please choose a value."),
      numericInput("n", "n", value = 10, min = 10)
    ),
    screen(
      p("And here is the result."),
      plotOutput("plot")
    )
  )
)


server <- function(input, output, session) {

  output$plot <- renderPlot({
    hist(
      rnorm(input$n),
      main = paste("n =", input$n),
      xlab = ""
    )
  })

}

shinyApp(ui, server)

# in the UI
rclipboardSetup(),
uiOutput("clip_button")

# in the server
renderUI({
  rclipButton(
    "clip_button",
    "Copy to clipboard",
    clipText = "Text to be copied",
    icon = icon("clipboard")
  )
})

# in the UI
tippy_this(
  "clip_button",
  tooltip = "String copied!",
  trigger = "click"
)

library(tidyjson)
library(dplyr)

# Тестовый набор данных JSON структур
people <- c('{"age": 32, "name": {"first": "Bob",   "last": "Smith"}}',
            '{"age": 54, "name": {"first": "Susan", "last": "Doe"}}',
            '{"age": 18, "name": {"first": "Ann",   "last": "Jones"}}')

# Приводим в табличный вид
people %>% spread_all
#> # A tbl_json: 3 x 5 tibble with a "JSON" attribute
#>   ..JSON                  document.id   age name.first name.last
#>   <chr>                         <int> <dbl> <chr>      <chr>    
#> 1 "{\"age\":32,\"name..."           1    32 Bob        Smith    
#> 2 "{\"age\":54,\"name..."           2    54 Susan      Doe      
#> 3 "{\"age\":18,\"name..."           3    18 Ann        Jones

# объединяем многострочные заголовки из первых двух строк
rodents |> 
  mash_colnames(n_name_rows = 2)

# A tibble: 3 × 4
  critter tail_length_mm whisker_length_mm mass_grams
  <chr>   <chr>          <chr>             <chr>     
1 rat     71             12                91        
2 mouse   58             8                 47        
3 vole    12             5                 43  

mash_colnames

ui = fluidPage(
  useWaiter(),
  titlePanel("{waiter}"),
  h2("Locations of the ISS in the last 10 mins"),
  wellPanel(
    leafletOutput("iss_location")
  ),
  fluidRow(
    column(
      width = 12,
      actionButton(
        "refresh",
        "Refresh App",
        icon = icon("sync")
      ),
      align = "center"
    )

  )
)