RMarkdown 中的设置区域
Setting area in RMarkdown
我正在尝试在 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(), ])]
)
```
此代码的输入如下图所示。我对外观不满意,尤其是因为我喜欢使用标有黄色圆圈的灰色区域,或者换句话说,我喜欢增加热图并使用这部分。
那么谁能帮我如何使用这个灰色区域?
只需删除第一个:
Row
-----------------------------------------------------------------------
在第 2 页标题下。这会在 .sidebar
列之前添加一个空行。
我正在尝试在 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(), ])]
)
```
此代码的输入如下图所示。我对外观不满意,尤其是因为我喜欢使用标有黄色圆圈的灰色区域,或者换句话说,我喜欢增加热图并使用这部分。
那么谁能帮我如何使用这个灰色区域?
只需删除第一个:
Row
-----------------------------------------------------------------------
在第 2 页标题下。这会在 .sidebar
列之前添加一个空行。