Jak uzyskać wyrażenie (cos (alfa)) w etykietach?

Question

Próbuję uzyskać etykietę ze strzałką, która mówi:

|| x || cos (alpha)

Ale nie mogę sprawić, żeby działało.

Bez problemu mogę napisać ||x||, a cos (alpha) bez problemów, ale nie wiem, jak uzyskać je w jednym wyciągu.

Wszelkie pomysły?

Oto mój kod:

library(plotrix) 
library(shape) 

xlim <- c(-2, 6) 
ylim <- c(-2, 6) 
plot(0, type = "n", xlim = xlim, ylim = ylim,asp=1) 


Arrows(1,1,5,1) 
boxed.labels(3,1,labels="||x|| cos (a)",border=NA,xpad=1,ypad=1) 


Arrows(1,2,5,2) 
boxed.labels(3,2,labels=expression(cos (alpha)),border=NA,xpad=1,ypad=1) 

Answer 1

Studium help("plotmath") oraz demo.

plot(0, type = "n", xlim = xlim, ylim = ylim,asp=1) 
text(2,1,labels=expression(group("||", x, "||") %.% cos(alpha)),adj=c(1.2,-1.5)) 
text(2,3,labels=expression(group("||", x, "||") ~ cos(alpha)),adj=c(1.2,-1.5)) 

Answer 2

Przechodząc wklejone elementy expression prac dla tego produktu. Na przykład:

plot.new() 
plot.window(xlim=c(0, 1), ylim=c(0, 1)) 
text(0.5, 0.5, expression(paste("||x|| cos(", alpha, ")"))) 

Answer 3

Można również użyć bquote:

plot(1, type = "n") 
text(1, 1, bquote("||x||" ~ cos(alpha)))