在summarize_all dplyr结构内部使用的函数中的访问列名
，可以使用以下方式：
- 使用quo()函数：quo()函数可以将列名转换为一个引用对象，然后在函数中使用!!来解引用该对象。例如，假设要计算某一列的平均值，可以使用以下代码：
library(dplyr)
data <- data.frame(col1 = c(1, 2, 3), col2 = c(4, 5, 6))
col_name <- quo(col1)
result <- data %>% summarize(avg = mean(!!col_name))在上述代码中，quo(col1)将列名"col1"转换为一个引用对象，然后使用!!来解引用该对象，从而在mean()函数中访问该列。
- 使用enquo()函数：enquo()函数可以将列名转换为一个引用对象，并且可以直接在函数中使用引用对象。例如，假设要计算多个列的平均值，可以使用以下代码：
library(dplyr)
data <- data.frame(col1 = c(1, 2, 3), col2 = c(4, 5, 6))
col_names <- c("col1", "col2")
result <- data %>% summarize_all(~mean(!!enquo(.)))在上述代码中，enquo(.)将列名转换为引用对象，并直接在mean()函数中使用引用对象。使用~表示对每个列名应用相同的函数。
总结：在summarize_all dplyr结构内部使用的函数中访问列名，可以使用quo()函数将列名转换为引用对象，并使用!!来解引用该对象；也可以使用enquo()函数将列名转换为引用对象，并直接在函数中使用引用对象。
相关·内容
我正在试图弄清楚如何创建一个用户定义的函数来对数据帧中的一系列列执行计算，并将答案作为附加列添加到同一数据帧中。为了简单起见，我一直使用的测试示例是计算从一年到下一年的百分比增长，但目标是能够创建更复杂的计算，这些计算过于繁琐和重复，无法手动计算。
我一直在使用的练习数据是...
a <- c(10, 12)
b <- c(11, 9)
df <- t(data.frame(a, b))
df <- data.frame(df)
colnames(df) <- c(2001, 2002))
它看起来就像..。
2
浏览 5提问于2019-08-14得票数 0
回答已采纳
2回答
整洁的评价范围是否有限制？
r、dplyr、rlang、tidyeval
我试图使用整洁的评估，正如中定义的那样。
但是，在mutate()中的函数调用过程中，我得到了一个错误。这些变量似乎没有像我预期的那样被评估。
library(dplyr)
library(tibble)
library(tidyr)
myCor <- function(col1, col2) {
col1 <- enquo(col1)
col2 <- enquo(col2)
mtcars %>%
rownames_to_column("vehicle") %>%
select(vehicle, !!col1, !!
浏览 0提问于2018-05-11得票数 2
回答已采纳
2回答
用dplyr动态访问列
r、dplyr
我正在尝试使用dplyr动态获取列的平均值。我从这个网站了解到，这应该是可能的，具体如下：
library(dplyr)
df <- data.frame(column=c(1,2,3))
column_string <- "column"
variable <- enquo(column_string)
print(variable)
输出：
<quosure>
expr: ^"column"
env: empty
然后：
df %>% summarise(mean=mean(!! variable))
输出：
浏览 0提问于2018-12-17得票数 0
回答已采纳
2回答
我有数据df，如下所示：
df <- data.frame(x = c("A", "A", "B", "B"), y = 1:4)
我有一个函数，它可以找到y按x分组的平均值。
generateVarMean <- function(df, x, y) {
mean.df <- df %>%
select(x, y) %>%
group_by(x) %>%
dplyr::summarise(variable.mean = mean(y, na.rm = TRUE))
浏览 6提问于2017-05-10得票数 2
回答已采纳
1回答
R:变异不会在自写函数中生成新列
r、dplyr
我想写一个函数来计算前两列之间的差异，然后取它们的平均值。 errors = function(data, true, pred){
library(dplyr)
mutate(data, Error = data$pred - data$true)
mean_err = mean(data$Error)
return(mean_err)
} 然而，这个函数并没有像我预期的那样工作。例如，对于像这样的数据源： true = rnorm(10, 2, 20)
pred = rnorm(10, 1, 20)
dt = data.frame(cbind(t
浏览 15提问于2019-02-23得票数 2
回答已采纳
1回答
为列名传递变量？
r、variables、dplyr
例如，假设有一个函数应用了一些DPLYR函数，但不能期望传递给该函数的数据集具有相同的列名。
对于我所指的一个简化的例子，假设您有一个数据框架，arizona.trees：
arizona.trees
group arizona.redwoods arizona.oaks
A 23 11
A 24 12
B 9 8
B 10 7
C 88 22
和另一个非常相似的数据
浏览 3提问于2017-04-26得票数 3
回答已采纳
2回答
将包含的{{}数据变量转换为字符
r、dplyr、tidyr、rlang
我一直在研究一个涉及整洁评估的问题，诚然，我是个新手。我有一个简单的函数，它使用来自dplyr和tidyr的summarize和pivot_wider来生成应急表，但是我无法将其从tibble导入到column_to_rowname中。
library(tidyverse)
#Function to produce contingency table
countTable1 <- function(d,col1,col2){ #This function works correctly
d %>% group_by({{col1}},{{col2}}) %>% sum
浏览 2提问于2020-11-11得票数 1
2回答
在另一个函数中使用dplyr函数
r、dplyr
我一直在努力解决这个问题，这个问题与非常相似。不知何故，我无法将问题中的解决办法转化为我自己的问题。
首先，我将创建一个示例数据框架：
test.df <- data.frame(col1 = rep(c('a','b'), each=5), col2 = runif(10))
str(test.df)
下面的函数应该根据"groupvar“的组创建一个平均为"statvar”的新数据框架。
test.f <- function(df, groupvar, statvar) {
df %>%
group_by_(g
浏览 4提问于2015-10-04得票数 0
回答已采纳
1回答
dplyr-0.6.0编程取消引用
r、dplyr、nse
我试图通过任意组为summarise()任意变量编写一个简单的包装器，现在我已经获得了，但是对于如何用多个值撤消参数感到困惑(再次)。
我现在有以下功能..。
table_summary <- function(df = .,
id = individual_id,
select = c(),
group = site,
...){
## Quote all
浏览 3提问于2017-05-26得票数 5
1回答
自定义列名作为稳定R包函数中的参数
r、function、tidyverse、stability
我开发了stability R软件包，可以从CRAN安装。
install.packages("stability")
但是，我很难将自定义列名作为函数参数。下面是add_anova函数的一个示例
library(stability)
data(ge_data)
YieldANOVA <-
add_anova(
.data = ge_data
, .y = Yield
, .rep = Rep
, .gen = Gen
, .env = Env
)
YieldANOVA
以上代码运行良好。但是，当我更改da
浏览 0提问于2018-07-08得票数 2
回答已采纳
3回答
在r中创建二元运算符
r、data.table、binary-operators
我需要一些帮助来创建一种特殊的减法。我有一个数据表x，我必须减去两列，比如a和b。但是，这两列可能都不存在。如果列不存在，则应将其在减法中的值设置为零。
到目前为止，我已经通过尝试定义一个新的减法运算符%-%来解决这个问题
因此，例如，如果为x = data.table(a = 5, b = 2)，则a %-% b应为3，而a %-% d应为5。
我试着定义这个减法运算符，如下所示。然而，由于某些原因，我的减法总是得到零！有人能帮我理解我做错了什么吗?我该如何纠正我的代码？
library(data.table)
x = data.table(a = floor(10 * runif(5)),
浏览 6提问于2018-05-06得票数 3
2回答
函数参数；传递没有引号的变量名。
r、dplyr
这个问题与这个问题相似：
我有一个功能：
optimal_cutpoint <- function(data, ..., choice){
selection <- dplyr::select(data, ...)
choice <- data[[choice]]
# do something with those two objects
}
我要使用的函数有以下方式：
choicedata <- data.frame(PTV.A = c(0, 10, 5, 4, 7, 1, 2, 0, 0, 10),
PTV.B
浏览 1提问于2018-12-04得票数 5
回答已采纳
1回答
将变量作为参数传递给plot_ly函数
r、plotly
我想要创建一个函数，根据传递给它的参数创建不同类型的情节。如果我创建以下数据
library(plotly)
#### test data
lead <- rep("Fred Smith", 30)
lead <- append(lead, rep("Terry Jones", 30))
lead <- append(lead, rep("Henry Sarduci", 30))
proj_date <- seq(as.Date('2017-11-01'), as.Date('2017-11-30&
浏览 1提问于2017-12-11得票数 6
回答已采纳
3回答
使用列名向量替换NA
r、dplyr、tidyr
我有一个包含NA的列的数据框架，我用replace_na替换它。问题是这些列名将来可能会改变，所以我想把这些列名放在一个向量中，然后在replace_na函数中使用这个向量。我不想一蹴而就地改变整个数据帧，只是指定的列。当我按下面的方式尝试时，代码会运行，但是它不会改变数据框架。有人能建议修改代码吗？
library(tidyverse)
col1<-c(9,NA,25,26,NA,51)
col2<-c(9,5,25,26,NA,51)
col3<-c(NA,3,25,26,NA,51)
col4<-c(9,1,NA,26,NA,51)
data<-data.
浏览 0提问于2021-06-23得票数 1
回答已采纳
5回答
将data.frame列名传递给函数
r、dataframe、r-faq
我正在尝试编写一个函数来接受data.frame (x)和来自它的column。该函数对x执行一些计算，然后返回另一个data.frame。我坚持使用最佳实践方法将列名传递给函数。
下面的两个最小示例fun1和fun2产生了预期的结果，能够在x$column上执行操作，并以max()为例。然而，两者都依赖于看似(至少对我而言)不雅
调用substitute()和可能的eval() 需要将列名作为字符向量传递。
fun1 <- function(x, column){
do.call("max", list(substitute(x[a], list(a = col
浏览 65提问于2010-04-15得票数 145
回答已采纳
1回答
函数中列名称的dplyr
r、function、dplyr
无法理解如何使用dplyr R包在函数中使用列名。可复制的例子如下：
数据
set.seed(12345)
Y <- rnorm(10)
Env <- paste0("E", rep(1:2, each = 5))
Gen <- paste0("G", rep(1:5, times = 2))
df1 <- data.frame(Y, Env, Gen)
工作在函数之外
library(dplyr)
df1 %>%
dplyr::group_by(E, G) %>%
dplyr::summarize(mea
浏览 2提问于2018-02-16得票数 1
回答已采纳
3回答
将重复元素和整个数据帧保持在r中。
r、dplyr
我希望根据第一列中的重复元素删除行，但也希望保留第二列。与第二列中的重复元素相关联的任何值。
输入：
df = data.frame(col1 = c("a", "a", "a", "b", "b", "c"), col2 = 1:6)
预期产出：
col1 col2
a 1
b 4
或,
col1 col2
a 2
b 5
等。
到目前为止，使用以下命令进行了尝试，但没有保留整个数据帧：
df[(duplicated(df$col1)),]
浏览 0提问于2017-01-20得票数 1
回答已采纳
2回答
向R中的表dataframe添加一个均值列
r、dplyr
我有一个数据帧，例如： COL1 VALUE1 VALUE2
1 A,A 1 5
2 A,A,B 1 3
3 C 1 1
4 D 1 2
5 D 1 2
6 A,A 1 10
7 A,B,A 1 2 我可以成功地删除COL1中的重复项，并使用以下命令计算COL1中不同重复项的数量： as.data.frame(table(tab$COL1)) %>%
group_by(Var1 = sapply(strspl
浏览 144提问于2021-08-06得票数 1
回答已采纳
2回答
我给出了三个参数，输入df、想要清理的列、希望添加清理名称的新列。我哪里出问题了？
r、regex、gsub
library(dplyr)
clean_name <- function(df,col_name,new_col_name){
#remove whitespace and common titles.
df$new_col_name <- mutate_all(df,
trimws(gsub("MR.?|MRS.?|MS.?|MISS.?|MASTER.?","",df$col_name)))
#remove any chunks of text where a number is present
浏览 1提问于2019-03-22得票数 0
回答已采纳
我在一个数据框架中有两列。基于第1列中的唯一id，我希望创建一个新列，该列具有与column1中的唯一id相对应的所有值。
例如：
col1<-c("x", "y", "x", "z", "x", "z")
col2<-c("NY","UT","CA","SA", "SW", "GR")
col3<-c(1, 5, 7, 4, 7, 2)
df<-d
浏览 0提问于2019-08-17得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
活动推荐
腾讯云开发者
