Cambie geom_text a negrita cuando parse=TRUE

Este team redactor ha pasado mucho tiempo buscando para dar espuestas a tu pregunta, te compartimos la resolución así que deseamos servirte de mucha apoyo.

Solución:

puedes obtener r ser – estar bold()

lab <- sprintf("bold(r)^2 == %.2f", big_data$rsq)

pero eso es todo. De ?plotmath

Tenga en cuenta que la negrita, la cursiva y la negrita cursiva no se aplican a los símbolos y, por lo tanto, no a los símbolos griegos como mu que se muestran en la fuente del símbolo. Tampoco se aplican a las constantes numéricas.

Su mejor apuesta para una tipografía más fina podría ser tikzDevice.

Un pequeño truco: trazar el texto 3 veces con ligeros aumentos de tamaño.

ggplot(iris, aes(x=Sepal.Length, y=Sepal.Width)) +
  facet_wrap(~Species,scales='free_x')+
  geom_point(size=3,show.legend = F) +
  geom_text(aes(x=pos,y=1,label=as.character(lab)),parse=TRUE,data=big_data,size=4)+
  geom_text(aes(x=pos,y=1,label=as.character(lab)),parse=TRUE,data=big_data,size=4.07)+
  geom_text(aes(x=pos,y=1,label=as.character(lab)),parse=TRUE,data=big_data,size=4.08)

Puntuaciones y comentarios

Acuérdate de que tienes la opción de decir si diste con la respuesta.

---

---

Utiliza Nuestro Buscador