Início / coding / Perguntas / 79177929
Accepted
Saïd Maanan
Asked: 2024-11-11 21:54:06 +0800 CST

Use expression() dentro de uma matriz para criar uma legenda em R

  • 772

Em um experimento que estou realizando, a legenda do gráfico é criada da seguinte maneira:

eigenvalues <- t(c(1,2))
plot(1)
# Legend
legend_text <- cbind(
  paste("λ1 =", eigenvalues[, 1]),
  paste("λ2 =", eigenvalues[, 2])
)
legend("topright", legend = legend_text, text.col = "black", bty = "n", cex = 1)

insira a descrição da imagem aqui

Porém, em vez de "λ1 ="Eu gostaria de usar lambda[1], mas quando eu uso recebo o seguinte erro:

legend_text <- cbind(
  expression(lambda[1] == eigenvalues[, 1]),
  expression(lambda[2] == eigenvalues[, 2])
)

Error in cbind(expression(lambda[1] == eigenvalues[, 1]), expression(lambda[2] ==  : 
  cannot create a matrix from type 'expression'

Como usar expression(lambda[1]a legenda sem receber uma mensagem de erro?

2 respostas

  1. Best Answer

    Para usar a análise plotmath, você precisa fornecer expressões:

    legend_text <- lapply(1:2, \(j) bquote(lambda[.(i)] == .(e), 
                                       list(i = j, e = eigenvalues[, j])))
    • 3

  2. Crie um vetor de strings de legenda legend_str, e então converta cada elemento em um objeto de linguagem:

    eigenvalues <- 1:2
lambda <- c("lambda[1]", "lambda[2]")

plot(1)

legend_str <- paste(lambda, "==", eigenvalues)
legend("topright", legend = lapply(legend_str, str2lang), bty = "n")

    captura de tela

    • 0

relate perguntas