小编dat*_*ter的帖子

如果我在管道中使用重新编码,我收到一个错误:

df <-  df %>%
  recode(unit, .missing="g")

UseMethod("recode")中的错误:没有适用于"recode"的方法应用于类"c('tbl_df','tbl','data.frame')的对象"

如果我将它拉出管道,它可以正常工作:

df$unit <- recode(df$unit, .missing="g")

有什么想法吗？如果可能的话,我想留在管道里.

当我编织包含通过 purrr:map 函数获得的多个绘图的文档时，我在每个包含不需要的列表索引信息的绘图幻灯片之间获得文本幻灯片（请参阅图像幻灯片 2、4 和 6）。我想删除这些并且只有情节。

• 我已经尝试过results = "hide"并results = FALSE在标题中。这些只返回一个图而不是多个图，并且文本仍然存在。
• 我尝试按照 此处的建议在我的代码中添加无形（） 。我看不出有什么区别。

我怎样才能删除这些并只有三张幻灯片，其中三张图没有文字？

---
title: "Reprex"
output: powerpoint_presentation
---

```{r include=FALSE}
library(tidyverse)
```

```{r echo=FALSE, results = FALSE}
ys <- c("mpg","cyl","disp")
ys %>% map(function(y) 
    invisible(ggplot(mtcars, aes(hp)) + geom_point(aes_string(y=y))))
```

我确定我在这里遗漏了一些明显的东西。我想将行号添加到汇总表中，但 dplyr 根据我之前的分组循环/重复行号。我以为我已经取消了它的分组，但显然我遗漏了一些东西。我希望索引中的每一行都有一个唯一的行号。

#Make sample data
    Species <- c("A", "B", "C","D")
    Animal <- c(1:100)
    Day <-c(1:10)
    P <- sample(1:100, 300, replace = TRUE)
    F <- sample(1:100, 300, replace = TRUE)
    C <- sample(1:100, 300, replace = TRUE)
    df <- data.frame(Species,Animal,Day, P, F, C)

 #Summarize by columns
    by_day <- df %>%
      group_by(Species, Animal, Day) %>%
      summarize(ptot = sum(P), ftot = sum(F), ctot = sum(C))

 #Here's where I suspect the problem lies    
    ungroup(by_day)

 #This line produces repeating id numbers, where as I …

我想从我的数据集中提取一个或多或少在中间的实际日期. median()如果我有奇数个测量值,那么工作正常.但是,如果存在偶数个测量值,则会对中间两个进行平均,这会产生不在我的数据集中的日期.

对于以下示例:

mydates <- as.Date(c("2016-02-18", "2016-03-30", "2016-05-31", "2016-08-19"))
median(mydates)

...我可以做些什么来让R返回"2016-03-30"或"2016-05-31",而不是"2016-4-30",这不在我的原始数据集中？

只要它是一致的,我不在乎它是早期还是后一个日期.