ggplot2凡例のラベルの添字（またはその他の数式）

Question

scale_colour_discreteを使用して、ggplot2 geom_pointの色の凡例に添字を追加しようとしました。 FUNで 誤差（X [1L]]、...）： 'は二重' 型のベクターにタイプ 'シンボル' を強制することはできませんが、同様の問題は、しかし、次のエラーが発生しhere

p <- ggplot(myData, aes(myFeature1,myFeature2)) 
p <- p + geom_point(aes(colour = myFeature3)) + facet_grid(n ~ cond) 
p <- p + scale_colour_discrete(breaks = levels(myData$myFeature3), labels = c(expression(myFeature3[1]),expression(myFeature3[2])) 

をポップアップ

labels定義expressionではなく、このエラーは発生しません。それはexpressionの中に何があっても起こります。

件名に関するアイデアはありますか？ scale_colour_discreteはexpressionで動作しませんか？それらの凡例のファクター名に添字を付ける別の方法がありますか？

ありがとうございます！

Answer 1

データなしでこれを複製することはできません。ヘルプ（scale_colour_discrete）で説明したように「ダイヤモンド」データと類似した何かをしよう：

d + scale_colour_discrete(breaks=levels(diamonds$clarity),labels=rep(expression(a^2),8)) 

作品を、数学表記で二乗して、すべてのレベルを標識します。

作品は、すべてのレベルで明確な添え字1でラベル付けされています。

Answer 2

ダイヤモンドカットのラベルがCut_1、...、Cut_5に置き換えられたdiamondsデータセットを使用する例を示します。

ggplot(diamonds, aes(x = carat, y = price)) + 
    geom_point(aes(colour = cut)) + 
    facet_grid(color ~ clarity) + 
    scale_colour_discrete(breaks = levels(diamonds$cut), 
         labels = c(expression(Cut[1]), 
            expression(Cut[2]), 
            expression(Cut[3]), 
            expression(Cut[4]), 
            expression(Cut[5]))) 

問題の解決方法を見つけるのに役立たない場合は、他の人がトラブルシューティングを行うための再現可能な例を提供できますか？