Comment faire pour changer de groupe de panneaux et étiquettes de l'axe des x sublabels dans un treillis bwplot

Je suis 2 semaines en utilisant RStudio (MacOS), de sorte s'il vous plaît pardonnez-moi si je suis surplombant une évidente fonction qui permettrait de résoudre mon problème.

Comme un projet, je cherche à reproduire un diagramme en boîte graphique avec 4 parcelles représentant de l'Avantage Net, étant donné le type de maladie -- "non graves"(0) ou "grave"(1), comme un axe x de l'étiquette, et le traitement donné -- "thérapie par la parole"(0) ou "thérapie de drogue"(1), comme un axe x sous-label.

Voici mon script pour l'instant:

tx <- c(0,0,0,0,1,1,1,1)
dztype <- c(1,0,1,0,0,0,1,1)
NBwtp1000 <- c(-5500,-4000,-5000,-1000,-5000,-5000,-2800,-2000)
require(lattice)
bwplot(NBwtp1000 ~ paste0("Tx ", tx) | paste0("Disease Severity ", dztype),
       xlab="Talk Therapy (Tx 0) or Drug Therapy (Tx 1)", 
       ylab="Net Benefit @ wtp 1000", horizontal=FALSE)

Si vous exécutez le code, vous verrez que le box-and-whisker plot: j'y suis presque, grâce à certains messages d'information sur ce forum à propos de treillis de bwplot fonction.

Cependant, je suis encore loin d'être heureux avec le résultat. J'ai utilisé le paste0 fonction pour ajouter des descripteurs de chaîne à l'axe X sublabels pour le groupe de traitement (à l'origine l'étiquette de "1,2" et de montrer que "Tx 0, Tx 1"), mais je serait l'idéal, comme ceux sublabels-à-dire "la Thérapie par la parole" et de la "Thérapie de Drogue", respectivement. (Je ne savais tout simplement pas comment faire pour faire disparaître les numériques existantes les étiquettes).

De même, je voudrais que le panneau d'étiquettes-à-dire "Pas Grave", où l'étiquette est actuellement de 0 et de "Grave" l'endroit où l'étiquette est actuellement de 1.

InformationsquelleAutor Alex Mayer | 2013-02-05
  1. 8

    La façon la plus simple d'aussi loin que je peux voir, c'est de convertir votre tx et dztype à des facteurs avec le niveau approprié des noms.

    tx <- factor(tx, levels=c(0,1), labels=c("Talk Therapy", "Drug Therapy"))
dztype <- factor(dztype, levels=c(0,1), labels=c("Not severe", "Severe"))
bwplot(NBwtp1000 ~ tx | dztype, xlab="Talk Therapy or Drug Therapy", 
       ylab="Net Benefit @ wtp 1000", horizontal=FALSE)

    Comment faire pour changer de groupe de panneaux et étiquettes de l'axe des x sublabels dans un treillis bwplot

    Une autre solution est d'utiliser l'argument scale pour la tx niveaux et argument strip pour dztype:

    tx <- c(0,0,0,0,1,1,1,1)
dztype <- c(1,0,1,0,0,0,1,1)
bwplot(NBwtp1000 ~ tx | dztype, xlab="Talk Therapy or Drug Therapy", 
       ylab="Net Benefit @ wtp 1000", horizontal=FALSE,
       scales=list(x=list(labels=c("Talk therapy","Drug Therapy"))), 
       strip=strip.custom(var.name="Disease severity", 
                          factor.levels=c(" Not Severe", "Severe"),
                          strip.levels=rep(TRUE,2)))

    Comment faire pour changer de groupe de panneaux et étiquettes de l'axe des x sublabels dans un treillis bwplot

    • Exceptionnelle, merci pour la réponse réfléchie.
    InformationsquelleAutor plannapus