如何将表达式（cos（alpha））添加到标签中？

Question

我试图在箭头上写上标签：

  

|| X || cos（alpha）

但我似乎无法使其发挥作用。

我可以毫无问题地编写||x||，并且可以毫无问题地编写cos（alpha），但我不知道如何将它们写成一个语句。

有什么想法吗？

这是我的代码：

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

研究help("plotmath")和演示。

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

您还可以使用bquote：

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

Answer 3

将粘贴的元素传递给expression可以解决此问题。例如：

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