leyendas - formatos de grafico personalizado en excel

Caracteres especiales y superíndices en los títulos del eje de la trama

Question

Estoy tratando de hacer un título del eje y con un carácter especial y un superíndice. Puedo hacer esto, pero quiero que los paréntesis de cierre no se superpongan. Y eso es con lo que estoy teniendo un problema. Creo que es solo una colocación de mi paréntesis, pero he intentado (aparentemente) todo.

plot(WatexCl, ConcuM, col = as.numeric(1), pch = as.numeric(Depth),
xlab = expression(paste("Concentration Cl ( ", mu, "moles/g dry wt)")),
ylab = expression(paste("Average Conc of S- on plates ( ", mu, "Moles/cm"^"2"),)),
data = plates)

Answer 1

Esto resuelve el problema del paréntesis de cierre superguiado:

# reproducible data
plates <- data.frame(WatexCl = rnorm(100), ConcuM = rnorm(100), Depth = rnorm(100))
# alter the default plot margins so the
# superscript in the y-axis label is completely displayed
par(mar=c(5,5,4,2))
# draw the plot
plot(WatexCl ~ ConcuM, data = plates,
col = as.numeric(1),
pch = as.numeric(Depth),
xlab = bquote("Concentration Cl ("*mu~"moles/g dry wt)"),
ylab = bquote("Average Conc of S- on plates ("~mu~"Moles/cm"^"2"*")"))

Answer 2

Lo que a menudo los usuarios no comprenden es que, invariablemente, no es necesario citar cadenas y paste juntas cuando se usan en una expresión para una etiqueta de trazado. Por lo general, es más sencillo usar las herramientas de diseño directamente (por ejemplo, ~ y * ). Por ejemplo:

df <- data.frame(y = rnorm(100), x = rnorm(100))
plot(y ~ x, data = df,
ylab = expression(Average ~ Conc ~ of ~ S- ~ on ~ plates ~
(mu ~ Moles ~ cm^{-2} ~ dry ~ wt)),
xlab = expression(Concentration ~ Cl ~ (mu ~ moles ~ g^{-1} ~ dry ~ wt)))

Alternativamente, puede incluir cadenas para secciones de texto más largas; en este caso, es posiblemente más fácil de hacer:

plot(y ~ x, data = df,
ylab = expression("Average Conc of S- on plates" ~
(mu ~ moles ~ cm^{-2} ~ "dry wt")),
xlab = expression("Concentration Cl" ~ (mu ~ moles ~ g^{-1} ~ "dry wt")))

pero tenga en cuenta que no es necesario paste cadenas y otras funciones aquí.

Ambos producen:

Observe el problema que plotmath tiene con el superíndice 2. Puede agregar un espacio adicional para el margen del eje y para acomodar eso:

op <- par(mar = c(5,4.5,4,2) + 0.1)
plot(y ~ x, data = df,
ylab = expression("Average Conc of S- on plates" ~
(mu ~ moles ~ cm^{-2} ~ "dry wt")),
xlab = expression("Concentration Cl" ~ (mu ~ moles ~ g^{-1} ~ "dry wt")))
par(op)

productor