Styjun

If someone asks a question using “quién”, how can one shortly respond?

Can you cure a Gorgon's Petrifying Breath before it finishes turning a target to stone?

French license plates

Diminished data rate with logic output optoisolator

What does it mean by "my days-of-the-week underwear only go to Thursday" in this context?

Verb ending in -ん with positive meaning?

How to compare integers in TeX?

How to level a picture frame hung on a single nail?

Garage door sticks on a bolt

Can the President of the US limit First Amendment rights?

Is it good to engage in exceptional cases where it is permissible to do a typically forbidden action to which one has a taivah for

Why does `FindFit` fail so badly in this simple case?

Implementation of a Thread Pool in C++

does 'java' command compile the java program?

Was the ruling that prorogation was unlawful only possible because of the creation of a separate supreme court?

Do my potential customers need to understand the "meaning" of a logo, or just recognize it?

Replacing cord for IBM model M keyboard

Impossible violin chord, how to fix this?

IEEE 754 square root with Newton-Raphson

As a team leader is it appropriate to bring in fundraiser candy?

Smallest PRIME containing the first 11 primes as sub-strings

How big would the ice ball have to be to deliver all the water at once?

Convert a string of digits from words to an integer

Phonetic distortion when words are borrowed among languages

R - How do I pass a function as an argument to another function?

How do JavaScript closures work?What's the difference between a method and a function?var functionName = function() vs function functionName() Set a default parameter value for a JavaScript functionWhat does the exclamation mark do before the function?How to pass all arguments passed to my bash script to a function of mine?How to make a great R reproducible exampleHow can we make xkcd style graphs?Pass a JavaScript function as parametergeom_histogram: wrong bins?

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

2

I have a function I'm creating like this:

library(ggplot2)
plot_function <- function(data, x, y)
 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = scales::comma_format())

I can call it like this:

df <- data.frame(date = seq(as.Date("2019/01/01"), as.Date("2019/01/05"),"1 day"), 
 value = seq(.1,.5, .1))

df 

date value 
2019-01-01 0.1 
2019-01-02 0.2 
2019-01-03 0.3 
2019-01-04 0.4 
2019-01-05 0.5

plot_function(df, x = "date", "value")

But what if I wanted to allow the user to be able to change the y axis to a percentage. How can I let them replace scales::comma_format()? This doesn't work:

plot_function <- function(data, x, y, y_format)

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = y_format)


plot_function(df, x = "date", "value", y_format = "scales::percent_format()")

I get this error:

"Error in f(..., self = self) : Breaks and labels are different lengths"

r function ggplot2

share|improve this question

edited Mar 28 at 21:34

camille

10.1k77 gold badges2121 silver badges3838 bronze badges

asked Mar 28 at 20:07

Jacob CurtisJacob Curtis

37011 gold badge22 silver badges1313 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  What happens when you pass the function itself by removing the quotes?
  
  – joran
  Mar 28 at 20:08
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Your solution would have worked if you just left the quotes off. plot_function(df, x = "date", "value", y_format = scales::percent_format()). It's important to note that scales::percent_format() itself is calling a function that returns a function.
  
  – MrFlick
  Mar 29 at 2:19
  

  
  
  
  

add a comment
 | 

2

I have a function I'm creating like this:

library(ggplot2)
plot_function <- function(data, x, y)
 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = scales::comma_format())

I can call it like this:

df <- data.frame(date = seq(as.Date("2019/01/01"), as.Date("2019/01/05"),"1 day"), 
 value = seq(.1,.5, .1))

df 

date value 
2019-01-01 0.1 
2019-01-02 0.2 
2019-01-03 0.3 
2019-01-04 0.4 
2019-01-05 0.5

plot_function(df, x = "date", "value")

But what if I wanted to allow the user to be able to change the y axis to a percentage. How can I let them replace scales::comma_format()? This doesn't work:

plot_function <- function(data, x, y, y_format)

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = y_format)


plot_function(df, x = "date", "value", y_format = "scales::percent_format()")

I get this error:

"Error in f(..., self = self) : Breaks and labels are different lengths"

r function ggplot2

share|improve this question

edited Mar 28 at 21:34

camille

10.1k77 gold badges2121 silver badges3838 bronze badges

asked Mar 28 at 20:07

Jacob CurtisJacob Curtis

