personalizado leyendas grafico formatos r plot superscript plotmath

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