バブルプロットのscale_y_discrete：軸ラベルのフォントを変更する方法は？

Question

私はRには比較的新しいですし、私はバブルプロットをしようとしています！ 私は二つのことを行うことができるようには見えません除いて、それのほとんどは、働いている：

1. 軸のフォントサイズの変更が
2. 変更2つの伝説

の位置にラベルを付けます

変数（datasheet）：私は、y軸上のいくつかの間隔を可能にするために数字を(1-3;7-9;13-15;19-21)を与え

ycode = 4カテゴリ

私はこれは彼らがX軸上 Group = 4 groups

を表示したいという順に数字を持って互いに

staging = 15脳領域の外に泡を引っ張って、この変数にいくつかのジッタを適用していますコード：

bub$jitTau <- jitter(as.numeric(factor(bub$ycode))) 

gp <- ggplot(data = bub, aes(x = bub$staging, y = bub$ycode, 
          size = bub$sample_size, color = bub$Group)) + 
    geom_point(data = bub, aes(x = bub$conc_area, y = bub$jitTau, 
           size = bub$sample_size, color = bub$Group) + 
    theme_classic(base_size = 35)) 

gp <- gp + scale_size(range = c(5, 35), name = "Sample size") + 
    scale_y_discrete(breaks = c(3, 8, 13, 19), 
        labels = c("p-tau/abeta", "t-tau/abeta", "p-tau", "t-tau")) + 
    labs(x = "Brain Regions", y = "CSF measures") + 
    scale_x_discrete(breaks = 1:15, labels = c("EC", "Hipp", "PHG", "Amyg", "ITG", 
               "Fusiform", "MTG", "STG", "Lat parietal", 
               "PCC", "Precuneus", "Frontal", "Striatum", 
               "Thalamus", "Occipital"), 
        limits = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)) + 
    geom_hline(yintercept = c(5, 11, 17, 22), colour = "grey") + 
    scale_colour_manual(name = "Group", breaks = c("All", "HC", "MCI", "AD"), 
         values = c("#333333", "#006600", "Blue", "Red")) + 
    guides(colour = guide_legend(override.aes = list(size = 18))) + 
    theme(axis.title.x = element_text(size = 30), 
      axis.title.y = element_text(size = 20), 
      axis.text = element_text(size = 16)) + 
    theme_classic(base_size = 35) 

gp 

私はtheme(axis.text.x = element_text(size = 18))でいくつかのことを試してみましたが、Rは、それに応答しません。 私も凡例（legend.position）の位置を変更しようとしましたが、変更は起こりません。

提案がありますか？

Answer 1

正確な問題を再現することは不可能ですが、正しい軌道に乗っているようです。あなたのセットアップは次のようになります。私はあなたの努力を台無しに何だと思い

ggplot(iris, aes(x = Petal.Length, y = Petal.Width, colour = Species)) + 
    geom_point() + 
    theme_classic() + 
    theme(text = element_text(size = 15, family = 'Garamond'), 
      legend.position = 'bottom', 
      legend.direction = 'horizontal') 

をお特定のtheme後theme_classicを入れているということです。競合する値がある場合は、最後に追加されたものがプロットされます。私は上記の正確なコードを使用しますが、最後までtheme_classicを移動した場合、私は