求助！如何作这样的图？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如图，在R语言中如何做出这样的图，即在做两两比较的时候，在柱状图上方标出横线，以及两者的显著性差异水平？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 柱状图 如何

1. library(tidyverse)
   
2. # 先准备一个画线段用的数据框
   
3. df <- data_frame(x1 = 1, x2 = 3, y1 = 5.3, y2 = 5.3)
   
4. 
   
5. #  准备示范用的数据,不用理会
   
6. example <- iris %>%
   
7. tbl_df() %>%
   
8. gather(type, len, 1:4) %>%
   
9. group_by(Species) %>%
   
10. summarise(mean = mean(len)) %>%
    
11. ungroup() %>%
    
12. mutate(Species = as.character(Species))
    
13. 
    
14. # 画图
    
15. example %>%
    
16. ggplot(aes(x = Species, y = mean)) +
    
17. geom_bar(stat = "identity") +
    
18. ylim(0, 6) +
    
19. geom_segment(data = df, aes(x = x1, y = y1, xend = x2, yend = y2), size = 1) +
    
20. annotate("text", x = 2, y = 5.5, label = "Rho = 0.001")

复制代码

cheetahfly 发表于 2017-2-23 12:16

受教了，多谢大神。再一问，如何在扰动点图中添加一条横线作为均数值呢?

不确定你问的，猜测应该还是用geom_segment(), geom_hline()之类的。