r - 如何在log-lin尺度上使geom_text()与geom_segment()平行？

需要在对数林图中标注一条线。如何使文本字符串(此处为“0000000000”)与要注释的行平行？

require(ggplot2)
require(scales)
x=c(1:10)
y=2^x
data_line <- data.frame(x=3,xend=8,y=2^8,yend=2^9)
line <- geom_segment(data=data_line,aes(x=x,xend=xend,y=y,yend=yend),color="blue")
angle= atan((data_line$yend - data_line$y) / (data_line$xend - data_line$x))*(180/pi)
text <- annotate("text",x=data_line$x,y=data_line$y,label="0000000000",angle=angle)
qplot(x=x,y=y,geom="line") + line + text + scale_y_log10()

最佳答案

这是使用coord_fixed做到这一点的一种方法:

ratio <- .25/(256/5) # 256/5 is from (512-256)/(8-3)
df1 <- data.frame(x = 1:10, y = 2^(1:10))
d <- data.frame(xmin=3, xmax=8, ymin=256, ymax=512, annotation="bla")
ggplot() + geom_line(data = df1, aes(x=x, y=y)) +
    geom_segment(data=d, aes(x=xmin, xend=xmax, y=ymin, yend=ymax)) +
    geom_text(data = d, aes(x=4, y=256/5 * 4 + 512/5,
    label=annotation, angle=atan2((ymax-ymin)*ratio,
    (xmax-xmin)) * 180/pi), vjust=-0.5) + coord_fixed(ratio=ratio)

为了使其达到对数刻度，似乎有些棘手:

ratio <- -log10(.25/(256/5)) # 256/5 is from (512-256)/(8-3)
df1 <- data.frame(x = 1:10, y = 2^(1:10))
d <- data.frame(xmin=3, xmax=8, ymin=256, ymax=512, annotation="bla")
ggplot() + geom_line(data = df1, aes(x=x, y=y)) +
    geom_segment(data=d, aes(x=xmin, xend=xmax, y=ymin, yend=ymax)) +
    geom_text(data = d, aes(x=4, y=256/5 * 4 + 512/5,
    label=annotation, angle=log10(atan2((ymax-ymin)*ratio,
    (xmax-xmin)) * 180/pi)), vjust=-0.5) + coord_fixed(ratio=ratio) + scale_y_log10()

关于r - 如何在log-lin尺度上使geom_text()与geom_segment()平行？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/16167387/