Cách chú thích() ggplot bằng latex

Question

Tôi muốn thêm văn bản cao su vào ô ggplot2 sử dụng annotate(). Sử dụng expression(), như được mô tả here để thêm nhãn mác vào trục, dường như không hoạt động. Để wit:

# Use expression() to create subscripted text 
p <- ggplot(mpg, aes(x=cty, y=hwy)) + geom_point() + 
    scale_x_continuous(expression(text[subscript])) 

# But expression() in annotate adds nothing to the plot 
p + annotate("text", x=10, y=40, label=expression(text[subscript])) 

# Passing regular text to annotate works fine 
p + annotate("text", x=10, y=40, label="foo") 

Tại sao expression s đối xử khác biệt bởi annotate hơn bởi các chức năng ggplot khác? Và làm thế nào tôi có thể chú thích bằng latex?

Answer 1

Bạn có thể sử dụng parse tranh luận, mà không expression:

p + annotate("text", x=10, y=40, label="text[subscript]", parse=TRUE) 

Answer 2

Các tikzDevice gói đã trở lại trên cran (phiên bản mới nhất 0.9 được công bố tháng 11 năm 2015).

Sử dụng tikz yêu cầu cài đặt LaTeX đầy đủ; nó có thể dễ dàng nhất để thực hiện qua knitr trong tài liệu LaTeX (chỉ cần đặt dev="tikz" trong các tùy chọn đoạn). Tuy nhiên, bạn có thể sử dụng nó để tạo ra một con số độc lập là tốt. Trớ trêu thay, phần khó nhất của câu hỏi này đã nhận được một subscript văn bản, mà đòi hỏi phải có một gói LaTeX bổ sung (fixltx2e) cho lệnh \textsubscript ...

library(tikzDevice) 
## add a package to the defaults 
options(tikzLatexPackages= 
      c(getOption("tikzLatexPackages"),"\\usepackage{fixltx2e}")) 
tikz("tikz.tex",standAlone=TRUE) 
library("ggplot2"); theme_set(theme_bw()) 
p <- ggplot(mpg, aes(x=cty, y=hwy)) + geom_point() + 
    scale_x_continuous(name="text\\textsubscript{subscript}") 
p + annotate("text", x=10, y=40, label="text\\textsubscript{subscript}") 
dev.off() 

system("pdflatex tikz.tex") 

Answer 3

Có được một gói R gọi latex2exp mà có thể hữu ích. Nó có chức năng TeX mà chấp nhận một số biểu thức LaTeX kèm theo ký hiệu đô la $ như trong ví dụ này:

library(latex2exp) 
library(ggplot2) 

qplot(1, "A")+ 
    ylab(TeX("Formula: $\\frac{2hc^2}{\\lambda^\\beta}$"))+ 
    xlab(TeX("$\\alpha$")) 

Thêm ví dụ có thể được tìm thấy trong this vignette.