ggplotグラフの2つのラベルを持つGeom_text

Question

私はggplotグラフに追加したいラベルを追加して苦労しています。ここで

私のデータセットである：

Group     Gaze direction Counts Duration 
Expert Performers  game table  148  1262.122 
Expert Performers  objects table 40  139.466 
Expert Performers  other   94  371.191 
Expert Performers  co-participant 166  387.228 
Non-Performers   game table  223  1137.517 
Non-Performers   objects table 111  369.26 
Non-Performers   other   86  86.794 
Non-Performers   co-participant 312  566.438 

これは私が使用しているコードです：

ggplot(b, aes(x=Group, y=Gaze.direction))+ 
    geom_count(mapping=aes(color=Counts, size=Duration))+ 
    theme_bw()+ 
    theme(panel.grid.major = element_line(colour = "grey"))+scale_size(range = c(0, 8))+ 
    scale_colour_gradient(low = "black", high = "gray91")+ 
    scale_y_discrete(name ="Gaze direction") + 
    geom_text(aes(label=Counts,hjust=-1, vjust=-1)) 

を希望グラフが、それはだカウント数を（含まれている必要がありますすでに存在している）、また、カッコ内の持続時間（すべてのデータ点についてグラフで赤で表示）を示します。

私はそれを非常に感謝し、私のコードを修正することができますどのようにアイデアを持っている人は、存在する場合。

Answer 1

あなたのデータをdput()出力として投稿してください！

あなたはこれを試すことができます：私はあなたの変数の値（カウント&期間）の両方が実装されるgeom_text(): label引数にpaste()機能を使用していた

library(ggplot2) 
b <- data.frame(Group = c("Expert Performers","Expert Performers","Expert Performers","Expert Performers","Non-Performers","Non-Performers","Non-Performers","Non-Performers"), 
        Gaze.direction = c("game table","objects table","other","co-participant","game table","objects table","other","co-participant"), Counts = c(148,40,94,166,223,111,86,312), Duration =c(1262.122,139.466,371.191,387.228,1137.517,369.26,86.794,566.438)) 

ggplot(b, aes(x=Group, y=Gaze.direction))+ 
    geom_count(mapping=aes(color=Counts, size=Duration))+ 
    theme_bw()+ 
    theme(panel.grid.major = element_line(colour = "grey"))+scale_size(range = c(0, 8))+ 
    scale_colour_gradient(low = "black", high = "gray91")+ 
    scale_y_discrete(name ="Gaze direction") + 
    geom_text(aes(label=paste("(",Counts,",",Duration,")"),hjust=-1, vjust=-1)) 

。