作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
有没有办法将变量的值分配给 plyr 中的结果列名?
所以在这段代码中...
column_name <- 'total'
df <- data.frame(a=c('a','b'), b=c(1,2))
ddply(df, .(a), summarise, column_name=sum(b))
a
组成的数据框。和
column_name
.但是,我想得到的是变量
a
和
total
,其中
total
由变量的值动态分配,因为实际上,我想在循环中处理它,我不能直接在 ddply 函数中指定它。
ddply(df, .(a), summarise, get(column_name)=sum(b))
最佳答案
有几种方式:
> column_names <- c('total', 'latot')
> df <- data.frame(a=c('a','b'), b=c(1,2))
>
> # temporal variable
> for (cn in column_names) {
+ ret <- ddply(df, .(a), summarise, ..x=sum(b))
+ ret <- rename(ret, c(..x = cn))
+ print(ret)
+ }
a total
1 a 1
2 b 2
a latot
1 a 1
2 b 2
>
> # ept solution
> for (cn in column_names) {
+ print(eval(parse(text = paste0("ret <- ddply(df, .(a), summarise,", cn, "=sum(b))"))))
+ }
a total
1 a 1
2 b 2
a latot
1 a 1
2 b 2
>
> # dynamic generation of call
> for (cn in column_names) {
+ args <- alist(df, .(a), summarize, sum(b))
+ names(args) <- c("", "", "", cn)
+ print(do.call("ddply", args))
+ }
a total
1 a 1
2 b 2
a latot
1 a 1
2 b 2
关于r - 如何将变量的值分配给 plyr 中的列名?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16454943/
我是一名优秀的程序员,十分优秀!