ggplot2 facet labeller with bquote











up vote
1
down vote

favorite












Yet another labeller question... I am struggling using math expressions in labellers with ggplot2 > 3



library(ggplot2)

var.lab1 = as_labeller(c(
"setosa" = "se",
"versicolor" = "ve",
"virginica" = "vi"
))

var.lab2 = as_labeller(c(
"setosa" = bquote("Spp"[set]),
"versicolor" = bquote("Spp"[ver]),
"virginica" = bquote("Spp"[vir])
))


This works as expected



ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
facet_wrap(~ Species, labeller = var.lab1) +
geom_point()


This doesn't work (the labeller has no effect)



ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
facet_wrap(~ Species, labeller = var.lab2) +
geom_point()


And this works



var.lab3 = c(
"setosa" = bquote("Spp"[set]),
"versicolor" = bquote("Spp"[ver]),
"virginica" = bquote("Spp"[vir])
)

vlabeller <- function (variable, value) {
return(var.lab3[value])
}

ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
facet_wrap(~ Species, labeller = vlabeller) +
geom_point()


But ggplot2 is unhappy "Warning message: The labeller API has been updated. Labellers taking variable and value arguments are now deprecated. See labellers documentation."










share|improve this question




























    up vote
    1
    down vote

    favorite












    Yet another labeller question... I am struggling using math expressions in labellers with ggplot2 > 3



    library(ggplot2)

    var.lab1 = as_labeller(c(
    "setosa" = "se",
    "versicolor" = "ve",
    "virginica" = "vi"
    ))

    var.lab2 = as_labeller(c(
    "setosa" = bquote("Spp"[set]),
    "versicolor" = bquote("Spp"[ver]),
    "virginica" = bquote("Spp"[vir])
    ))


    This works as expected



    ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
    facet_wrap(~ Species, labeller = var.lab1) +
    geom_point()


    This doesn't work (the labeller has no effect)



    ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
    facet_wrap(~ Species, labeller = var.lab2) +
    geom_point()


    And this works



    var.lab3 = c(
    "setosa" = bquote("Spp"[set]),
    "versicolor" = bquote("Spp"[ver]),
    "virginica" = bquote("Spp"[vir])
    )

    vlabeller <- function (variable, value) {
    return(var.lab3[value])
    }

    ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
    facet_wrap(~ Species, labeller = vlabeller) +
    geom_point()


    But ggplot2 is unhappy "Warning message: The labeller API has been updated. Labellers taking variable and value arguments are now deprecated. See labellers documentation."










    share|improve this question


























      up vote
      1
      down vote

      favorite









      up vote
      1
      down vote

      favorite











      Yet another labeller question... I am struggling using math expressions in labellers with ggplot2 > 3



      library(ggplot2)

      var.lab1 = as_labeller(c(
      "setosa" = "se",
      "versicolor" = "ve",
      "virginica" = "vi"
      ))

      var.lab2 = as_labeller(c(
      "setosa" = bquote("Spp"[set]),
      "versicolor" = bquote("Spp"[ver]),
      "virginica" = bquote("Spp"[vir])
      ))


      This works as expected



      ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
      facet_wrap(~ Species, labeller = var.lab1) +
      geom_point()


      This doesn't work (the labeller has no effect)



      ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
      facet_wrap(~ Species, labeller = var.lab2) +
      geom_point()


      And this works



      var.lab3 = c(
      "setosa" = bquote("Spp"[set]),
      "versicolor" = bquote("Spp"[ver]),
      "virginica" = bquote("Spp"[vir])
      )

      vlabeller <- function (variable, value) {
      return(var.lab3[value])
      }

      ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
      facet_wrap(~ Species, labeller = vlabeller) +
      geom_point()


      But ggplot2 is unhappy "Warning message: The labeller API has been updated. Labellers taking variable and value arguments are now deprecated. See labellers documentation."










      share|improve this question















      Yet another labeller question... I am struggling using math expressions in labellers with ggplot2 > 3



      library(ggplot2)

      var.lab1 = as_labeller(c(
      "setosa" = "se",
      "versicolor" = "ve",
      "virginica" = "vi"
      ))

      var.lab2 = as_labeller(c(
      "setosa" = bquote("Spp"[set]),
      "versicolor" = bquote("Spp"[ver]),
      "virginica" = bquote("Spp"[vir])
      ))


      This works as expected



      ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
      facet_wrap(~ Species, labeller = var.lab1) +
      geom_point()


      This doesn't work (the labeller has no effect)



      ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
      facet_wrap(~ Species, labeller = var.lab2) +
      geom_point()


      And this works



      var.lab3 = c(
      "setosa" = bquote("Spp"[set]),
      "versicolor" = bquote("Spp"[ver]),
      "virginica" = bquote("Spp"[vir])
      )

      vlabeller <- function (variable, value) {
      return(var.lab3[value])
      }

      ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
      facet_wrap(~ Species, labeller = vlabeller) +
      geom_point()


      But ggplot2 is unhappy "Warning message: The labeller API has been updated. Labellers taking variable and value arguments are now deprecated. See labellers documentation."







      r ggplot2






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 22 at 18:00

























      asked Nov 22 at 17:14









      user2165907

      6493719




      6493719
























          1 Answer
          1






          active

          oldest

          votes

















          up vote
          2
          down vote



          accepted










          You could just use label_bquote and substr to get what you want. No need for a custom labeller.





          library(ggplot2)

          ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
          facet_wrap(~ Species, labeller = label_bquote(cols = "Spp"[.(substr(Species, 1, 3))])) +
          geom_point()




          Created on 2018-11-22 by the reprex package (v0.2.1)






          share|improve this answer





















          • Yes, your answer is correct for my particular (and simple) example, that's why I have to validate it. Unfortunately, I am working on a bigger (many more facets) "true life" dataset and each facet has a different kind of labeller, some with bquote and others without... So, if there are other propositions I'll be happy.
            – user2165907
            Nov 22 at 17:54













          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',
          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


















          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53435686%2fggplot2-facet-labeller-with-bquote%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes








          up vote
          2
          down vote



          accepted










          You could just use label_bquote and substr to get what you want. No need for a custom labeller.





          library(ggplot2)

          ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
          facet_wrap(~ Species, labeller = label_bquote(cols = "Spp"[.(substr(Species, 1, 3))])) +
          geom_point()




          Created on 2018-11-22 by the reprex package (v0.2.1)






          share|improve this answer





















          • Yes, your answer is correct for my particular (and simple) example, that's why I have to validate it. Unfortunately, I am working on a bigger (many more facets) "true life" dataset and each facet has a different kind of labeller, some with bquote and others without... So, if there are other propositions I'll be happy.
            – user2165907
            Nov 22 at 17:54

















          up vote
          2
          down vote



          accepted










          You could just use label_bquote and substr to get what you want. No need for a custom labeller.





          library(ggplot2)

          ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
          facet_wrap(~ Species, labeller = label_bquote(cols = "Spp"[.(substr(Species, 1, 3))])) +
          geom_point()




          Created on 2018-11-22 by the reprex package (v0.2.1)






          share|improve this answer





















          • Yes, your answer is correct for my particular (and simple) example, that's why I have to validate it. Unfortunately, I am working on a bigger (many more facets) "true life" dataset and each facet has a different kind of labeller, some with bquote and others without... So, if there are other propositions I'll be happy.
            – user2165907
            Nov 22 at 17:54















          up vote
          2
          down vote



          accepted







          up vote
          2
          down vote



          accepted






          You could just use label_bquote and substr to get what you want. No need for a custom labeller.





          library(ggplot2)

          ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
          facet_wrap(~ Species, labeller = label_bquote(cols = "Spp"[.(substr(Species, 1, 3))])) +
          geom_point()




          Created on 2018-11-22 by the reprex package (v0.2.1)






          share|improve this answer












          You could just use label_bquote and substr to get what you want. No need for a custom labeller.





          library(ggplot2)

          ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
          facet_wrap(~ Species, labeller = label_bquote(cols = "Spp"[.(substr(Species, 1, 3))])) +
          geom_point()




          Created on 2018-11-22 by the reprex package (v0.2.1)







          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered Nov 22 at 17:36









          Jake Kaupp

          5,15721428




          5,15721428












          • Yes, your answer is correct for my particular (and simple) example, that's why I have to validate it. Unfortunately, I am working on a bigger (many more facets) "true life" dataset and each facet has a different kind of labeller, some with bquote and others without... So, if there are other propositions I'll be happy.
            – user2165907
            Nov 22 at 17:54




















          • Yes, your answer is correct for my particular (and simple) example, that's why I have to validate it. Unfortunately, I am working on a bigger (many more facets) "true life" dataset and each facet has a different kind of labeller, some with bquote and others without... So, if there are other propositions I'll be happy.
            – user2165907
            Nov 22 at 17:54


















          Yes, your answer is correct for my particular (and simple) example, that's why I have to validate it. Unfortunately, I am working on a bigger (many more facets) "true life" dataset and each facet has a different kind of labeller, some with bquote and others without... So, if there are other propositions I'll be happy.
          – user2165907
          Nov 22 at 17:54






          Yes, your answer is correct for my particular (and simple) example, that's why I have to validate it. Unfortunately, I am working on a bigger (many more facets) "true life" dataset and each facet has a different kind of labeller, some with bquote and others without... So, if there are other propositions I'll be happy.
          – user2165907
          Nov 22 at 17:54




















          draft saved

          draft discarded




















































          Thanks for contributing an answer to Stack Overflow!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          To learn more, see our tips on writing great answers.





          Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


          Please pay close attention to the following guidance:


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53435686%2fggplot2-facet-labeller-with-bquote%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          What visual should I use to simply compare current year value vs last year in Power BI desktop

          Alexandru Averescu

          Trompette piccolo