AskOverflow.Dev

AskOverflow.Dev Logo AskOverflow.Dev Logo

AskOverflow.Dev Navigation

  • Início
  • system&network
  • Ubuntu
  • Unix
  • DBA
  • Computer
  • Coding
  • LangChain

Mobile menu

Close
  • Início
  • system&network
    • Recentes
    • Highest score
    • tags
  • Ubuntu
    • Recentes
    • Highest score
    • tags
  • Unix
    • Recentes
    • tags
  • DBA
    • Recentes
    • tags
  • Computer
    • Recentes
    • tags
  • Coding
    • Recentes
    • tags
Início / coding / Perguntas / 79111161
Accepted
Jaken
Jaken
Asked: 2024-10-22 01:37:39 +0800 CST2024-10-22 01:37:39 +0800 CST 2024-10-22 01:37:39 +0800 CST

Escrevendo uma função ggplot personalizada com argumentos opcionais de diagrama de facetas

  • 772

Estou tentando criar uma função personalizada que usa ggplot facet_wrap, na qual o usuário pode opcionalmente fornecer rótulos. Encapsulei o argumento facet_grid em uma cláusula if/else dependendo se o usuário fornece ou não rótulos, e a função é executada com sucesso. No entanto, ela só funciona se essa cláusula for a chamada final na sequência ggplot; se eu adicionar qualquer outra coisa depois dela (por exemplo, especificando o tema), ela quebra. Obviamente, posso reordenar a função para deixar a chamada facet_wrap no final, mas suspeito que isso significa que estou fazendo algo incorretamente.

Aqui está um exemplo reproduzível:

library(dplyr)
library(ggplot2)

# sample data
data(msleep)
filtered<- msleep %>% filter(conservation %in% c('en', 'vu', 'domesticated'))

# readable labels
fancy_labels_cons <- c('domesticated' = 'Domesticated', 'en' = 'Endangered', 'vu' = 'Vulnerable')
fancy_labels_vore <- c('carni' = 'Carnivore', 'herbi'='Herbivore', 'omni'='Omnivore', 'insecti'='Insectivore')

# function: works as long as if/else clause is the final argument
myfunc_workingversion <- function(df, x, y, facetx, facety, labs=NULL) {
  ggplot(df, aes({{x}}, {{y}})) + 
    geom_point() +
    if(!is.null(labs)) {
        facet_grid(vars({{facetx}}), vars({{facety}}),
                  labeller = as_labeller(labs))
    } else {
        facet_grid(vars({{facetx}}), vars({{facety}}))
    } 
}

#function: no longer works when an additional ggplot argument is added at the end
myfunc2 <- function(df, x, y, facetx, facety, labs=NULL) {
  ggplot(df, aes({{x}}, {{y}})) + 
    geom_point() +
    if(!is.null(labs)) {
        facet_grid(vars({{facetx}}), vars({{facety}}),
                  labeller = as_labeller(labs))
    } else {
        facet_grid(vars({{facetx}}), vars({{facety}}))
    } +
    theme_minimal()
}

#run function - this works
myfunc2(
  filtered, 
  x=sleep_total, 
  y=awake, 
  facetx=conservation, 
  facety=vore, 
  labs=c('domesticated' = 'Domesticated', 'en' = 'Endangered', 
         'vu' = 'Vulnerable', 'carni' = 'Carnivore', 'herbi'='Herbivore',
         'omni'='Omnivore', 'insecti'='Insectivore'))

#run function - this doesn't work
myfunc2(
  filtered, 
  x=sleep_total, 
  y=awake, 
  facetx=conservation, 
  facety=vore
)

Note que ambas as versões das funções funcionam se os laboratórios forem fornecidos; no entanto, a segunda versão quebra se os laboratórios não forem fornecidos. Suspeito que estou fazendo algo errado com o "+". Também estou interessado em saber se há uma maneira mais otimizada ou legível de configurar a entrada opcional aqui.

  • 2 2 respostas
  • 33 Views

2 respostas

  • Voted
  1. Best Answer
    MrFlick
    2024-10-22T02:05:46+08:002024-10-22T02:05:46+08:00

    Você tem um problema de análise. A sintaxe if/else espera expressões para o bloco iftrue/ifelse. Elas {}não são realmente necessárias e não determinam as expansões dos blocos. O que você tem está sendo interpretado como

    myfunc2 <- function(df, x, y, facetx, facety, labs=NULL) {
      ggplot(df, aes({{x}}, {{y}})) + 
        geom_point() +
        if(!is.null(labs)) {
            facet_grid(vars({{facetx}}), vars({{facety}}),
                      labeller = as_labeller(labs))
        } else {{ facet_grid(vars({{facetx}}), vars({{facety}}))} + theme_minimal()}
    }
    

    ou

    myfunc2 <- function(df, x, y, facetx, facety, labs=NULL) {
      ggplot(df, aes({{x}}, {{y}})) + 
        geom_point() +
        if(!is.null(labs)) 
          facet_grid(vars({{facetx}}), vars({{facety}}), labeller = as_labeller(labs))
        else 
          facet_grid(vars({{facetx}}), vars({{facety}})) + theme_minimal()
    }
    

    E o problema é facet_grid(vars({{facetx}}), vars({{facety}})) + theme_minimal()que não é uma expressão válida por si só.

    Para obter o que deseja, envolva o bloco if entre chaves

    myfunc2 <- function(df, x, y, facetx, facety, labs=NULL) {
      ggplot(df, aes({{x}}, {{y}})) + 
        geom_point() +
        {if(!is.null(labs)) {
            facet_grid(vars({{facetx}}), vars({{facety}}),
                      labeller = as_labeller(labs))
        } else { 
         facet_grid(vars({{facetx}}), vars({{facety}}))
        }} + 
        theme_minimal()
    }
    
    • 3
  2. Michiel Duvekot
    2024-10-22T04:18:05+08:002024-10-22T04:18:05+08:00

    um pouco mais fácil de ler seria:

    myfunc2 <- function(df, x, y, facetx, facety, labs=NULL) {
      p <- ggplot(df, aes({{x}}, {{y}})) + 
        geom_point() 
        if(!is.null(labs)) {
          p <- p + facet_grid(vars({{facetx}}), vars({{facety}}),
                     labeller = as_labeller(labs))
        } else {
          p <- p + facet_grid(vars({{facetx}}), vars({{facety}}))
        } 
      p + theme_minimal()
    }
    
    • 2

