Question

我尝试使用高级图包中的仪表，表格，图表，ggplot2包中的图表，图像等来构建包含多个页面和各种不同元素的HTML仪表板。

我试图改变某些元素的背景颜色。我尝试使用图表和表格的内置参数来尝试这样做，我尝试使用div并设置style = background-color：#dddddd（灰色的十六进制代码我想尝试使用）并且我尝试过使用CSS样式：

<style type="text/css">

.chart-title {  /* chart_title  */
   background-color: #dddddd;


</style>

但是，我对CSS并不熟悉，也无法找到正确的替换为＆＃34; .chart-title＆＃34;得到我需要的东西。我尝试使用＆＃34; body＆＃34;，＆＃34; h3＆＃34;，＆＃34; header＆＃34;，＆＃34; box＆＃34;。我设法改变了一些颜色，但不是我需要它们改变的地方。

我粘贴在我的仪表板下方，并在结果的相应打印屏幕上粘贴。

HOME
=======================================================================

Row {data-height=400}
-------------------------------------------------------------------------------------------------------------


### Productivity {.no-title}

```{r fig.width=1.5}
df1<-data.frame(Factory = c('<img src="seta4.png" height=60></img>', "150t/h"))

div(datatable(df1, rownames=FALSE, options = list(ordering=FALSE, scrollY = "150px", scrollX=FALSE, dom='t', autowidth=TRUE,
                                              #columnDefs = list(list(width='5px', targets=c(1,2,3))), 
                                              columnDefs=list(list(className='dt-center', targets=c(0)))), escape = FALSE) %>% 
                                              formatStyle(names(df1), textAlign = 'center' ) %>% 
                                              formatStyle(names(df1), backgroundColor='rgb(221,221,221)', color='rgb(0,0,0)') %>%
                                              formatStyle(names(df1), `font-size` ='15px'),
                                              style="font-size:12px; font-weight:Bold; background-color: #dddddd")

```




### Occupation {.no-title}

```{r fig.width=2}
rate <- ocupacao[1]
div(gauge(rate, min = 0, max = 100, symbol = '%', gaugeSectors(
  success = c(0, 39), warning = c(40, 79), danger = c(80, 100)
)), style="background-color: #dddddd")
```


### Ferro {.no-title}

```{r fig.width=3}
df1<-data.frame(Ferroviario = c('<img src="trem.png" height=60></img>', "30Kt"))



div(datatable(df1, rownames=FALSE, options = list(ordering=FALSE, scrollY = "150px", scrollX=FALSE, dom='t', autowidth=TRUE,
                                              #columnDefs = list(list(width='5px', targets=c(1,2,3))), 
                                              columnDefs=list(list(className='dt-center', targets=c(0)))), escape = FALSE) %>% 
                                              formatStyle(names(df1), textAlign = 'center' ) %>% 
                                              formatStyle(names(df1), backgroundColor='rgb(221,221,221)', color='rgb(0,0,0)') %>%
                                              formatStyle(names(df1), `font-size` ='15px'),
                                              style="background-color: #dddddd; font-size:12px, font-weight:Bold")

```

Dashboard

正如你所看到的，我没有得到我想要的结果。我希望顶行中的方框具有所有灰色背景，但我能得到的最多只是背景的一部分是灰色的，边缘/剩余部分仍然是白色。

有没有办法做到这一点？

如何更改框的颜色背景（flexdashboard的3级标题/构建块）？

0 个答案: