Combinant coller() et d'expression() fonctions dans le carré des étiquettes

Considérer cet exemple simple:

labNames <- c('xLab','yLabl')
plot(c(1:10),xlab=expression(paste(labName[1], x^2)),ylab=expression(paste(labName[2], y^2)))

Ce que je veux, c'est pour la saisie de caractères défini par la variable " labName,
'xLab" ou "yLab' apparaisse à côté du X^2 ou y^2 défini par l'expression(). Comme il est, le texte 'labName' avec un indice est joint à l'exposant d'expression.

Toutes les pensées?

InformationsquelleAutor Aaron | 2011-02-11

plot r

64

Une solution alternative à celle de @Aaron est le bquote() fonction. Nous avons besoin de fournir un valide R expression, dans ce cas LABEL ~ x^2 par exemple, où LABEL est la chaîne que vous souhaitez assigner à partir du vecteur labNames. bquote évalue R code à l'intérieur de l'expression enveloppé dans .( ) et subsitutes le résultat dans l'expression.

Voici un exemple:
```
labNames <- c('xLab','yLab')
xlab <- bquote(.(labNames[1]) ~ x^2)
ylab <- bquote(.(labNames[2]) ~ y^2)
plot(c(1:10), xlab = xlab, ylab = ylab)
```
(Note de l' ~ ajoute juste un peu d'espacement, si vous ne voulez pas de l'espace, de le remplacer par * et les deux parties de l'expression sera juxtaposés.)

InformationsquelleAutor Reinstate Monica - G. Simpson

Utilisation substitute à la place.

labNames <- c('xLab','yLab')
plot(c(1:10),
     xlab=substitute(paste(nn, x^2), list(nn=labNames[1])),
     ylab=substitute(paste(nn, y^2), list(nn=labNames[2])))

Vous êtes jumeaux? =)

InformationsquelleAutor Aaron - Reinstate Monica

22

EDIT: ajout d'un nouvel exemple d'ggplot2 à la fin

Voir ?plotmath pour les différentes opérations mathématiques dans la R

Vous devriez être en mesure d'utiliser l'expression sans coller. Si vous utilisez le tilda (~) symbole dans l'expression de la fonction qu'il assumera il y a un espace entre les caractères, ou vous pouvez utiliser le symbole * et il ne sera pas mis un espace entre les arguments

Parfois, vous aurez besoin de modifier les marges dans vous mettez les exposants sur l'axe des y.
```
par(mar=c(5, 4.3, 4, 2) + 0.1)
plot(1:10, xlab = expression(xLab ~ x^2 ~ m^-2),
     ylab = expression(yLab ~ y^2 ~ m^-2),
     main="Plot 1")
```
```
plot(1:10, xlab = expression(xLab * x^2 * m^-2),
     ylab = expression(yLab * y^2 * m^-2),
     main="Plot 2")
```
```
plot(1:10, xlab = expression(xLab ~ x^2 * m^-2),
     ylab = expression(yLab ~ y^2 * m^-2),
     main="Plot 3")
```
J'espère que vous pouvez voir les différences entre les parcelles 1, 2 et 3 avec les différentes utilisations de l' ~ et * les symboles. Une note, vous pouvez utiliser d'autres symboles, tels que le tracé du degré de symbole pour des températures ou mu, phi. Si vous souhaitez ajouter un indice d'utiliser les crochets.
```
plot(1:10, xlab = expression('Your x label' ~ mu[3] * phi),
     ylab = expression("Temperature (" * degree * C *")"))
```
Ici est un ggplot exemple à l'aide de l'expression avec un non-sens exemple
```
require(ggplot2)
```
Ou si vous avez le pacman bibliothèque installé, vous pouvez utiliser p_load pour télécharger automatiquement et de les charger et de les attacher ajouter les packages de
```
# require(pacman)
# p_load(ggplot2)

data = data.frame(x = 1:10, y = 1:10)

ggplot(data, aes(x,y)) + geom_point() + 
  xlab(expression(bar(yourUnits) ~ g ~ m^-2 ~ OR ~ integral(f(x)*dx, a,b))) + 
  ylab(expression("Biomass (g per" ~ m^3 *")")) + theme_bw()
```
- J'ai commencé à utiliser ggplot que mon principal outil de traçage et cette méthode fonctionne pour ggplot ainsi
- alors qu'un bien élaboré exemple de matplotlib, cette réponse ne permettant pas réellement de substition de valeurs à partir d'un caractère de vecteur sur les axes. L'intro de votre exemple m'a donné l'idée qu'il serait utile de ggplot, mais d'autres réponses ici sont des plus utiles.
InformationsquelleAutor s_scolary
7

Très bel exemple à l'aide de collage et de substitut pour composer les deux symboles (mathplot) et des variables à http://vis.supstat.com/2013/04/mathematical-annotation-in-r/

Ici est un ggplot adaptation
```
library(ggplot2)
x_mean <- 1.5
x_sd <- 1.2
N <- 500

n <- ggplot(data.frame(x <- rnorm(N, x_mean, x_sd)),aes(x=x)) +
    geom_bar() + stat_bin() +
    labs(title=substitute(paste(
             "Histogram of random data with ",
             mu,"=",m,", ",
             sigma^2,"=",s2,", ",
             "draws = ", numdraws,", ",
             bar(x),"=",xbar,", ",
             s^2,"=",sde),
             list(m=x_mean,xbar=mean(x),s2=x_sd^2,sde=var(x),numdraws=N)))

print(n)
```
- Nice. C'est fou, mais c'est la seule approche que j'ai été capable de se mettre au travail! Voici un exemple de combinaison de symboles unicode avec l'expression! title = substitute(paste("n = ", n, ", ", bar(x), " = ", mu, ", ", "\u03C3/\u221An = ", se), list(n = df[["n"]], mu = format(df[["mu"]], digits = 2, nsmall = 2), se = format(df[["se"]], digits = 2, nsmall = 2), sep = "")), où df est un dataframe de portefeuille les valeurs à imprimer (la taille de l'échantillon n, la moyenne de l'échantillon muet l'erreur standard se). Wow.
InformationsquelleAutor WMash
3

Si x^2 et y^2 étaient des expressions déjà donné dans la variable au carré, ce qui résout le problème:
```
labNames <- c('xLab','yLab')
squared <- c(expression('x'^2), expression('y'^2))

xlab <- eval(bquote(expression(.(labNames[1]) ~ .(squared[1][[1]]))))
ylab <- eval(bquote(expression(.(labNames[2]) ~ .(squared[2][[1]]))))

plot(c(1:10), xlab = xlab, ylab = ylab)
```
Veuillez noter que le [[1]] derrière les carré[1]. Il vous donne le contenu de l'expression(...)" entre les crochets, sans aucun des caractères d'échappement.

InformationsquelleAutor daniel.neumann

Vous devez vous connecter pour publier un commentaire.