R语言ggplot给图形批量添加角度度数注释

大家好，我需要给ggplot2画出的图添加度数标注（°）注释(比如30.21°)。每个图度数不一样，如下图所示。怎么通过代码实现呢，谢谢大家。







基础添加文本或数字注释代码如下：

1. library(ggplot2)
   
2. p<-ggplot(mpg,aes(x=displ,y=hwy))+geom_point()+facet_wrap(~drv, nrow=2)#facet_grid表示以
   
3. f_labels<-data.frame(drv=c("4","f","r"),label=c("4wd","Front","Rear"))#创建标签数据框
   
4. p+geom_text(x=6,y=40,aes(label=label),data=f_labels) #给每个分面添加标签"4wd","Front","Rear"

复制代码

尝试了如下代码但是没有成功：

1. label<-c(expression(paste(44.97^o),expression(paste(44.84^o)),expression(paste(44.76^o)))

复制代码

你意思是这样？

1. library(ggplot2)
   
2. 
   
3. f_labels <- data.frame(drv = c("4","f","r"), label = c("4wd","Front","Rear"), agl = c(44.97, 44.84, 44.76))
   
4. 
   
5. p <- ggplot(mpg, aes(x = displ, y = hwy)) + geom_point() + facet_wrap (~ drv, nrow = 2)
   
6. 
   
7. p + geom_text(data = f_labels, x = 6, y = 40, aes(label = label)) +
   
8.   geom_text(data = f_labels, x = 6, y = 36, aes(label = paste(agl,'^{o}')), parse = TRUE)

复制代码

谢谢您的回复，这样的确可以解决问题。我也通过查阅，发现使用Unicode字符也可以。谢谢

Unicode字符大全

hopui2017 发表于 2021-10-20 09:40
谢谢您的回复，这样的确可以解决问题。我也通过查阅，发现使用Unicode字符也可以。谢谢

https://baike.baidu.com/item/Unicode%E5%AD%97%E7%AC%A6%E5%88%97%E8%A1%A8/12022016?fr=aladdin