Ufdjrw

If I score a critical hit on an 18 or higher, what are my chances of getting a critical hit if I roll 3d20?

What is this sharp, curved notch on my knife for?

Can a flute soloist sit?

Why does the nucleus not repel itself?

Geography at the pixel level

Why don't hard Brexiteers insist on a hard border to prevent illegal immigration after Brexit?

What is the light source in the black hole images?

For what reasons would an animal species NOT cross a *horizontal* land bridge?

Button changing its text & action. Good or terrible?

How much of the clove should I use when using big garlic heads?

"as much details as you can remember"

Old scifi movie from the 50s or 60s with men in solid red uniforms who interrogate a spy from the past

Does adding complexity mean a more secure cipher?

How did passengers keep warm on sail ships?

Why doesn't UInt have a toDouble()?

Cooking pasta in a water boiler

Does HR tell a hiring manager about salary negotiations?

Straighten subgroup lattice

Why doesn't shell automatically fix "useless use of cat"?

Is it ethical to upload a automatically generated paper to a non peer-reviewed site as part of a larger research?

Can we generate random numbers using irrational numbers like π and e?

Is one supposed to eat the zero'ah (shank bone) from the Seder plate?

Star Trek - X-shaped Item on Regula/Orbital Office Starbases

Is it possible for absolutely everyone to attain enlightenment?

group_by by a vector of characters using tidy evaluation semantics

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty height:90px;width:728px;box-sizing:border-box;

1

I used to do it, using group_by_

library(dplyr)
group_by <- c('cyl', 'vs')
mtcars %>% group_by_(.dots = group_by) %>% summarise(gear = mean(gear))

but now group_by_ is deprecated. I don't know how to do it using the tidy evaluation framework.

r dplyr rlang nse

share|improve this question

edited Sep 9 '18 at 15:44

PoGibas

17.8k154779

asked Jul 8 '17 at 9:03

danilinaresdanilinares

4771417

add a comment | 

1

I used to do it, using group_by_

library(dplyr)
group_by <- c('cyl', 'vs')
mtcars %>% group_by_(.dots = group_by) %>% summarise(gear = mean(gear))

but now group_by_ is deprecated. I don't know how to do it using the tidy evaluation framework.

r dplyr rlang nse

share|improve this question

edited Sep 9 '18 at 15:44

PoGibas

17.8k154779

asked Jul 8 '17 at 9:03

danilinaresdanilinares

4771417

add a comment | 

I used to do it, using group_by_

library(dplyr)
group_by <- c('cyl', 'vs')
mtcars %>% group_by_(.dots = group_by) %>% summarise(gear = mean(gear))

but now group_by_ is deprecated. I don't know how to do it using the tidy evaluation framework.

r dplyr rlang nse

share|improve this question

edited Sep 9 '18 at 15:44

PoGibas

17.8k154779

asked Jul 8 '17 at 9:03

danilinaresdanilinares

4771417

library(dplyr)
group_by <- c('cyl', 'vs')
mtcars %>% group_by_(.dots = group_by) %>% summarise(gear = mean(gear))

share|improve this question

edited Sep 9 '18 at 15:44

PoGibas

17.8k154779

asked Jul 8 '17 at 9:03

danilinaresdanilinares

4771417

share|improve this question

edited Sep 9 '18 at 15:44

PoGibas

17.8k154779

asked Jul 8 '17 at 9:03

danilinaresdanilinares

4771417

edited Sep 9 '18 at 15:44

PoGibas

17.8k154779

edited Sep 9 '18 at 15:44

PoGibas

17.8k154779

asked Jul 8 '17 at 9:03

danilinaresdanilinares

4771417

asked Jul 8 '17 at 9:03

danilinaresdanilinares

4771417

2 Answers
2

active

oldest

votes

3

There is group_by_at variant of group_by:

library(dplyr)
group_by <- c('cyl', 'vs')
mtcars %>% group_by_at(group_by) %>% summarise(gear = mean(gear))

Above it's simplified version of generalized:

mtcars %>% group_by_at(vars(one_of(group_by))) %>% summarise(gear = mean(gear))

inside vars you could use any dplyr way of select variables:

mtcars %>%
 group_by_at(vars(
 one_of(group_by) # columns from predefined set
 ,starts_with("a") # add ones started with a
 ,-hp # but omit that one
 ,vs # this should be always include
 ,contains("_gr_") # and ones with string _gr_
 )) %>%
 summarise(gear = mean(gear))

share|improve this answer

