dplyr 0.7 -将分组变量指定为字符串
dplyr 0.7 -将分组变量指定为字符串
提问于 2017-08-01 15:57:43
我有一些指定为字符串的变量名(例如，来自Shiny app的输入)，我想在我的dplyr和ggplot2代码中使用它们，就像它们是变量一样。
我通过反复试验让它工作，但我觉得肯定有更好的方法。执行这些操作的更好方法是什么？
library(rlang)
library(ggplot2)
library(dplyr)
someString <- "g1"
df <- tibble(
g1 = c(1, 1, 2, 2, 2),
g2 = c(1, 2, 1, 2, 1),
a = sample(5),
b = sample(5)
)
my_summarise <- function(df, group_var) {
print(group_var)
df %>%
group_by(!!group_var) %>%
summarise(a = mean(a))
}
my_plot <- function(df, group_var) {
print(group_var)
ggplot(data = df %>%
group_by(!!group_var) %>%
summarise(a = mean(a)),
aes_string(x = quo_name(group_var), y = "a")) +
geom_bar(stat = "identity")
}
my_summarise(df, quo(UQ(sym(someString))))
my_plot(df, quo(UQ(sym(someString))))回答 2
Stack Overflow用户
回答已采纳
发布于 2017-08-01 16:56:04
这两个选项中的任何一个都可能更简单：
my_summarise <- function(df, group_var) {
print(group_var)
df %>%
#Either works
group_by_at(.vars = group_var) %>%
#group_by(!!sym(group_var)) %>%
summarise(a = mean(a))
}
my_summarise(df,someString)
my_plot <- function(df, group_var) {
print(group_var)
ggplot(data = df %>%
group_by_at(.vars = group_var) %>%
#group_by(!!sym(group_var)) %>%
summarise(a = mean(a)),
aes_string(x = group_var, y = "a")) +
geom_bar(stat = "identity")
}
my_plot(df, someString)...where您可以使用group_by或group_by_at。
Stack Overflow用户
发布于 2017-08-01 16:52:05
使用my_summarise(df, as.name(someString))进行呼叫怎么样？
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/45442513
复制相关文章
相似问题
测量CPU/内存消耗
测量make run的内存消耗
线程内存消耗
测量顶级内存消耗(linux程序)
如何测量webview消耗的内存量？
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
