2012-11-20 48 views
1

我在[R产生的情节,并保存为PDF有:不正确识别的数学符号

pdf(
    file='Plots/errors.pdf', 
    height=4, 
    width=7, 
    onefile=TRUE, 
    family='Helvetica', 
    pointsize=12 
) 

# Here is my graphics 

dev.off() 

某处里面的图形,我有:

mtext(
    expression(mu[H1]) 
) 

它产生整齐PDF与正确处理的希腊字母μ

然后我导入此PDF乳胶文章有:

\includegraphics[width=1\textwidth,height=0.4\textheight]{../Plots/errors.pdf} 

但不是无限远(∞)的μ迹象显示。

为什么?

+2

您使用的是哪种PDF阅读器?在Adobe Acrobat阅读器中看起来很好,但在Evince中说错了......我认为它是一个编码问题... – Spacedman

+0

@Spacedman嗯,真的!我正在使用Adobe Acrobat和TeXStudio PDF Viewer。 –

+1

你想截图吗?如果你阅读帮助(pdf),它会讨论这样的问题。 – Spacedman

回答

0

对于没有编码问题的无缝集成,我会看包'TikzDevice'。它以LaTeX格式输出Tikz图像。例如:

require(tikzDevice) 


setwd("/Path/To/LaTeX/Files/") 

#Names of LaTeX symbols 
syms <- c('alpha', 'theta', 'tau', 'beta', 'vartheta', 'pi', 'upsilon', 'gamma', 'varpi', 'phi', 'delta', 'kappa', 'rho', 'varphi', 'epsilon', 'lambda', 'varrho', 'chi', 'varepsilon', 'mu', 'sigma', 'psi', 'zeta', 'nu', 'varsigma', 'omega', 'eta', 'xi', 'Gamma', 'Lambda', 'Sigma', 'Psi', 'Delta', 'Xi', 'Upsilon', 'Omega', 'Theta', 'Pi', 'Phi') 
len <- length(syms) 

# random colors (red, green, blue) 
r <- round(runif(len), 2) 
g <- round(runif(len), 2) 
b <- round(runif(len), 2) 

# calculate dummy data points 
x <- runif(50,1,10) 
y <- x + rnorm(length(x)) 
fit <- lm(y ~ x) 
rsq <- summary(fit)$r.squared 
rsq <- signif(rsq,4) 

# plot the result, will create symbol-regression.tex in the working 
# directory the first time this is run it may take a long time because the 
# process of calulating string widths for proper placement is 
# computationally intensive, the results will get cached for the current R 
# session or will get permenantly cached if you set 
# options(tikzMetricsDictionary='/path/to/dictionary') which will be 
# created if it does not exist. Also if the flag standAlone is not set to 
# TRUE then a file is created which can be included with \include{} 

tikz('symbolr.tex', width = 4,height = 4,pointsize = 12) 

# The syntax is mar=c(bottom, left, top, right). 
par(mar=c(2,2,2,2)) 
# plot the box and the regression line 
plot(x, y, type='n', xlab='', ylab='') 
box() 
abline(fit) 

# add the latex symbols as points 
text(x, y, paste('\\color[rgb]{',r,',',g,',',b,'}{$\\',syms,'$}',sep='')) 
# Display the correlation coefficient 
mtext(paste("Linear model: $R^{2}=",rsq,"$"),line=0.5) 
# and the equation of the line 
legend('bottom', legend = paste("$y = ", round(coef(fit)[2],3),'x +', round(coef(fit)[1],3), '$', sep=''), bty= 'n') 

# Close the device 
dev.off() 

然后,您只需在LaTeX文档中包含从R输出的文件即可。