相关疑难解决方法(0)

我正在注释分面图以包含上标，但无法将文本设为粗体。我意识到这与expression在 plot 调用之外创建一个，然后指定parse=TRUE. 可能有一个非常简单的解决方案，但到目前为止我尝试过的任何方法都没有奏效，包括使用bquote()and bold()。谢谢

library(ggplot2)

data(iris)

rsq<-c(.3,.6,.75)
pos<-c(5,6,7)
Species<-levels(iris$Species)

big_data<-as.data.frame(cbind(pos, rsq))
big_data$Species<-Species

lab <- paste("r^2 == ", round(big_data$rsq,2))

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,fontface='bold')

我正在尝试生成一个图表，并且我想将 .a 字符串的一部分加粗geom_text()。这是一些示例数据和图表：

temp <- data.frame(num = c("big"),
                   text = c("small bullet point of text"),
                   col = c("red"))

ggplot(data = temp) +
  lims(x = c(0,100), y = c(0, 100)) + 
  geom_text(aes(x = 20, y = 50, label = num, color = col), size = 25) +
  geom_text(aes(x = 60, y = 50, label = text), size = 3)

理想情况下，我想做两件事。首先，最重要的是，我想给“子弹”这个词加气，而且只用那个词。其次，如果可能的话，我想将 Bullet 一词的颜色更改为 "red" ，以匹配 "big" 一词的颜色。

我在这里阅读了涉及bold()似乎来自grDevices包的功能的解决方案，但我无法让它工作。当我尝试该链接中的示例时，它会出现以下错误：

> paste("No. of ", bold("bacteria X"), …