小编Edw*_*rek的帖子

如何将2个数据帧中的行交错为完美的riffle shuffle？

示例数据:

df1 <- data.frame(df = 1, id = 1:5, chr = 'puppies')
df2 <- data.frame(df = 2, id = 1:5, chr = 'kitties')

DF1:

  df id     chr
1  1  1 puppies
2  1  2 puppies
3  1  3 puppies
4  1  4 puppies
5  1  5 puppies

DF2:

  df id     chr
1  2  1 kitties
2  2  2 kitties
3  2  3 kitties
4  2  4 kitties
5  2  5 kitties

期望的结果:

      df    id     chr
1      1     1 …

如果我正在创建.rmd报告,这是我的示例YAML,如何将另一个样式表附加到此报告的输出？

---
title: "Example Report"
author: "Cool guy 62"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output:
  html_document:
    theme: null
    css: 'style.css'
---

如何将数据框传递给其参数管道点的函数？

mpg %>% rbind(., . %>% rev())

rep(xi,length.out = nvar)出错:尝试复制'closure'类型的对象

另一个例子:

mpg %>%
  {
    . %>% arrange(manufacturer)
  }

具有以下组件的功能序列:

1. 安排(.,制造商)

使用"函数"提取各个函数.

假设您注意到大因子中的某些值是相似的.巩固这些价值观的更好策略是什么？我在我的分析中使用了两种策略,这两种策略在性能方面似乎相当.1,将合并逻辑放入一个函数并使用sapply,和2,改变因子级别本身.下面我给出了每个例子.

示例1,将合并逻辑放在函数中并使用sapply:

favorite.color <- c('yellow', 'banana', 'canary yellow', 'aqua', 'blue')
messy.vector.of.favorite.colors <- as.factor(sample(favorite.color, 10000, replace=TRUE))

consolidate.colors <- function(color) {
     if(color == 'banana') {
         return('yellow')
     }
     if(color == 'canary yellow') {
         return('yellow')
     }
     if(color == 'aqua') {
         return('blue')
     }
     else {
         return(color)
     }
}

clean.colors <- as.factor(sapply(as.character(messy.vector.of.favorite.colors), consolidate.colors, USE.NAMES=FALSE))
# Gives factor vector with two levels: blue, yellow

例2,直接改变因子标签本身:

favorite.color <- c('yellow', 'banana', 'canary yellow', 'aqua', 'blue')
messy.vector.of.favorite.colors <- as.factor(sample(favorite.color, 10000, replace=TRUE))

working.vector <- messy.vector.of.favorite.colors
levels(working.vector)[levels(working.vector) == …