[R] Plot에 expression을 이용하여 특수기호 추가하기!

 

논문을 이용할때 가끔 log10, 10^2, 10^3 등과 같은 특수한 지수를 추가하려는 때가 있습니다.

 

log10의 경우 log만 이용하면 대부분의 사람들이 알수있겠지만 숫자가 다를 경우는 필수로 넣어줘야 하겠죠.

 

그럴때 사용하는 것이 expression입니다.

 

R에서 lim표현, 혹은 log 지수표현, 시그마와 같은 수식표현을 할때 사용하며 다음과 같이 코드를 이용하여 진행할 수가 있습니다.

 

 

plot(NA,xlim=c(0,10),ylim=c(0,10),axes = F,xaxt='n',xlab='',ylab = '')
text(1,0,'x value = 1',font=2,cex=2)
text(1,1,expression(log[10]))
text(1,2,expression(10[2]))
text(1,3,expression(10^2))
text(1,4,expression(x%+-%y:x%/%z:x%*%y))
text(1,5.5,expression(frac(x,y):atop(z,t):over(x,x)))
text(1,7,expression(list(x,y):list(x,cdots,y):x[1]+x[2]+ldots+x[n]))
text(1,8,expression(sqrt(x,10):sqrt(10,4)))
text(1,9,expression(sum(x[i],i==3,n)))
text(1,10.1,expression(prod(x[i],i=10,n)))     
abline(v=4)
text(7,0,'x value = 7',font = 2,cex=2)
text(7,1,expression(integral(f(x)*dx,a,b)))
text(7,2,expression(lim(f(x),x%->%0)￣))
text(7,3,expression(x%=>%y:x%<=>%y:x%<=%y:x%dblup%y:x%dbldown%y))
text(7,4,expression(hat(x):tilde(x):bar(x):widehat(xy):bar(xy):widetilde(xy)))
text(7,5,expression(x==y~x!=y~z%==%y%~~%z%=~%y%prop%z))
text(7,6,expression(A%supset%B:A%supseteq%B:B%subset%A:B%subseteq%A:A%in%B:B%notin%A))
text(7,6,expression(infinity))
text(7,7,expression(Sigma:sigma:Tau:tau:Phi:phi:Upsilon:upsilon))
text(7,8,expression(Alpha:alpha:Beta:beta:Gamma:gamma:Delta:delta:Epsilon:epsilon:Zeta:zeta:Eta:eta:Theta:theta))
text(7,9,expression(Iota:iota:Kappa:kappa:Lambda:lambda:Mu:mu:Nu:nu:Xi:xi:Pi:pi:rho:Pho))

아래서 부터 위순서로  찾아 보시면 되고

 

위와 같은 코드를 이용하였을경우 아래와 같이 결과가 나옵니다.

 

대부분의 수식들에 대해 찾아서 넣어 놨으니 R을 이용한 수식 만드는데에 사용하시길 바랍니다.

 

요즘 R말고 python을 이용한 분석을 해보려고 하고 있습니다. (탈 R중입니다.)

 

그래도 열심히 R에 대해서 포스팅을 할것이고, 추가로 python에 대해서도 잘 정리해서 올리도록 하겠습니다.

 

감사합니다.!

---

 

포스팅이 유용하셨다면 아무 광고나 한번 클릭해 주세요! (굽신굽신)