折线图表示的是四种处理(未吸烟、吸烟、未吸烟加抗生素、吸烟加抗生素)的小鼠体重百分比变化情况,前半部分为暴露于烟雾时间,后半部分为终止烟雾处理后(灰色背景)。 叠加的柱状图表示两段时间4个实验组的体重的增量(有很多重复实验)。 加载R包 library(tidyverse) #ggplot2包,%>%管道符等。 library(reshape2) #数...
这个柱状图仍然有些不太满意,需要限制一下 y 轴的范围在[0.75, 1],还要为柱状图添加数字显示,如果能加上网格就更好了: > b <- barplot(rbind(data1, data2), main = "Plot Title", names.arg = xArgs, xlab = "X-axis Subtitle", ylab = "Y-axis Subtitle", beside = TRUE, col = colors, yl...
ggplot(aes(x='displ', y='cty'), mpg) 1. 2. 3. <ggplot: (321957793)> 1. 图层叠加 我们可以看到,已经绘制出一个空的ggplot图层,x轴为displ,y轴为cty。 接下来我们给这个图层上加上数据对应的散点,使用geom_point()直接追加在ggplot图层之上即可。 ( ggplot(aes(x='displ', y='cty'), mpg) ...
1.柱状图数据: 数据名:alpha6 2.折线图数据: 数据名:alpha7,受限篇幅,只展示部分数据 alpha6画柱状图,alpha7画4组折线图,两数据均为数据框data.frame格式,同有3类变量,其中alpha是y轴数据,year是x轴数据,时间均为2012-2021,factor为不同样本集属性,alpha6只有qs一类,alpha7有qs、jg、jh、js、zb四类,R根...
饼图 第一步:通过bing搜索关键词 ggplot2 pie chart 关键词 点开第一条搜索结果ggplot2 pie chart: Quick start guide - R software and data visualization,大体浏览,发现代码简单,自带数据,很容易重复,遂决定重复此例。 第二步:重复教程 生成数据
ggplot2软件包的stat_summary是可以可以直接实现添加误差线的。 1 2 3 4 ggplot(data_m,aes(x=Group, y=TB, fill = Salinity)) + stat_summary(fun = mean, geom ="bar", position =position_dodge(0.9), color ="black") + stat_summary(fun.data = mean_se, geom ="errorbar", position =posi...
这是由于比例造成的,折线图表示百分比,以十进制表示,而当前Y-axis 的值非常大。因此,我们需要一个次轴(另一个Y-axis ),以便在同一图表区域中正确地展示折线。需要使用ggplot2中的scale_y_continuous() 调整Y轴区间;使用sec_axis()添加次轴(另一个Y-axis)。
饼图 第一步:通过bing搜索关键词 ggplot2 pie chart 关键词 点开第一条搜索结果ggplot2 pie chart: Quick start guide - R software and data visualization,大体浏览,发现代码简单,自带数据,很容易重复,遂决定重复此例。 第二步:重复教程 生成数据
绘制折线图还是比较简单的,geom_point()加geom_line()函数即可,注意的是需要映射一个group,否则绘制折线图时无法识别分成两组折线。 绘制柱状图加折线图的双y轴图: ggplot(data1)+ geom_col(aes(factor(Week),median,fill=method), position = 'dodge',width = 0.8)+ ...
(data$concentration) # 绘制图表 ggplot() + geom_point(data = tension, aes(x = concentration, y = value, group = tension, color = tension, shape = tension)) + geom_line(data = tension, aes(x = concentration, y = value, group = tension, color = tension)) + theme_bw() + xlab(...