R语言 Esquisse包

R编程中的包是R函数、编译后的代码和样本数据的集合。它们存储在R环境中一个名为 “库 “的目录下。默认情况下，R在安装过程中会安装一组包。 Esquisse 包是R语言中最重要的包之一，它有助于以交互方式探索和可视化你的数据。它是一个Shiny小工具，可以通过拖放的方式交互式地创建ggplot图表来映射你的变量。人们可以根据数据的类型快速地将其可视化，导出为 “PNG “或 “PowerPoint”，并检索代码来复制图表。

安装

要在R编程中使用一个包，必须先安装该包。这项任务可以通过命令 install.packages(“packagename”) 来完成。

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

R编程中的Esquisse包

要从GitHub上安装开发版本，请输入以下内容。

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

Esquisse软件包中的重要动词功能

chooseData-Module: 它是一个从用户环境中选择data.frame和选择使用变量的模块。它给用户一个选择，从给定的可用数据集列表中选择，在一个闪亮的应用程序中工作。

语法

choiceDataUI(id)

chooseDataServer(input, output, session, data = NULL, name = NULL,

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

参数	说明
id	模块的ID。
input	标准闪亮的输入。
output	标准的shiny输出。
session	标准的shiny会话。
data	默认使用的data.frame。
name	数据的名称。
selectVars	逻辑（TRUE/FALSE），显示菜单以选择要在选定的数据框中使用的变量。
launchOnStart	当应用程序启动时启动模式。
defaultData	如果全局环境中没有data.frame，可以选择一个data.frame的字符向量。默认情况下，使用ggplot2的数据框。

例子

# Import shiny and
# esquisse packages
library(shiny)
library(esquisse)
 
ui <- fluidPage(
  tagsh2("Choose data module"),
  fluidRow(
    column(
      width = 4, tagsh4("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)

输出

R编程中的Esquisse包

dragulaInput： 它创建了一个拖放输入小工具。人们可以从开发者提供的各种标签中选择不同的标签（数据），让应用程序用户通过简单的拖放布局来扭动。

语法： dragulaInput(inputId, sourceLabel, targetsLabels, targetsIds = NULL,

choices = NULL, choiceNames = NULL, choiceValues = NULL。

status = “primary”, replace = FALSE, badge = TRUE, width = NULL,

height=”200px”)

参数	说明
inputId	将用于访问该值的输入槽。
sourceLabel	在源框中显示的标签。
targetsLabel	每个目标元素的标签。
targetsIds	用于在服务器端检索值的Ids。
choices	要选择的值的列表。如果提供这个参数，那么就不能提供choiceNames和choiceValues，反之亦然。
choiceNames	名称和值的列表，分别在应用程序中显示给用户，并对应于每个选择（由于这个原因，choiceNames和choiceValues必须有相同的长度）。
choiceValues	在应用程序中显示给用户的、与每个选择相对应的名称和值的列表（由于这个原因，choiceNames和choiceValues必须有相同的长度）。
status	如果选择被显示在Bootstrap标签中，你可以使用Bootstrap状态来给它们着色，或者是NULL。
replace	当一个选择被拖到已经包含一个选择的目标容器中时，后面的选择是否会被新的选择取代？
badge	在一个Bootstrap徽章内显示选择。
width	输入的宽度。
height	每个方框的高度，总的输入高度是这个参数X 2。

例子

# Import shiny and
# esquisse packages
library("shiny")
library("esquisse")
 
ui <- fluidPage(
  tagsh2("dragulaInput demo for geeksforgeeks"),
  tagsbr(),
  # 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)
{
  outputresult <- renderPrint(str(inputdata_di))
}
 
shinyApp(ui = ui, server = server)

输出

R编程中的Esquisse包

esquisser： 这是一个用ggplot2轻松创建图表的插件。 ggplot2是一个声明式创建图形的系统。只需提供数据，告诉ggplot2如何将变量映射到美学上，使用什么图形基元，剩下的都由它自己处理。

语法： esquisser(data = NULL)

参数	说明
data	一个data.frame。

例子

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

输出

R编程中的Esquisse包

updateDragulaInput： 更新Dragula输入。一旦调用被传递给函数，它就会更新拖放小部件。例如，如果一个标签从输入端被拖放，该函数就会更新输出端中所提供的输入值集合。

语法： updateDragulaInput(session, inputId, choices = NULL, choiceNames = NULL,

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

参数	说明
session	传递给shinyServer的函数的会话对象。
inputId	输入对象的ID。
choices	要选择的值的列表。如果提供这个参数，那么就不能提供choiceNames和choiceValues，反之亦然。
choiceNames choiceValues	分别是在应用程序中显示给用户的、与每个选择相对应的名称和值的列表（由于这个原因，choiceNames和choiceValues必须有相同的长度）。如果这些参数中的任何一个被提供，那么另一个也必须被提供，并且选择必须不被提供。
badge	在一个Bootstrap徽章内显示选择。
status	如果选择被显示在一个Bootstrap徽章中，你可以使用Bootstrap status来给它们着色，或者是NULL。

例子

# Import shiny and
# esquisse packages
library("shiny")
library("esquisse")
 
ui <- fluidPage(
  tagsh2("GfG demo for Update dragulaInput"),
  radioButtons(
    inputId = "update", label = "Dataset",
    choices = c("iris", "rock")),
  tagsbr(),
  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)
{
  outputresult <- renderPrint(str(inputdata))
  observeEvent(inputupdate, {
    if (inputupdate == "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)

输出

R编程中的Esquisse包

ggplot_to_plot： 将ggplot对象导出到PowerPoint的工具。这个函数提供了一个简单的方法来保存用ggplot绘制的图形和模型到.ppt文件或简单的PowerPoint演示文稿中。

语法: ggplot_to_ppt(gg = NULL)

参数	说明
gg	字符。ggplot对象的名称，如果为空，则启动Shiny gadget。

例子

# 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")