【问题标题】:Setting area in RMarkdownRMarkdown 中的设置区域
【发布时间】:2021-12-08 04:24:01
【问题描述】:

我正在尝试在 RMarkdown 中使用 flexidasboard 制作仪表板。我尝试在下面修改此代码

Page 2
=======================================================================

Row
-----------------------------------------------------------------------


```{r global1, include=FALSE}
# load data in 'global' chunk so it can be shared by all users of the dashboard
  library(biclust)
  data(BicatYeast)
  set.seed(1)
 res <- biclust(BicatYeast, method=BCPlaid(), verbose=FALSE)
```

Inputs {.sidebar}
-----------------------------------------------------------------------

```{r}
 selectInput("clusterNum", label = h3("Cluster number"), 
    choices = list(" I01" = 1, 
                   " I02" = 2, 
                   " I03" = 3, 
                   "4" = 4, "5" = 5), 
    selected = 1)
```

Microarray data matrix for 80 experiments with Saccharomyces Cerevisiae
organism extracted from R's `biclust` package.

Sebastian Kaiser, Rodrigo Santamaria, Tatsiana Khamiakova, Martin Sill, Roberto
  Theron, Luis Quintales, Friedrich Leisch and Ewoud De Troyer. (2015). biclust:
  BiCluster Algorithms. R package version 1.2.0.
  http://CRAN.R-project.org/package=biclust

Row
-----------------------------------------------------------------------

### Heatmap
    
```{r}

num <- reactive(as.integer(input$clusterNum))

col = colorRampPalette(c("red", "white", "darkblue"), space="Lab")(10)
renderPlot({
    p = par(mai=c(0,0,0,0))
    heatmapBC(BicatYeast, res, number=num(), xlab="", ylab="",
      order=TRUE, useRaster=TRUE, col=col)
    par(p)
})
```


Row {.tabset}
-----------------------------------------------------------------------

### Parallel Coordinates
    
```{r}
renderPlot(
  parallelCoordinates(BicatYeast, res, number=num())
)
```
   
### Data for Selected Cluster

```{r}
# only display table for values in cluster 4
renderTable(
  BicatYeast[which(res@RowxNumber[, num()]), which(res@NumberxCol[num(), ])]
)
```

此代码的输入如下图所示。我对外观不满意,特别是因为我喜欢使用标有黄色圆圈的灰色区域,或者换句话说我喜欢增加热图并使用这部分。

那么任何人都可以帮助我如何使用这个灰色区域吗?

【问题讨论】:

    标签: r shiny r-markdown


    【解决方案1】:

    只需删除第一个:

    Row
    -----------------------------------------------------------------------
    

    在 Page2 标题下。这会在.sidebar 列之前添加一个空行。

    【讨论】:

      猜你喜欢
      • 1970-01-01
      • 2018-04-26
      • 1970-01-01
      • 1970-01-01
      • 1970-01-01
      • 2010-11-22
      • 2010-09-17
      • 1970-01-01
      • 2017-05-17
      相关资源
      最近更新 更多