小编Cet*_*ttt的帖子

我正在尝试将框的背景内容颜色从白色更改为＃222d32（或任何自定义颜色），但是使用background参数时出现错误

validateColor（background）中的错误：无效的颜色：＃222d32。有效颜色为：红色，黄色，水绿色，蓝色，浅蓝色，绿色，海军蓝色，蓝绿色，橄榄色，石灰，橙色，倒挂金钟，紫色，栗色，黑色。

代码如下：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
        fluidRow(
            box(width = 6, title = "test", status = "primary", solidHeader = TRUE, background = '#222d32',
                "Box content"
            )
        )
    )
)


server <- function(input, output) {}

shinyApp(ui, server)

我也曾尝试创建一个自定义包装器来捕获<div>和修改它，但是没有成功。代码如下：

library(shiny)
library(shinydashboard)

box_customBackground <- function(box_object, color = NULL){

    new_color_class <- paste0('<div class="box box-solid ', color ,'">')

    box_modify <- gsub('<div class="box">', new_color_class, box_object)

    box_html <- HTML(box_modify)

    return(box_html)
}


ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
        fluidRow(
            box_customBackground(box_object …

嗨，我想在我的 Rmarkdown 文件的一侧添加一个页面导航。如果它看起来像这个页面上的侧边栏就好了。

---
title: "My Title"
author: "My Name"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output: 
  html_document:
    theme: united
    highlight: tango
    code_folding: hide
    df_print: paged
    toc: true
    toc_depth: 2

---
# Section 1
abc
## Section 1.1
abcabc
# Section 2
abcabcabc

有人可以帮忙吗？

我下载了最新版本的 Rstudio 以便能够自定义主题。

我按照这个教程安装了熊猫主题： https://towardsdatascience.com/customize-your-rstudio-theme-914cca8b04b1

主题应该是这样的：

它有效，但有一个问题：函数没有变成粉红色：

其他一切都好，但我没有办法获得彩色功能。你能帮我找出原因吗？

抱歉，我无法在帖子中发布图片，因为我是 stackoverflow 的新手。

我正在处理一个大型数据集（大约40列），我需要按月汇总不同列的值，并对当月内的值求平均值。数据集看起来像这样。

dd <-
mo  yr Na   NH4 NO2
1 2009 0.4  N/A N/A
1 2009 0.2  0.1 N/A
2 2009 0.5  0.6 0.4
2 2009 0.7  0.2 0.1

我用过

dd.agg=aggregate(.~mo+yr, dd, FUN=mean)

来创建一个新的数据集，但是由于我在NO2列中有一些N / A数据（并且由于采样过程中的某些问题，所以我无法将其删除或将其更改为0），所以整个一月已从dd.agg数据集中删除。我尝试添加na.rm = TRUE，但似乎无济于事。

从本质上讲，我需要R忽略N / A数据的存在。不要将它们视为0（这会影响平均值），而是要从该数据集中获取如下内容

dd.agg <-
mo  yr Na   NH4 NO2
1 2009 0.3  0.1 N/A
2 2009 0.6  0.4 0.25

如果整个月由N / A组成，那么平均值就是N / A值（或一个空单元格，对我来说并不重要，因为我在图中不需要它们），以及当一个月有只需几个N / As，即可得出非N / As值的平均值。我可以逐行执行相同的聚合过程，然后将所有内容手动放入新的数据集中，但是对于40列来说有点痛苦...有什么想法吗？

我有一个混合数据帧、tibble 和空列表的列表。如何在申请bind_rows附加其余数据帧之前删除 tibble 和空列表？

我尝试使用该delete.NULLs功能，但出现错误：

错误：找不到函数“delete.NULLs”

我将以下数据框命名为 cars

Brand      year     mpg        reputation      Luxury
Honda      2010     30            8.5            0.5
Honda      2011     28            8.5            0.6
Dodge      2010     20            6.5            0.6
Dodge      2011     23            7.0            0.7
Mercedes   2010     22            9.5            NA
Mercedes   2011     25            9.0            NA

我想用随机产生的实数替换NA之间 0.9 and 1.0

我正在尝试以下操作，但是它用数字0.9代替了NA。

cars[is.na(cars)] <-  sample(0.9:1, sum(is.na(cars)),replace=TRUE)

数据表将如下所示：

Brand      year     mpg        reputation      Luxury
Honda      2010     30            8.5            0.5
Honda      2011     28            8.5            0.6
Dodge      2010     20            6.5            0.6
Dodge      2011     23            7.0            0.7
Mercedes   2010     22            9.5           *0.91*
Mercedes   2011     25 …

我目前正在 R 中进行一个文本挖掘项目，其中包含一个列表列表。我想删除我的列表列表中的所有空字符串和 NA 值，但我还没有找到方法。我的数据如下所示：

x <- list(c("", "alteryx", "confirme", "", "", "", "ans", "", ""))

主要列表引用了不同的文本。每个文本都由所有单词的列表组成。所以当我删除一个单词时，它变成了一个空字符串。我只想明确地删除它，从而减少我的文本长度。

我尝试了很多不同的东西，例如

stri_remove_empty_na(c(demande2[20]))这给了我错误Warning message: In stri_enc_toutf8(x) : argument is not an atomic vector; coercing并将我的文本转换为： stri_remove_empty_na的结果

所以请我需要你的帮助（我很抱歉我的英语，我是法国人:)）

提前致谢

我有一个data.frame这样的：

dat <- data.frame("ID"=c(rep(1,13),rep(2,5)), "time"=c(seq(1,13),c(seq(1,5))), "value"=c(rep(0,5), rep(1,3), 2, 0, 1, 5, 20, rep(0,2), seq(1:3)))
   ID time value
1   1    1     0
2   1    2     0
3   1    3     0
4   1    4     0
5   1    5     0
6   1    6     1
7   1    7     1
8   1    8     1
9   1    9     2
10  1   10     0
11  1   11     1
12  1   12     5
13  1   13    20
14  2    1     0
15  2    2     0
16 …

我最近使用了purrr包中的每个命令,我不确定它是否按照预期的方式工作:

library(tidyverse)

a <- list(1:3, "a", NA)
every(a, is.na)
[1] FALSE

b <- list(1:10)
every(b, is.na)
[1] TRUE

根据我的理解,每次检查列表中的每个元素是否满足某个条件,在我的情况下,它检查组件是否为NA.在第一种情况下,它正确地返回false,因为只有第三个组件是NA.但在第二种情况下,没有元素等于NA,它返回TRUE.这可能是个错误吗？

R有许多可用的Markdown 主题。

我想查看默认可用的主题列表以及我已安装的主题。有R命令可以实现这个功能吗？