Paquete Esquisse en Programación R

Los paquetes en la programación R son una colección de funciones R, código compilado y datos de muestra. Se almacenan en un directorio llamado » biblioteca » en el entorno R. De forma predeterminada, R instala un conjunto de paquetes durante la instalación. Uno de los paquetes más importantes de R es el paquete Esquisse . El paquete Esquisse ayuda a explorar y visualizar sus datos de forma interactiva. Es un gadget brillante para crear gráficos ggplot de forma interactiva con arrastrar y soltar para mapear sus variables. Uno puede visualizar rápidamente los datos según su tipo, exportarlos a ‘PNG’ o ‘PowerPoint’ y recuperar el código para reproducir el gráfico.

Instalación

Para usar un paquete en la programación R, primero debe instalar el paquete. Esta tarea se puede realizar con el comando install.packages(“packagename”) .

source("https://install-github.me/dreamRs/esquisse")
install.packages("esquisse")

Para instalar la versión de desarrollo desde GitHub , escriba esto:

# or with devtools:
devtools::install_github("dreamRs/esquisse")

Funciones verbales importantes en el paquete Esquisse

• chooseData-Module: es un módulo para elegir data.frame del entorno del usuario y seleccionar la variable a usar. Le da al usuario la opción de elegir de una lista dada de conjuntos de datos disponibles para trabajar dentro de una aplicación brillante.

Sintaxis: 

elegirDataUI(id)

elegirDataServer(entrada, salida, sesión, datos = NULL, nombre = NULL,

                            selectVars = TRUE, launchOnStart = TRUE, defaultData = NULL)

Ejemplo: 

# Import shiny and
# esquisse packages
library(shiny)
library(esquisse)
 
ui <- fluidPage(
  tags$h2("Choose data module"),
  fluidRow(
    column(
      width = 4, tags$h4("Default"),
      # Using chooseDataUI      
      chooseDataUI(id = "choose1"),
      verbatimTextOutput(outputId = "res1"))))
 
server <- function(input, output, session)
{
  res_dat1 <- callModule(
    chooseDataServer, id = "choose1",
    launchOnStart = FALSE)
  output$res1 <- renderPrint({
    str(reactiveValuesToList(res_dat1))})
}
 
shinyApp(ui,server)

Producción:

• dragulaInput: crea un widget de entrada de arrastrar y soltar. Uno puede seleccionar diferentes etiquetas (datos) de una variedad de etiquetas proporcionadas por el desarrollador al usuario de la aplicación para hacer twerk con un simple diseño de arrastrar y soltar.

Sintaxis: dragulaInput(inputId, sourceLabel, targetLabels, targetsIds = NULL,

                                  elecciones = NULL, elecciónNombres = NULL, elecciónValores = NULL,

                                  estado = «primario», reemplazar = FALSO, insignia = VERDADERO, ancho = NULO,

                                 altura = «200px»)

Ejemplo:

# Import shiny and
# esquisse packages
library("shiny")
library("esquisse")
 
ui <- fluidPage(
  tags$h2("dragulaInput demo for geeksforgeeks"),
  tags$br(),
  # using dragulaInput()
  # to create a drag and
  # drop widget
  dragulaInput(
    inputId = "data_di", sourceLabel = "Source",
    targetsLabels = c("Drop Here", "Drop Here 2"),
    choices = names(rock), width = "400px"),
    verbatimTextOutput(outputId = "result"))
 
server <- function(input, output, session)
{
  output$result <- renderPrint(str(input$data_di))
}
 
shinyApp(ui = ui, server = server)

Producción:

• esquisser: Es un complemento para crear plots fácilmente con ggplot2 . ggplot2 es un sistema para crear gráficos declarativamente. Simplemente proporcione los datos, dígale a ggplot2 cómo asignar variables a la estética, qué primitivas gráficas usar, y se maneja solo.

Sintaxis: esquisser(datos = NULL)

Ejemplo:

# Import shiny and
# esquisse packages
library("shiny")
library("esquisse")
   
esquisser(rock)

Producción:

• updateDragulaInput: actualiza la entrada de Dragula. Actualiza los widgets de arrastrar y soltar tan pronto como se pasa la llamada a la función. Por ejemplo, si se arrastra y suelta una etiqueta desde la entrada, la función actualiza el conjunto de valores de entrada proporcionados en la salida.

Sintaxis: updateDragulaInput(sesión, inputId, opciones = NULL, elecciónNombres = NULL,

                                              choiceValues ​​= NULL, badge = TRUE, status = “primary”)

Ejemplo:

# Import shiny and
# esquisse packages
library("shiny")
library("esquisse")
 
ui <- fluidPage(
  tags$h2("GfG demo for Update dragulaInput"),
  radioButtons(
    inputId = "update", label = "Dataset",
    choices = c("iris", "rock")),
  tags$br(),
  dragulaInput(
    inputId = "data", sourceLabel = "Variables",
    targetsLabels = c("X", "Y", "fill", "color", "size"),
    choices = names(iris), replace = TRUE,
    width = "400px", status = "success"),
    verbatimTextOutput(outputId = "result"))
 
server <- function(input, output, session)
{
  output$result <- renderPrint(str(input$data))
  observeEvent(input$update, {
    if (input$update == "iris")
    {
      updateDragulaInput(
        session = session, inputId = "data",
        choices = names(iris), status = "success")
    }
    else
    {
      updateDragulaInput(
        session = session, inputId = "data",
        choices = names(rock))
    }
  }, ignoreInit = TRUE)
   
}
 
shinyApp(ui, server)

Producción:

• ggplot_to_plot: Utilidad para exportar objetos ggplot a PowerPoint. Esta función de utilidad proporciona una forma sencilla de guardar gráficos y modelos dispuestos mediante ggplot en un archivo .ppt o simplemente en una presentación de PowerPoint.

Sintaxis: ggplot_to_ppt(gg = NULL)

Ejemplo:

# import ggplot2 library
library(ggplot2)
p <- ggplot(iris) +
     geom_point(aes(Sepal.Length, Sepal.Width))
 
# use ggplot_to_plot
# to display plot
# in a ppt format
ggplot_to_ppt("p")

Producción:

El código muestra la salida en formato ppt. El resultado del fragmento de código anterior se puede ver a través de este enlace .