请选择 进入手机版 | 继续访问电脑版
楼主: lanhong1993
1209 3

[问答] 求助!如何作这样的图? [推广有奖]

  • 1关注
  • 1粉丝

博士生

54%

还不是VIP/贵宾

-

威望
0
论坛币
2701 个
通用积分
3.4261
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
12167 点
帖子
214
精华
0
在线时间
141 小时
注册时间
2016-11-1
最后登录
2024-3-26

lanhong1993 发表于 2017-2-23 10:52:40 |显示全部楼层 |坛友微信交流群
相似文件 换一批

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
filehelper_1487818186775_93.png


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

扫码加我 拉你入群

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

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

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

cheetahfly 在职认证  发表于 2017-2-23 12:16:42 |显示全部楼层 |坛友微信交流群
  1. library(tidyverse)
  2. # 先准备一个画线段用的数据框
  3. df <- data_frame(x1 = 1, x2 = 3, y1 = 5.3, y2 = 5.3)

  4. #  准备示范用的数据,不用理会
  5. example <- iris %>%
  6. tbl_df() %>%
  7. gather(type, len, 1:4) %>%
  8. group_by(Species) %>%
  9. summarise(mean = mean(len)) %>%
  10. ungroup() %>%
  11. mutate(Species = as.character(Species))

  12. # 画图
  13. example %>%
  14. ggplot(aes(x = Species, y = mean)) +
  15. geom_bar(stat = "identity") +
  16. ylim(0, 6) +
  17. geom_segment(data = df, aes(x = x1, y = y1, xend = x2, yend = y2), size = 1) +
  18. annotate("text", x = 2, y = 5.5, label = "Rho = 0.001")
复制代码
画图.png




使用道具

lanhong1993 发表于 2017-2-23 15:36:54 |显示全部楼层 |坛友微信交流群
cheetahfly 发表于 2017-2-23 12:16
受教了,多谢大神。再一问,如何在扰动点图中添加一条横线作为均数值呢?

使用道具

cheetahfly 在职认证  发表于 2017-2-23 17:41:27 |显示全部楼层 |坛友微信交流群
不确定你问的,猜测应该还是用geom_segment(), geom_hline()之类的。

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-3-28 18:10