answered Mar 8 at 10:54

MarekMarek

39.4k1274107

add a comment | 

8

Transform the character vector into a list of symbols and splice it in

df %>% group_by(!!! syms(group_by))

share|improve this answer

answered Jul 10 '17 at 8:40

lionellionel

3,1671721

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f44984428%2fgroup-by-by-a-vector-of-characters-using-tidy-evaluation-semantics%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

3

There is group_by_at variant of group_by:

library(dplyr)
group_by <- c('cyl', 'vs')
mtcars %>% group_by_at(group_by) %>% summarise(gear = mean(gear))

Above it's simplified version of generalized:

mtcars %>% group_by_at(vars(one_of(group_by))) %>% summarise(gear = mean(gear))

inside vars you could use any dplyr way of select variables:

mtcars %>%
 group_by_at(vars(
 one_of(group_by) # columns from predefined set
 ,starts_with("a") # add ones started with a
 ,-hp # but omit that one
 ,vs # this should be always include
 ,contains("_gr_") # and ones with string _gr_
 )) %>%
 summarise(gear = mean(gear))

share|improve this answer

answered Mar 8 at 10:54

MarekMarek

39.4k1274107

add a comment | 

3

There is group_by_at variant of group_by:

library(dplyr)
group_by <- c('cyl', 'vs')
mtcars %>% group_by_at(group_by) %>% summarise(gear = mean(gear))

Above it's simplified version of generalized:

mtcars %>% group_by_at(vars(one_of(group_by))) %>% summarise(gear = mean(gear))

inside vars you could use any dplyr way of select variables:

mtcars %>%
 group_by_at(vars(
 one_of(group_by) # columns from predefined set
 ,starts_with("a") # add ones started with a
 ,-hp # but omit that one
 ,vs # this should be always include
 ,contains("_gr_") # and ones with string _gr_
 )) %>%
 summarise(gear = mean(gear))

share|improve this answer

answered Mar 8 at 10:54

MarekMarek

39.4k1274107

add a comment | 

There is group_by_at variant of group_by:

library(dplyr)
group_by <- c('cyl', 'vs')
mtcars %>% group_by_at(group_by) %>% summarise(gear = mean(gear))

Above it's simplified version of generalized:

mtcars %>% group_by_at(vars(one_of(group_by))) %>% summarise(gear = mean(gear))

inside vars you could use any dplyr way of select variables:

mtcars %>%
 group_by_at(vars(
 one_of(group_by) # columns from predefined set
 ,starts_with("a") # add ones started with a
 ,-hp # but omit that one
 ,vs # this should be always include
 ,contains("_gr_") # and ones with string _gr_
 )) %>%
 summarise(gear = mean(gear))

share|improve this answer

answered Mar 8 at 10:54

MarekMarek

39.4k1274107

library(dplyr)
group_by <- c('cyl', 'vs')
mtcars %>% group_by_at(group_by) %>% summarise(gear = mean(gear))

mtcars %>% group_by_at(vars(one_of(group_by))) %>% summarise(gear = mean(gear))

mtcars %>%
 group_by_at(vars(
 one_of(group_by) # columns from predefined set
 ,starts_with("a") # add ones started with a
 ,-hp # but omit that one
 ,vs # this should be always include
 ,contains("_gr_") # and ones with string _gr_
 )) %>%
 summarise(gear = mean(gear))

share|improve this answer

answered Mar 8 at 10:54

MarekMarek

39.4k1274107

answered Mar 8 at 10:54

MarekMarek

39.4k1274107

answered Mar 8 at 10:54

MarekMarek

39.4k1274107

8

Transform the character vector into a list of symbols and splice it in

df %>% group_by(!!! syms(group_by))

share|improve this answer

answered Jul 10 '17 at 8:40

lionellionel

3,1671721

add a comment | 

8

Transform the character vector into a list of symbols and splice it in

df %>% group_by(!!! syms(group_by))

share|improve this answer

answered Jul 10 '17 at 8:40

lionellionel

3,1671721

add a comment | 

Transform the character vector into a list of symbols and splice it in

df %>% group_by(!!! syms(group_by))

share|improve this answer

answered Jul 10 '17 at 8:40

lionellionel

3,1671721

df %>% group_by(!!! syms(group_by))

share|improve this answer

answered Jul 10 '17 at 8:40

lionellionel

3,1671721

answered Jul 10 '17 at 8:40

lionellionel

3,1671721

answered Jul 10 '17 at 8:40

lionellionel

3,1671721