首页 > 其他分享 >R绘图(06)——带errorbar的柱状图

R绘图(06)——带errorbar的柱状图

时间:2024-08-21 19:48:02浏览次数:11  
标签:06 text errorbar element 柱状图 绘图 summary data Mean

 

 

每次找R绘图美化都很麻烦,索性自己写个笔记慢慢补充绘图美化的指令

### 生成数据 ###
# 设置种子以获得可重复的结果
set.seed(222)
# 生成字符序列 "AAAABBBB"
char_sequence <- c("A", "A", "A", "A", "B", "B", "B", "B")
# 生成相应数量的随机数,这里使用正态分布
random_numbers <- runif(8, min = 0, max = 100)
# 创建数据框
data_frame <- data.frame(Char = char_sequence, Value = random_numbers)

# 计算每个条件下的平均值和标准差
summary_data <- data_frame %>%
  group_by(Char) %>%
  summarise(
    Mean = mean(Value),
    StdErr = sd(Value, na.rm = TRUE) / sqrt(n()) 
  )

#### 绘图 ####
ggplot() +
  geom_col(data = summary_data, aes(x = Char, y = Mean), fill = "lightblue") +  # 绘制柱状图
  geom_errorbar(data = summary_data,  # 使用summary_data数据框中的均值和标准差
                aes(x = Char, ymin = Mean - StdErr, ymax = Mean + StdErr),
                width = 0.2, position = position_dodge(0.5)) +
  geom_point(data = summary_data,  # 在均值位置添加点
             aes(x = Char, y = Mean),
             position = position_dodge(0.5),
             color = "red") +
  labs(x = "Character", y = "Value", title = "Bar Chart with Error Bars") + # 设置变量名称和title
  theme_minimal()+ #使用简洁主题 
  theme(axis.line = element_line(color = "black", size = 0.5),  # 显示轴的线条
  axis.text = element_text(size = 12),  # 轴标签文字大小
  axis.title = element_text(size = 14), # 轴标题文字大小
  panel.grid = element_blank()) +  # 去掉网格线 
  scale_y_continuous(limits =c(0, 90) ,expand = c(0,0)) # 贴近x轴

# + theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 旋转x轴标签角度

 

标签:06,text,errorbar,element,柱状图,绘图,summary,data,Mean
From: https://www.cnblogs.com/MJnotes/p/18372392

相关文章

  • P7706 文文的摄影布置 题解
    P7706文文的摄影布置题解原题读完题,发现是线段树。单点修改+区间查询。不过查询的值有些奇怪,就是了,我们考虑用线段树维护这个ψ值(下称待求值)。对于一个区间的待求值,大概有四种情况:如上图四种情况分别为:待求值最大值在左区间待求值最大值在右区间\(a_i与b_j\)在左......
  • 关于DensiStak™ 板对板连接器:10169063-5002100LF、10169063-5602100LF、10169064-500
    系列概述该DensiStak™板对板连接器是高密度连接器,采用双梁接触系统,可确保可靠性能。该连接器采用11排设计(具有多达1034个引脚位置)和开放式引脚现场设计,可提高灵活性。DensiStak连接器具有高达16Gb/s的高速性能,符合PCIe®Gen4、以太网、USB、DP和MIPI协议。DensiStak板对板连......
  • 60米大量程!YUNYI-806S型雷达液位计,液位测量新选择!
    『液位计』就是用来测量并显示罐体内液位高度的,常见的测量频率为24G、26G或者80G,而传统的低频雷达液位计一般测量频率为6.3G或6.8G,目前雷达液位计已成为市场的主流产品,主要分为脉冲雷达液位计和导波雷达液位计,我们今天就来详细了解一款高频雷达液位计!80G高频雷达液位计YUNYI......
  • 柱状图倒圆角4.9版本
     series处理conststackInfo={};for(leti=0;i<series[0].data.length;++i){for(letj=0;j<series.length;++j){conststackName=series[j].stack;if(!stackName){continue;}......
  • (附源码)基于springboot的清华逸景闲置房租赁系统的设计与实现-计算机毕设 09065
    基于springboot的清华逸景闲置房租赁系统的设计与实现目 录摘要1绪论1.1选题背景与意义1.2国内外研究现状1.3系统开发创新之处1.4论文结构与章节安排2系统分析2.1可行性分析2.2 系统功能分析2.2.1功能性分析2.2.2非功能性分析2.3 系统用例......
  • 题解:P10724 [GESP202406 七级] 区间乘积
    思路当一个数是完全平方数的时候,它的所有质因子的次数都是偶数。记\(x\)的质因子为\(p_1^{q1}\timesp_2^{q2}\timesp_3^{q3}...\timesp_v^{qv}\)。这些数可以通过次数的奇偶性用一个\(v\)位的二进制串\(B\)表示,\(B_i\)为\(0\)说明\(q_i\)为偶数,\(B_i\)为\(......
  • 题解:P10696 [SNCPC2024] 写都写了,交一发吧
    前置知识位运算按位与的运算规则:二进制下,相同位的两个数字都为\(1\),则为\(1\);若有一个不为\(1\),则为\(0\)。分析由按位与的运算规则可以得到:\(A\&A=A\),而题目中的两次提交可以是相同的,所以两次都只需要取\(n\)个数中最大的数即可。ACcode#include<bits/stdc++.h>us......
  • 题解:P10722 [GESP202406 六级] 二叉树
    思路朴素做法当输入\(a_i\)后,直接将它及它的子树进行变换。而这样时间会超时。预计得分\(40\)pts。正解统计每次变换的节点编号,第\(i\)个节点作为根节点进行子树变换的次数为\(rec_i\)。最后从这棵树的根节点\(1\)开始向下dfs,则每个节点变换的次数为\[rec_i+k_j\]......
  • YSP_refs_cn_2006
    rhTNFR-Fc中文文献-2006 类风湿关节炎 随机对照临床试验[1–3] [1]黄建林,吴玉琼,古洁若,等.重组人Ⅱ型肿瘤坏死因子受体-抗体融合蛋白对类风湿关节炎病人实验室指标的影响的初步观察[J/OL].医学理论与实践,2006,19(10):1137-1139[2024-08-20].https://d.wan......
  • python基础(06控制语句)
    python系列文章目录python基础(01变量&数据类型&运算符)python基础(02序列共性)python基础(03列表和元组)python基础(04字符串&字典)python基础(05集合set)文章目录python系列文章目录前言一、语句块二、bool类型:Ture、False三、条件判断(if、else、elif)四、循环语句五、推......