小编J. *_*oe.的帖子

我在axis（）函数中遇到以下问题。

 axis(1,
       at=1:length(stringi::stri_rand_strings(21, 15)),
       labels=stringi::stri_rand_strings(21, 15),
       tick=1,
       lwd=1,
       mgp = c(0,1,0),
       col = title_colour,
       col.ticks = title_colour
       ,lty = "solid",
       cex.axis = 1,las=2,cex=0.75)

但是我真正需要的是没有连续的x'x线连接刻度线的刻度线：

如何使用axis（）完成此操作？

我想连接两个表xxx并yyy使用复合唯一键和日期范围。在 sql 中，我只需在连接中指定，但我无法开始dplyr工作。这可能吗？

test<- inner_join(xxx, yyy, by = c("ID" = "ID",
                               "NRA"="NRA",
                               "date_low">"date",
                               "date_high"<"date"),
                               copy = FALSE)

我正在寻找自定义Shiny的showNotification功能.

https://gallery.shinyapps.io/116-notifications/

我希望在屏幕中间生成消息而不是右下角.我不认为这可以本地设置,但我希望有人会建议如何实现这一目标.

谢谢

我的 css 技能非常有限，但假设以下示例：

  sketch = htmltools::withTags(table(
     class = 'display',
     thead(
        tr(
           th(rowspan = 2, 'Species'),
           th(colspan = 2, 'Sepal'),
           th(colspan = 2, 'Petal')
        ),
        tr(
           lapply(rep(c('Length', 'Width'), 2), th)
        )
     )
  ))
  datatable(head(iris, 10), 
     container = sketch, options = list(
     initComplete = JS(
        "function(settings, json) {",
        "$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
        "}")
  ))

我怎么会改变颜色编码的前两个列标题为蓝色的说，这样的列标题，两排Sepal,Length和Sepal,Width是蓝色的，但保留作为另一种颜色以下结构Petal,Length和Petal,Width

在 Stephane 的初步回答之后，我添加了一个示例。

取自这个问题，我想知道如何以dy_graph闪亮的方式显示列表对象。下面的一段代码创建了它，但我不是 html 专家，阅读htmltools手册没有帮助。基本上我需要修改这部分htmltools::browsable(htmltools::tagList(dy_graph))以在 Shiny 中渲染。

# create the time series
temperature <- ts(frequency = 12, start = c(1980, 1),
              data = c(7.0, 6.9, 9.5, 14.5, 18.2, 21.5, 
                       25.2, 26.5, 23.3, 18.3, 13.9, 9.6))
rainfall <- ts(frequency = 12, start = c(1980, 1),
           data = c(49.9, 71.5, 106.4, 129.2, 144.0, 176.0, 
                    135.6, 148.5, 216.4, 194.1, 95.6, 54.4))

# create a list of dygraphs objects
library(dygraphs)
library(htmltools)
dy_graph <- list(
  dygraphs::dygraph(temperature, group="temp_rain", main="temperature"),
  dygraphs::dygraph(rainfall, …