37011 gold badge22 silver badges1313 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  What happens when you pass the function itself by removing the quotes?
  
  – joran
  Mar 28 at 20:08
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Your solution would have worked if you just left the quotes off. plot_function(df, x = "date", "value", y_format = scales::percent_format()). It's important to note that scales::percent_format() itself is calling a function that returns a function.
  
  – MrFlick
  Mar 29 at 2:19
  

  
  
  
  

add a comment
 | 

I have a function I'm creating like this:

library(ggplot2)
plot_function <- function(data, x, y)
 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = scales::comma_format())

I can call it like this:

df <- data.frame(date = seq(as.Date("2019/01/01"), as.Date("2019/01/05"),"1 day"), 
 value = seq(.1,.5, .1))

df 

date value 
2019-01-01 0.1 
2019-01-02 0.2 
2019-01-03 0.3 
2019-01-04 0.4 
2019-01-05 0.5

plot_function(df, x = "date", "value")

But what if I wanted to allow the user to be able to change the y axis to a percentage. How can I let them replace scales::comma_format()? This doesn't work:

plot_function <- function(data, x, y, y_format)

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = y_format)


plot_function(df, x = "date", "value", y_format = "scales::percent_format()")

I get this error:

"Error in f(..., self = self) : Breaks and labels are different lengths"

r function ggplot2

share|improve this question

edited Mar 28 at 21:34

camille

10.1k77 gold badges2121 silver badges3838 bronze badges

asked Mar 28 at 20:07

Jacob CurtisJacob Curtis

37011 gold badge22 silver badges1313 bronze badges

library(ggplot2)
plot_function <- function(data, x, y)
 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = scales::comma_format())

df <- data.frame(date = seq(as.Date("2019/01/01"), as.Date("2019/01/05"),"1 day"), 
 value = seq(.1,.5, .1))

df 

date value 
2019-01-01 0.1 
2019-01-02 0.2 
2019-01-03 0.3 
2019-01-04 0.4 
2019-01-05 0.5

plot_function(df, x = "date", "value")

plot_function <- function(data, x, y, y_format)

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = y_format)


plot_function(df, x = "date", "value", y_format = "scales::percent_format()")

"Error in f(..., self = self) : Breaks and labels are different lengths"

share|improve this question

edited Mar 28 at 21:34

camille

10.1k77 gold badges2121 silver badges3838 bronze badges

asked Mar 28 at 20:07

Jacob CurtisJacob Curtis

37011 gold badge22 silver badges1313 bronze badges

share|improve this question

edited Mar 28 at 21:34

camille

10.1k77 gold badges2121 silver badges3838 bronze badges

asked Mar 28 at 20:07

Jacob CurtisJacob Curtis

37011 gold badge22 silver badges1313 bronze badges

edited Mar 28 at 21:34

camille

10.1k77 gold badges2121 silver badges3838 bronze badges

edited Mar 28 at 21:34

camille

10.1k77 gold badges2121 silver badges3838 bronze badges

asked Mar 28 at 20:07

Jacob CurtisJacob Curtis

37011 gold badge22 silver badges1313 bronze badges

asked Mar 28 at 20:07

Jacob CurtisJacob Curtis

37011 gold badge22 silver badges1313 bronze badges

2 Answers
2

active

oldest

votes

2

try this:

plot_function <- function(data, x, y, y_format)

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = y_format())



plot_function(df, x = "date", "value", y_format = scales::percent_format)

share|improve this answer

answered Mar 28 at 20:10

CetttCettt

5,01755 gold badges1818 silver badges4141 bronze badges

add a comment
 | 

3

Another option is to set up the function using the ... argument, so that passing a labels argument to scale_y_continuous is optional:

plot_function <- function(data, x, y, ...) 

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(...)


# Pass nothing to scale_y_continuous
plot_function(mtcars, x = "cyl", y="hp")

# Add some big numbers to mtcars
mtcars$hp = 1e5 * mtcars$hp

# Pass a labels argument to scale_y_continuous to get comma formatted values
plot_function(mtcars, x = "cyl", y="hp", labels=scales::comma)

share|improve this answer

answered Mar 28 at 20:32

eipi10eipi10

64.4k1717 gold badges122122 silver badges187187 bronze badges

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/4.0/"u003ecc by-sa 4.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%2f55406039%2fr-how-do-i-pass-a-function-as-an-argument-to-another-function%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

