r - geom_text 不使用 scale_y_log10 出现

Question

我可以使用很好的方式将文本添加到 ggplot geom_text（使用汽车数据库的示例）：

ggplot(cars, aes(speed, dist), color='blue') + 
geom_point(size=0.8) + 
geom_text(y=25, x=5, aes(label=paste("sigma == 1"), size=1.5), 
    hjust=0, parse=TRUE, color='blue')

但是当我将 y 比例更改为对数时，我无法让文本出现在图表上：

ggplot(cars, aes(speed, dist), color='blue') + 
geom_point(size=0.8) + 
geom_text(y=25, x=5, aes(label=paste("sigma == 1"), size=1.5), 
    hjust=0, parse=TRUE, color='blue') + 
scale_y_log10()

我试过改变文本大小和位置，但似乎无法得到它。

Answer 1

这对我有用：

require(ggplot2)
g <- ggplot(cars, aes(speed, dist), color='blue')
g <- g + geom_point(size=0.8)
g <- g + geom_text(aes(y=25, x=5, label=paste("sigma == 1"), size=1.5), hjust=0, parse=TRUE, color='blue')
g <- g + scale_y_log10()
g

http://www.r-fiddle.org/#/fiddle?id=GVWg1dDO

Answer 2

这效果更好：

ggplot(cars, aes(speed, dist), color='blue') + 
    geom_point(size=0.8) + 
    geom_text(y=2, x=5, aes(label=paste("sigma == 1"), size=1.5), 
        hjust=0, parse=TRUE, color='blue') + 
    scale_y_log10()

在此处输入图像描述

正常到对数刻度：100 -> 2；1000 -> 3；0.1 -> -1；0.01 -> -2