小编Raj*_*aha的帖子

我有以下 data.frame。我想绘制一个具有三个图例表的 ggplot，大小的通用图例，以及 var = "A" 和 var = "B" 的两个单独图例，从“值”列中获取值，这两个图例应放在旁边每个相关图。到目前为止，我已经尝试过为“var”列创建单个图例。

df <- data.frame(var = c("A","A","B","B"),
                 value = c("u","v","x","y"),
                 point = 1:4,
                 size = 1:4)

ggplot() +geom_point(data = df, 
                     aes(x = point,y = NA,
                         color = value,size = size)) +  
    facet_grid(rows = vars(var))

谢谢。

编辑： 我附上了@Tung 建议的预期输出

在这里，我尝试复制我原来的问题。如果您单击“添加细分”，以下闪亮代码将创建“子细分”按钮。

现在，“添加子段”按钮应在每次单击时给出单行文本。但我注意到，它创建了（1 + 单击的按钮后“添加分段”按钮的数量）许多行。

对于单个observeEvent，它正在工作（代码被注释掉）。

library(shiny)

ui <- fluidPage(
  verbatimTextOutput("txt",placeholder = T), #"It is Created for Testing"
  actionButton("addSeg", "Add a Segment"),
  uiOutput("myUI")
)

server <- function(input, output, session) {
  alld <- reactiveValues()
  alld$ui <- list()

  # Action to add new Segment
  observeEvent(input$addSeg,{
    alld$ui[[length(alld$ui)+1]] <- list(actionButton(paste0("addSub_",(length(alld$ui)+1)), "Add a Sub Segment"))
  })

  # Action to add new Sub Segment
  # observeEvent(input[[paste0("addSub_",1)]],{
  #   alld$ui[[1]][[length(alld$ui[[1]])+1]] <- paste0("addSub_",1)
  # })

  observeEvent(input$addSeg,{
    lapply(1:length(alld$ui), function(i){
      observeEvent(input[[paste0("addSub_",i)]],{
        alld$ui[[i]][[length(alld$ui[[i]])+1]] <- HTML(paste0("<br>addSub_",i,"<br>"))
      })
    })
  })

  output$myUI <- renderUI({alld$ui})

  output$txt <- …

我需要在 R 中读取一些“paraquet”文件。使用的解决方案很少

1. Sparklyr::spark_read_parquet（需要“spark”）
2. 网状（需要Python）

现在的问题是我不允许安装 R 以外的任何工具。R 中是否有任何可用的软件包可以在不使用任何其他工具的情况下读取“paraquet”？