小编New*_*Bee的帖子

问题： 我正在尝试将“悬停文本”添加到闪亮的选择输入/多输入功能中的可用选项中。根据不同用户的说法，ShinyBS 的 tooltip 功能仅设计用于按 id 选择。因此，我试图使用比这更好的东西来实现我的结果。

这是我正在尝试修改的绝佳解决方案。解决方案涉及创建一个名为selectizeInput: (根据函数的创建者) 的新函数

“[] 移动选择，重新渲染它们，仅在它们第一次显示时才渲染它们，依此类推。发生了很多事情。这就是为什么这个解决方案抓住周围的 div 并不断监听添加的 childNodes。”

我不太了解该函数发生了什么，但这里有一些可重现代码的示例。包括selectizeInput上面提到的用户功能。如您所见，我正在尝试使用此函数在我的multiInput函数中添加悬停文本。我想添加功能，以便当将鼠标悬停在“第 1 组”上时，会弹出“第 1 组定义”文本。

我愿意使用完全不同的解决方案来添加此功能！

我尝试过的： 非常感谢任何建议！理想情况下，我会使用 multiInput，但将 multiInput 设置为 TRUE 的 selectInput 也是一个很好的解决方法。但是，执行此操作时会出现其他一些问题。

1. 一旦我选择了一个选项，其余选项的标签就不会显示。例如，当我选择第 1 组和第 3 组时，将鼠标悬停在第 2 组标签上时看不到它。

2. 包含标签的文本框（在下拉列表中）非常窄——不容易阅读定义

3. 选择后，定义将部分隐藏

这是我的代码：

     library(shiny)
     library(shinyBS)
    
     selectizeTooltip <- function(id, choice, title, placement = "bottom", trigger = "hover", options = NULL){
    
       options = shinyBS:::buildTooltipOrPopoverOptionsList(title, placement, trigger, options)
       options = paste0("{'", paste(names(options), options, sep = "': '", collapse …

我有这样的数据：

dat <- mtcars %>% mutate(cyl2 = cyl*2,cyl3 = cyl*3)

我想使用 tabyl 运行以下每个交叉表 [vs,cyl] [vs,cyl1] [vs,cyl2] [vs,cyl3]：

我知道我可以运行 vs, cyl 这样的命令，并对每个“cyl”变量重复此操作。不过我想形成某种循环而不是重复这个。

dat%>% 
  tabyl(vs,cyl)%>%
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  adorn_ns()

所以我研究了一个函数：

run_xtable <- function(data,v1) {

  out <- data%>% 
  tabyl(vs,v1)%>%
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  adorn_ns()
  return(out)
}

run_xtable(dat,'cyl')

我遇到了一些问题，非常感谢任何帮助！

1. 该函数不接受 v1 作为引用变量。为什么是这样？我尝试用 enquo 包裹它，但没有任何区别。

   错误：必须按.data.*中找到的变量进行分组v1，未找到列。

2. 我如何设置它，以便我可以使用类似的东西来减少重复：

   sapply(run_xtable, c('cyl','cyl1','cyl2'))

谢谢你！

我正在尝试根据 B 列的顺序对 A 列进行排序。

这里提出了类似的问题，但解决方案没有按预期工作。根据一列对另一列进行排序

这是我的数据的示例：

这是我正在运行的 VBA：

Sub sort_a_b()

Application.ScreenUpdating = False
Range("A1:B12").Copy Destination:=Range("G1:H12")
Range("G1:H12").Sort Key1:=Range("H1:H12"), Order1:=xlAscending
Range("G1:G12").Copy Destination:=Range("A1:A12")
Range("G1:H12").Clear
Application.ScreenUpdating = True

End Sub

这是我运行时看到的结果：

我不确定发生了什么事。我希望根据 B 列的顺序看到 5 月、8 月、11 月、12 月，但事实并非如此。请注意，我的实际列表有 500 个变量长！

非常感谢任何建议——无论是手动的还是宏的。谢谢你！

我正在使用Thomas Lumley 的调查包来创建交叉表和 SE。我正在努力指定交叉表的分母。

这是我的数据：

    library(survey)
    data <- read_table2("Q50_1   Q50_2   Q38 Q90 pov gender  wgt id
    yes   3   Yes NA   High    M   1.3 A
    NA   4   No  2   Med F   0.4 B
    no   2   NA 4   Low F   1.2 C
    maybe   3   No  2   High    M   0.5 D
    yes   NA   No  NA   High    M   0.7 E
    no   2   Yes 3   Low F   0.56 F
    maybe   4   Yes 2   Med F   0.9 G")
    
    

创建设计对象：

    design <- svydesign(id =~id,
                            weights …