R ggrepel：いくつかのラベルを隠す

Question

こんにちは、特定のサブセットのラベルのみを表示しようとすると、美的なエラーが発生しています。例えば。私はこれを行うと

library("ggplot2") 
library(gplots) 
library(ggrepel) 

set.seed(10) 
data <- data.frame(label=letters[1:21], number= runif(21, min=0, max=100)) 
data$label <-factor(data$label) 

ggplot(data, aes(x=label, y=number, fill=data$label)) + 
geom_bar(stat="identity") + 
geom_text_repel(data= data[data$number > 80,], aes(label =data$label), 
        arrow = arrow(length = unit(0.01, 'npc')), box.padding = unit(1.5, 'lines'),color="black" ) 

は、私はまだエラーが出るようなc("label1","label2") ベクターでラベルを交換する場合でも、次のエラーに

Error: Aesthetics must be either length 1 or the same as the data (2): label, x, y, fill 

を取得します。

私は何か間違っていますが、私はそれを理解できません。私はこれを行うことができる唯一の方法は、ラベルと同じ長さの別のベクトルを作成することですが、直接サブセットする方法があると思います。ありがとう！

Answer 1

変更コードには：

ggplot(data, aes(x=label, y=number, fill=data$label)) + 
geom_bar(stat="identity") + 
geom_text_repel(data= data[data$number > 80,], aes(label =label), ##<- Change here 
        arrow = arrow(length = unit(0.01, 'npc')), box.padding = unit(1.5, 'lines'),color="black" ) 

の問題は、あなたがlabelは2行以内で評価することにしたいのに対し、あなたは、data$label、21行のデータフレーム内の列を使用geom_text_repel()内aesへの呼び出しでデータのサブセット。

このケースでは、データdataを呼び出すことで問題がわかりにくくなっています。より意味のあるものを見つけた場合は、エラーを特定する方が簡単です。