文章/答案/技术大牛

发布

社区首页 >问答首页 >气泡图中的scale_y_discrete :如何改变轴标签的字体？

问气泡图中的scale_y_discrete :如何改变轴标签的字体？
EN

Stack Overflow用户

提问于 2016-03-27 18:48:35

回答 1查看 1.7K关注 0票数 1

我是相对较新的R和我试图做一个泡泡情节，令人兴奋！除了我似乎不能做两件事外，大部分都在起作用：

更改轴标签的字体大小
改变两个传说的位置

变量(数据表)：

ycode = 4范畴，我给出了数字(1-3;7-9;13-15;19-21)，以允许y-轴上的某些间距。

我对这个变量进行了一些抖动，以将气泡从彼此中拉出来。

具有数字的staging = 15脑区，按我希望它们出现在X轴Group = 4 groups上的顺序排列。

这是代码：

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)的位置，但没有发生任何变化。

有什么建议吗？

ggplot2

scale

legend

回答 1

Stack Overflow用户

发布于 2016-03-27 19:07:55

没有数据，就不可能重现你的确切问题，但看起来你已经走上了正确的轨道。您的设置应该类似于：

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_classic放在特定的theme之后。如果你有相互冲突的值，最后添加的都是所绘制的内容。例如，如果我使用上面的代码，但将theme_classic移动到末尾，我将得到

票数 2

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/36251223

复制

相似问题

问气泡图中的scale_y_discrete :如何改变轴标签的字体？
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问气泡图中的scale_y_discrete :如何改变轴标签的字体？EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问气泡图中的scale_y_discrete :如何改变轴标签的字体？
EN