ggplot2のオーバーラップを避けるための因子レベルのグループ化

Question

ggplot2の助けを借りて数行の線グラフを作成し、互いに重なり合うテキストラベルの問題に直面しています。また、テキストの重複を避けるためにgeom_text_repelパッケージを使用しましたが、隣接する平均スコアがますます高くなるにつれて、それはますます面倒になります。私は以下のコードサンプルと主に使用されるデータを提供しています。

Category Dimension1 
AcademicWriting -0.7 
Brd.Discussions 0.6 
Brd.Interviews -2.4 
Brd.News 8.3 
Brd.Talks 0 
BusinessLetters 2.4 
ClassLessons 0.2 
Commentaries -12.9 
Comments -1.2 
CreativeWriting 1.4 
Documentaries -1.4 
F2FConversations -1.8 
FBGroups 0.4 
FBSt.Updates -1 
Ind.Blogs 0.1 
Inst.Writing 0.9 
NBrd.Talks -0.1 
NewsBlogs 0.4 
NewsReports 7.1 
Pol.Debates -1.4 
PopularWriting 0.5 
PressEditorials 1.8 
SocialLetters 0.6 
Speeches 3 
StudentWriting -2 
TechBlogs 1.7 
ThesesPresentations -0.8 
Tweets -2.8 

とコード：

それは、次のグラフになり

library(ggplot2) 
library(ggrepel) 
library(extrafont) 
loadfonts(device = "win") 
plot_graph <- function(d1, label_below = "", label_above = "") 
{ 
    d1 <- d1[order(-d1[,2]),] 
    d1$X <- rep(0, each=length(d1$Dimension1)) 
    attach(d1) 
    plot1 <- ggplot(data=d1, aes(x=X, y=Dimension1, label=Category)) + 
    geom_point() + 
    geom_text_repel(aes(label=Category), direction = "x", family="Times New Roman", size=4, max.iter = 2e2) + 
    theme_bw()+ 
    theme(axis.text.x = element_text(colour="black"), axis.text.y = element_text(colour="black"))+ 
    theme(text=element_text(family="Times New Roman"), panel.grid.major.y = element_blank(), panel.grid.minor.y = element_blank(), panel.grid.major.x = element_blank(), panel.grid.minor.x = element_blank(), axis.title.x=element_blank(), axis.title.y=element_blank(), axis.text.x = element_blank(), axis.ticks.x = element_blank()) + 
    geom_vline(xintercept = 0, linetype = 1) + 
    coord_cartesian(xlim = c(-3, 3)) + 
    geom_segment(aes(x = -2, y = 5+min(Dimension1), xend = -2, yend = max(Dimension1)-5), arrow = arrow(ends = "both"), alpha=0.5, size=0.5) + 
    geom_text(aes(x = -2, y = 6+min(Dimension1), label = label_below)) + 
    geom_text(aes(x = -2, y = max(Dimension1)-4, label = label_above)) 
    detach(d1) 
    plot1 
} 

plot4 <- plot_graph(d1 = d1, label_below = "", label_above = "") 
plot4 

：この問題を解決するための解決策がある場合は、複数の同様のスレッドを見た後 、私は知りません。しかし、因子レベル、すなわち隣接する平均スコアに従ってラベルをグループ化する考えがあります。 AcademicWriting、FBSt.Updates（この例では1番目と7番目の因子レベル）は、それぞれの平均スコアを-1に丸めた後にグループ化できます。そしてそれらはカンマで区切られた水平線で表示することができました。しかし、私はそれらをグループ化する方法を考えることができません。だからこそ私はあなたの助けを求めている、または重複する問題を解決する他の方法を要求している。ここで

Answer 1

はアイデアです：

は、あなたが希望として多くのグループに形成された切断変数によってグループをDimension1列をカットするカテゴリー名を貼り付け、y座標を計算します。テキストとポイントを同じ色にマッピングしましたが、必要はありません。

library(tidyverse) 

d1 %>% 
    arrange(desc(Dimension1)) %>% 
    mutate(cut = cut(Dimension1, 32), 
     X = 0) %>% 
    group_by(cut) %>% 
    mutate(label = paste(Category, collapse = ", "), 
     coord = mean(Dimension1), 
     label2 = ifelse(duplicated(label), NA, label)) %>% 
    ungroup() %>% 
    ggplot(aes(x=X, y=Dimension1, label=Category, color = label)) + 
    geom_segment(aes(x = -0.25, y = 5 + min(Dimension1), xend = -0.25, yend = max(Dimension1)-5), arrow = arrow(ends = "both"), alpha=0.5, size=0.5)+ 
    geom_point() + 
    geom_text(aes(label=label2, x = X+0.05, y = coord, color = label), family="Times New Roman", size=4, hjust = 0) + 
    theme_bw()+ 
    theme(axis.text.x = element_text(colour="black"), 
     axis.text.y = element_text(colour="black"))+ 
    theme(text=element_text(family="Times New Roman"), 
     panel.grid.major.y = element_blank(), 
     panel.grid.minor.y = element_blank(), 
     panel.grid.major.x = element_blank(), 
     panel.grid.minor.x = element_blank(), 
     axis.title.x=element_blank(), 
     axis.title.y=element_blank(), 
     axis.text.x = element_blank(), 
     axis.ticks.x = element_blank(), 
     legend.position="none") + 
    geom_vline(xintercept = 0, linetype = 1) + 
    coord_cartesian(xlim = c(-0.5, 3))