ggplot2凡例ラベルにラテックスコードを追加するには？

Question

以下の例を考えてみます私は「$ A^H_ {TK} $」や「$を言う、ラテックス式に「A」から凡例のラベルと「B」に変更したい

p <- ggplot(data = data.frame(A=c(1,2,3,4,5,6,7,8),B=c(4,1,2,1,3,2,4,1),C=c("A","B","A","B","A","B","A","B"))) 
p <- p + geom_line(aes(x = A, y = B,color = C)) 

をB^h_ {tk} $ "である。

明らかに、回答hereによれば、これを実現する方法があります。しかし、私は本当にそれを動作させるために苦労しています。誰かが私のためにそれを分解することができますか？

Answer 1

library(ggplot2) 
df <- data.frame(A = c(1,2,3,4,5,6,7,8), 
       B = c(4,1,2,1,3,2,4,1), 
       C = c("A","B","A","B","A","B","A","B") 
       ) 
ggplot(df) + 
    geom_line(aes(x = A, y = B,color = C)) + 
    scale_color_discrete(labels = c(expression(A[t-k]^h), expression(B[t-k]^h)))