小编jmj*_*mjr的帖子

关于如何提取向量的每个第n个元素有很多问题,但我找不到如何在向量的每个第n个元素之后轻松添加值.有没有一种简单的方法可以在向量中的每个第n个元素之后添加某个值？

例如,假设我们有两个向量:

v1 <- paste0(letters[1:3], rep(1:5, each = 3))
> v1
[1] "a1" "b1" "c1" "a2" "b2" "c2" "a3" "b3" "c3" "a4" "b4" "c4" "a5" "b5" "c5"

v2 <- paste0("header", seq(1:5))
> v2
[1] "header1" "header2" "header3" "header4" "header5"

现在我想在第一个元素的v2第三个元素之后添加元素v1.结果应如下所示:

 [1] "header1" "a1" "b1" "c1" "header2" "a2" "b2" "c2" "header3" "a3" "b3" "c3" "header4" "a4" "b4" "c4" "header5" "a5" "b5" "c5"

我有一个闪亮的应用程序(使用navbarPage)有很多选项卡,并希望添加一个侧栏菜单,无论选择哪个选项卡都可以看到.侧栏中的输入值会影响所有选项卡的内容.此外,应该可以隐藏sidebarMenu,因为它在shinydashboard中.

我看到两种可能的方式:

(A)使用shinydashboard并以某种方式添加顶部导航栏或

(B)使用navbarPage并以某种方式添加可隐藏的侧边栏菜单.

(A)使用shinydashboard,最接近我想要的是(简化的MWE):

library("shiny")
library("shinydashboard")

cases <- list(A=seq(50,500, length.out=10), B=seq(1000,10000, length.out=10))

ui <- dashboardPage(
  dashboardHeader(title = "dash w/ navbarMenu"),
  dashboardSidebar(selectizeInput('case', 'Pick a case', selected="A", choices = c("A", "B"), multiple = FALSE), numericInput('num', 'Number', min = 1, max = 10, value = 1, step = 1)),
  dashboardBody(
    tabsetPanel(
      tabPanel(h4("Perspective 1"),
               tabsetPanel(
                 tabPanel("Subtab 1.1", plotOutput("plot11")),
                 tabPanel("Subtab 1.2")
               )),
      tabPanel(h4("Perspective 2"),
               tabsetPanel(
                 tabPanel("Subtab 2.1"),
                 tabPanel("Subtab 2.2")
               ))
    )
  )
)

server <- function(input, output) {
  output$plot11 <- renderPlot({ …

我有一个简单的sankey图,使用networkD3一个闪亮的应用程序内的包生成.如何source和/或target节点排序？

正如您在MWE中看到的那样,默认情况下,源节点(A,B,C,D,E)和目标节点(V,W,X,Y,Z)都没有排序.至少,排序对我来说是不可理解的.

码:

library("shiny")
library("networkD3")

ui <- fluidPage(
  column(3),
  column(6, sankeyNetworkOutput("mySankeyD")),
  column(3)
)

server <- function(input, output) {
  output$mySankeyD <- renderSankeyNetwork({
    myDf <- list(
      nodes=data.frame(name=c( "A", "B", "C", "D", "E",
                               "V", "W", "X", "Y", "Z")),
      links=data.frame(source=as.integer(c(0, 1, 2, 3, 3, 4, 4)),
                       target=as.integer(c(7, 6, 7, 8, 7, 5, 9)),
                       value =           c(1, 4, 1, 5, 1, 5, 3)
      )
    )

    sankeyNetwork(Links = myDf$links, Nodes = myDf$nodes, Source = "source",
                  Target = "target", Value = …

我想知道是否有一种方法可以使用 command 在 xtable 中制作一些 hlines 虚线或点线hline.after。我找不到解决办法。

MWE（RNW）：

\documentclass{article}
\usepackage{booktabs}
\begin{document}

<<mytable, results='asis', echo=F>>=
library("xtable")
print(xtable(matrix(rnorm(32), 8,4), align="lllll"), booktabs=T, hline.after = c(-1,0,4,8))
@

\end{document}

给出这个乳胶表代码：

\begin{table}[ht]
\centering
\begin{tabular}{lllll}
\toprule 
 & 1 & 2 & 3 & 4 \\ 
 \midrule
 1 & 0.50 & -0.49 & -1.32 & -0.29 \\ 
 2 & 1.01 & 0.57 & 1.35 & 0.54 \\ 
 3 & -1.20 & 1.02 & 1.12 & 0.07 \\ 
 4 & 0.04 & 0.14 & 0.23 & -0.38 …