그리스어 문자를 동적 첨자로 사용하기

Question

rplot main title에 동적 첨자가 붙은 그리스 문자를 사용해야합니다. 내가 아래의 코드에서 'main'문에서했던 것처럼 표현식과 붙여 넣기를 사용하면 아래 첨자의 값은 숫자가 아닌 문자로 나타납니다. 아래 첨자의 값을 얻기 위해 붙여 넣기를 사용할 수 있습니다. 아래 코드의 'sub'문을 참고하십시오. 그러나이 경우에는 그리스 문자가 나타나지 않습니다 !!

어떤 생각 ..

감사

# Generating Random Variables 

# Exponential(1) 

inv.cdf=function(n, lambda){ 
    u=runif(n,0,1) 
    x=-log(1-u)/lambda 
} 


nu=sample(1:15,6) 
y=matrix(rep(NA),10000,length(nu)) 
for(j in 1:length(nu)){ 
for (i in 1:10000){ 
    y[i,j]=2*sum(inv.cdf(nu[j], 1)) 
} 
} 

par(mfrow = c(3, 2)) 
for(j in 1:6){ 
hist(y[,j], freq=F, main=expression(paste('Histogram of Generated ',chi[2*nu[j]], ' Data')), sub= paste('Degrees of Freedom = ', nu[j]), xlab=expression(paste('Generated ' ,chi^2 ,' Data'))) 
curve(dchisq(x, df=2*nu[j]),add=T, col=2, lwd=2) 
} 

Answer 1

나는 당신이 당신이 원하는 값 (귀하의 경우 j)는 식의 특정 값을 대체 할 수 있습니다 substitute을 찾고있다 생각합니다. 따라서 이것을 사용하면 hist 함수에서

main=substitute(
     expression(paste('Histogram of Generated ',chi[2*nu[j]], ' Data')), 
     list(j=j) 
    ) 

함수를 사용하면됩니다.