如何解决如何在带有希腊字母的 ggplot 标题中使用上标
如何用ggplot在标题中写一个带有上标的希腊字母(tau)?我试过如下:
cor <- cor(H2ORateTau[,"Tau"],H2ORateTau[,"Rate"])
ggplot(data = H2ORateTau,aes(x=Tau,y=Rate)) +
geom_point(col="red",size=1.5)+
geom_smooth(method="lm",se=TRUE) +
labs(title=expression(paste(Rate of decay vs tau^2)),subtitle=paste("Water Correlation Coefficient :",round(cor,digits=4)),y=expression(paste("R"["2obs"]*"(ms"^"-1"*")")),x=expression(paste(tau^2,(ms^2)))) +
theme_bw()
我不明白为什么 expression(paste())
适用于 x 标签而不适用于标题...任何提示将不胜感激。
解决方法
用您的数据试试这个:
#Code
ggplot(data = iris,aes(x=Sepal.Length,y=Sepal.Width)) +
geom_point(col="red",size=1.5)+
geom_smooth(method="lm",se=TRUE) +
labs(title=expression(Rate~of~decay~vs~tau^2),subtitle=paste("Water Correlation Coefficient :",round(cor,digits=4)),y=expression(paste("R"["2obs"]*"(ms"^"-1"*")")),x=expression(paste(tau^2,(ms^2)))) +
theme_bw()
输出:
您的代码如下所示(未测试,因为没有共享数据):
#Code
ggplot(data = H2ORateTau,aes(x=Tau,y=Rate)) +
geom_point(col="red",(ms^2)))) +
theme_bw()
,
可能,我们需要将 paste
更改为
plot(1,1,main = expression(paste("Rate of decay vs",tau^2)))
或者在 OP 的代码中
ggplot(data = H2ORateTau,y=Rate)) +
geom_point(col="red",size=1.5)+
geom_smooth(method="lm",se=TRUE) +
labs(title= expression(paste("Rate of decay vs",tau^2)),(ms^2)))) +
theme_bw()
-使用可重现的示例
ggplot(data = iris,aes(x = Sepal.Length,y = Sepal.Width)) +
geom_point(col="red",size=1.5)+
geom_smooth(method="lm",se=TRUE) +
labs(title=expression(paste("Rate of decay vs ",tau^2)))
-输出
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。