2

try this:

plot_function <- function(data, x, y, y_format)

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = y_format())



plot_function(df, x = "date", "value", y_format = scales::percent_format)

share|improve this answer

answered Mar 28 at 20:10

CetttCettt

5,01755 gold badges1818 silver badges4141 bronze badges

add a comment
 | 

2

try this:

plot_function <- function(data, x, y, y_format)

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = y_format())



plot_function(df, x = "date", "value", y_format = scales::percent_format)

share|improve this answer

answered Mar 28 at 20:10

CetttCettt

5,01755 gold badges1818 silver badges4141 bronze badges

add a comment
 | 

try this:

plot_function <- function(data, x, y, y_format)

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = y_format())



plot_function(df, x = "date", "value", y_format = scales::percent_format)

share|improve this answer

answered Mar 28 at 20:10

CetttCettt

5,01755 gold badges1818 silver badges4141 bronze badges

plot_function <- function(data, x, y, y_format)

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(labels = y_format())



plot_function(df, x = "date", "value", y_format = scales::percent_format)

share|improve this answer

answered Mar 28 at 20:10

CetttCettt

5,01755 gold badges1818 silver badges4141 bronze badges

answered Mar 28 at 20:10

CetttCettt

5,01755 gold badges1818 silver badges4141 bronze badges

answered Mar 28 at 20:10

CetttCettt

5,01755 gold badges1818 silver badges4141 bronze badges

3

Another option is to set up the function using the ... argument, so that passing a labels argument to scale_y_continuous is optional:

plot_function <- function(data, x, y, ...) 

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(...)


# Pass nothing to scale_y_continuous
plot_function(mtcars, x = "cyl", y="hp")

# Add some big numbers to mtcars
mtcars$hp = 1e5 * mtcars$hp

# Pass a labels argument to scale_y_continuous to get comma formatted values
plot_function(mtcars, x = "cyl", y="hp", labels=scales::comma)

share|improve this answer

answered Mar 28 at 20:32

eipi10eipi10

64.4k1717 gold badges122122 silver badges187187 bronze badges

add a comment
 | 

3

Another option is to set up the function using the ... argument, so that passing a labels argument to scale_y_continuous is optional:

plot_function <- function(data, x, y, ...) 

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(...)


# Pass nothing to scale_y_continuous
plot_function(mtcars, x = "cyl", y="hp")

# Add some big numbers to mtcars
mtcars$hp = 1e5 * mtcars$hp

# Pass a labels argument to scale_y_continuous to get comma formatted values
plot_function(mtcars, x = "cyl", y="hp", labels=scales::comma)

share|improve this answer

answered Mar 28 at 20:32

eipi10eipi10

64.4k1717 gold badges122122 silver badges187187 bronze badges

add a comment
 | 

Another option is to set up the function using the ... argument, so that passing a labels argument to scale_y_continuous is optional:

plot_function <- function(data, x, y, ...) 

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(...)


# Pass nothing to scale_y_continuous
plot_function(mtcars, x = "cyl", y="hp")

# Add some big numbers to mtcars
mtcars$hp = 1e5 * mtcars$hp

# Pass a labels argument to scale_y_continuous to get comma formatted values
plot_function(mtcars, x = "cyl", y="hp", labels=scales::comma)

share|improve this answer

answered Mar 28 at 20:32

eipi10eipi10

64.4k1717 gold badges122122 silver badges187187 bronze badges

plot_function <- function(data, x, y, ...) 

 ggplot(data, aes_string(x=x, y=y)) + 
 geom_line() + 
 scale_y_continuous(...)


# Pass nothing to scale_y_continuous
plot_function(mtcars, x = "cyl", y="hp")

# Add some big numbers to mtcars
mtcars$hp = 1e5 * mtcars$hp

# Pass a labels argument to scale_y_continuous to get comma formatted values
plot_function(mtcars, x = "cyl", y="hp", labels=scales::comma)

share|improve this answer

answered Mar 28 at 20:32

eipi10eipi10

64.4k1717 gold badges122122 silver badges187187 bronze badges

answered Mar 28 at 20:32

eipi10eipi10

64.4k1717 gold badges122122 silver badges187187 bronze badges

answered Mar 28 at 20:32

eipi10eipi10

64.4k1717 gold badges122122 silver badges187187 bronze badges