Należy zanotować linię na wykresie log-lin. Jak sprawić, aby ciąg tekstowy (tutaj "0000000000") był równoległy do linii, do której się przypisuje?Jak zrobić geom_text() równolegle do geom_segment() w skali log-lin?
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()
Wydaje się to bardzo trudne (nawet bez skali logarytmicznej), chyba że ustalenie proporcji, określając 'coord_fixed (współczynnik =)'. ** [Zajrzyj tutaj **] (https://groups.google.com/forum/?fromgroups=#!topic/ggplot2/1OgeP4YBoJo) –
Arun