小编Mok*_*ire的帖子

这是我的代码：

df <- df %>%
  filter(conditions x, y, and z) %>%
  str_replace_all(string, pattern, replacement)

这样做时，我收到错误：

Error in str_replace_all(., string, pattern, replacement) :
  unused argument("")

我知道代码在复制方面一点用处都没有，正如我之前所说，我不能共享数据，但假设输入是正确的（我已经通过改变变量来让它工作）。替换是一个空字符串，但据我所知，这应该无关紧要。

我只是好奇为什么 str_replace_all 在管道中不起作用，有人有任何见解吗？

我希望沿着“可用图层”的线条向图层控制框添加标题。

我的搜索使我只找到了一个相关结果：

• 使用 JS 完全相同的问题。不清楚怎么翻译

我的代码：

map %>% leaflet() %>%
  addProviderTiles(provider = "CartoDB") %>%
  # Group 1 Polygons
  addPolygons(data = map[!is.na(map$var),] ,weight =1, 
              color = ~g1_pal(g1), fillOpacity = .6,
              group = "Group 1",
              # add labels
              label = ~labels,
              # highlight polygons on hover
              highlight = highlightOptions(weight = 5, color = "white",
                                           bringToFront = TRUE)) %>%
  # Group 2
  addPolygons(data = map[!is.na(map$var2),], weight =1, 
              color = ~g2_pal(g2), fillOpacity = .6,
              group = "Group 2",
              # add labels that display mean …

我找不到这个问题的确切答案,所以我希望我不会重复一个问题.

我有一个数据帧如下

groupid  col1  col2  col3  col4
   1      0     n     NA     2    
   1      NA    NA    2      2

我想用此传达的是,存在重复的ID,其中总信息分布在两行中,并且我想组合这些行以将所有信息集成到一行中.我该怎么做？

我试图使用group_by和paste但最终会使数据变得更加混乱(例如在col4中获得22而不是2)并且sum()不起作用,因为有些列是字符串而那些不是分类变量并总结他们会改变信息.

在填写NA时,我可以做些什么来折叠行并保持一致的数据不变？

编辑:

抱歉,所需的输出如下:

groupid  col1  col2  col3  col4
   1      0     n     2     2

使用is_doublewith 时select_if，返回值包括 lubridatedate数据类型的列。为什么是这样？

这是一个使用该today()函数的简单示例。

library(tidyverse)
library(lubridate)

mtcars %>% 
    as_tibble() %>% # Convert to tibble
    mutate(today = today()) %>% # Create a date column
    select_if(is_double) # Select double columns

输出：

# A tibble: 32 x 12
     mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb today     
   <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <date>    
 1  21       6  160    110  3.9   2.62  16.5     0     1     4     4 2020-06-25 …