如何解决加入后使用tidyeval列
我有一个将数据连接在一起的函数,然后应该取一列的平均值。
在这里我可以合并数据,但是我不确定如何以足够通用的方式对x.x
和x.y
列求平均值
library(dplyr)
a <- tibble(id = 1:3,x = 4:6)
b <- tibble(id = 1:3,x = 16:18)
join_then_average <- function(df1,df2,var) {
full_join(df1,by = "id") # i want to average x.x,and x.y
}
join_then_average(a,b)
#> # A tibble: 3 x 3
#> id x.x x.y
#> <int> <int> <int>
#> 1 1 4 16
#> 2 2 5 17
#> 3 3 6 18
从概念上讲,我想写一些类似的东西:
mutate({{var}} := rowMeans(c({{var}}.x,{{var}}.y),na.rm = T)
但这不起作用。我不确定解决此问题的最佳方法。
解决方法
您可以选择其中包含setwd("path to files")
library(pdftools)
files <- list.files(pattern="pdf$",full.names=TRUE)
filestext <- lapply(files,pdf_text)
filestextDF <- as.data.frame(matrix(filestext,ncol =2,byrow = F))
names(filestextDF) <- c("Document","Text")
的列并取var
。
rowMeans
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。