relate perguntas

  • Adicionar número de série para atividade de cópia ao blob

  • A fonte dinâmica do empacotador duplica artefatos

  • Selecione linhas por grupo com 1s consecutivos

  • Lista de chamada de API de gráfico subscritoSkus estados Privilégios insuficientes enquanto os privilégios são concedidos

  • Função para criar DFs separados com base no valor da coluna

Sidebar

Stats

  • Perguntas 205573
  • respostas 270741
  • best respostas 135370
  • utilizador 68524
  • Highest score
  • respostas
  • Marko Smith

    Vue 3: Erro na criação "Identificador esperado, mas encontrado 'import'" [duplicado]

    • 1 respostas
  • Marko Smith

    Por que esse código Java simples e pequeno roda 30x mais rápido em todas as JVMs Graal, mas não em nenhuma JVM Oracle?

    • 1 respostas
  • Marko Smith

    Qual é o propósito de `enum class` com um tipo subjacente especificado, mas sem enumeradores?

    • 1 respostas
  • Marko Smith

    Como faço para corrigir um erro MODULE_NOT_FOUND para um módulo que não importei manualmente?

    • 6 respostas
  • Marko Smith

    `(expression, lvalue) = rvalue` é uma atribuição válida em C ou C++? Por que alguns compiladores aceitam/rejeitam isso?

    • 3 respostas
  • Marko Smith

    Quando devo usar um std::inplace_vector em vez de um std::vector?

    • 3 respostas
  • Marko Smith

    Um programa vazio que não faz nada em C++ precisa de um heap de 204 KB, mas não em C

    • 1 respostas
  • Marko Smith

    PowerBI atualmente quebrado com BigQuery: problema de driver Simba com atualização do Windows

    • 2 respostas
  • Marko Smith

    AdMob: MobileAds.initialize() - "java.lang.Integer não pode ser convertido em java.lang.String" para alguns dispositivos

    • 1 respostas
  • Marko Smith

    Estou tentando fazer o jogo pacman usando apenas o módulo Turtle Random e Math

    • 1 respostas
  • Martin Hope
    Aleksandr Dubinsky Por que a correspondência de padrões com o switch no InetAddress falha com 'não cobre todos os valores de entrada possíveis'? 2024-12-23 06:56:21 +0800 CST
  • Martin Hope
    Phillip Borge Por que esse código Java simples e pequeno roda 30x mais rápido em todas as JVMs Graal, mas não em nenhuma JVM Oracle? 2024-12-12 20:46:46 +0800 CST
  • Martin Hope
    Oodini Qual é o propósito de `enum class` com um tipo subjacente especificado, mas sem enumeradores? 2024-12-12 06:27:11 +0800 CST
  • Martin Hope
    sleeptightAnsiC `(expression, lvalue) = rvalue` é uma atribuição válida em C ou C++? Por que alguns compiladores aceitam/rejeitam isso? 2024-11-09 07:18:53 +0800 CST
  • Martin Hope
    The Mad Gamer Quando devo usar um std::inplace_vector em vez de um std::vector? 2024-10-29 23:01:00 +0800 CST
  • Martin Hope
    Chad Feller O ponto e vírgula agora é opcional em condicionais bash com [[ .. ]] na versão 5.2? 2024-10-21 05:50:33 +0800 CST
  • Martin Hope
    Wrench Por que um traço duplo (--) faz com que esta cláusula MariaDB seja avaliada como verdadeira? 2024-05-05 13:37:20 +0800 CST
  • Martin Hope
    Waket Zheng Por que `dict(id=1, **{'id': 2})` às vezes gera `KeyError: 'id'` em vez de um TypeError? 2024-05-04 14:19:19 +0800 CST
  • Martin Hope
    user924 AdMob: MobileAds.initialize() - "java.lang.Integer não pode ser convertido em java.lang.String" para alguns dispositivos 2024-03-20 03:12:31 +0800 CST
  • Martin Hope
    MarkB Por que o GCC gera código que executa condicionalmente uma implementação SIMD? 2024-02-17 06:17:14 +0800 CST

Hot tag

python javascript c++ c# java typescript sql reactjs html

Explore

  • Início
  • Perguntas
    • Recentes
    • Highest score
  • tag
  • help

Footer

AskOverflow.Dev

About Us

  • About Us
  • Contact Us

Legal Stuff

  • Privacy Policy

Language

  • Pt
  • Server
  • Unix

© 2023 AskOverflow.DEV All Rights Reserve