文章/答案/技术大牛

发布

问在ggpubr中添加后层
EN

Stack Overflow用户

提问于 2021-11-10 17:26:51

回答 1查看 33关注 0票数 0

我使用以下代码行从ggpubr图中删除了箱线图：

plot$layers <- plot$layers[-1]

我在这个堆栈帖子上看到了这个解决方案：Boxplots with ggpaired() WITHOUT connecting lines

我对ggpubr不是很熟悉，但我认为它适合于这组特定的情节。我被告知要删除boxplot，现在又将其添加回来，现在我被卡住了。我在想，我改变了环境设置，不知道如何将其恢复到原来的方式。

任何帮助都是非常感谢的！删除药物名称后提供的曲线图。

绘图代码：

ggpar(ggpaired(data, x = "treatment", y = "value", 
                       color = "treatment", palette = c("#202960", "#8CC63E"),
                       add = "dotplot", title = "Jiang (TIDE) CTL Panel - Mock vs. Drug",
                       xlab = "Treatment", ylab = "CTL Score",
                       width = 0, point.size = 2, 
                       linetype = "dashed", line.color = "gray") +
                stat_compare_means(method = "t.test", paired = TRUE, 
                                   label.x = 1.4, label.y = 1.8) +
                #geom_text_repel(data = data %>% filter(treatment == "Mock"), 
                #                aes(x = "Mock", y = value, label = subject), 
                #                nudge_x = -0.2, inherit.aes = FALSE, size = 3, 
                #                color = "#6c706d") +
                scale_y_continuous(breaks = c(0,0.25,0.5,0.75,1,1.25,1.5,1.75,2,2.25,2.5),
                                   labels = c("0","","0.5","","1.0","","1.5","","2.0","","2.5")) +
                coord_cartesian(ylim = c(0,2)), legend = "FALSE")

当前绘图示例：

目标绘图示例(减去geom_text_repel标签)：

Reprex：

data = structure(list(...1 = c("1", "2", "3", "4", "5", "6", "7", "1", 
"2", "3", "4", "5", "6", "7"), subject = c("G5", "G6", "G7", 
"G8", "G12", "G13", "G14", "G5", "G6", "G7", "G8", "G12", "G13", 
"G14"), value = c(0.733377605384461, 1.65662450012502, 1.38787220722645, 
1.37053666253192, 1.62679859595799, 0.541814589221617, 0.966081047005121, 
0.892329475047538, 1.75954000718932, 1.36253416559681, 1.22104521047091, 
1.61168414813187, 0.940537918248694, 1.00171611627718), treatment = c("Drug", 
"Drug", "Drug", "Drug", "Drug", "Drug", "Drug", "Mock", "Mock", 
"Mock", "Mock", "Mock", "Mock", "Mock")), row.names = c(NA, -14L
), class = "data.frame")

ggplot2

ggpubr

回答 1

Stack Overflow用户

回答已采纳

发布于 2021-11-10 17:51:19

我最终重新安装了这个包并更改了宽度(用width = 0.2代替width = 0)，这给了我目标图。

我相信下面这行代码会更改全局包设置，仅供参考：plot$layers <- plot$layers[-1]

编辑:不要紧...我只是太傻了..。我想我的宽度是0，这就是为什么它看起来很滑稽。请忽略我。

票数 0

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

原文链接：

https://stackoverflow.com/questions/69917665

复制

相似问题

问在ggpubr中添加后层
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在ggpubr中添加后层EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在ggpubr中添加后层
EN