leyendas - formatos de grafico personalizado en excel
Caracteres especiales y superÃndices en los tÃtulos del eje de la trama (2)
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)
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"*")"))
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