Loading [MathJax]/jax/output/CommonHTML/config.js
首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >专栏 >跟着NC学作图:R语言ggplot2分组散点图和拟合曲线

跟着NC学作图:R语言ggplot2分组散点图和拟合曲线

作者头像
用户7010445
发布于 2024-04-30 04:30:31
发布于 2024-04-30 04:30:31
46000
代码可运行
举报
运行总次数:0
代码可运行

论文

Genetic gains underpinning a little-known strawberry Green Revolution

https://www.nature.com/articles/s41467-024-46421-6

(这个论文还挺有意思的,抽时间仔细看看)

完整的作图代码

代码语言:javascript
代码运行次数:0
运行
AI代码解释
复制
library(tidyverse)
library(readxl)
library(patchwork)


fig1.dat<-read_excel("2024.data/20240429/Figure 1_UN-FAO_Observed_Predicted_Values.xlsx")

fig1.dat %>% colnames()

p1<-ggplot(data=fig1.dat,aes(x=Year,y=`Yield (kg/ha)`))+
  geom_point(aes(color=Soure),size=5)+
  geom_smooth(aes(color=Soure),method = "lm")+
  scale_color_manual(values=c("United_States"="#1c86ee","Euorpe"="#7f7f7f"))+
  theme_bw(base_size = 15)+
  theme(panel.grid = element_blank())+
  scale_y_continuous(labels = function(x){x/1000})+
  labs(y="Yield\n()kg/ha x 1,000)")+
  scale_x_continuous(breaks = seq(1960,2020,10))


p2<-ggplot(data=fig1.dat,aes(x=Year,y=`Area Harvested (ha)`))+
  geom_point(aes(color=Soure),size=5)+
  geom_smooth(aes(color=Soure),method = "lm")+
  scale_color_manual(values=c("United_States"="#1c86ee","Euorpe"="#7f7f7f"))+
  theme_bw(base_size = 15)+
  theme(panel.grid = element_blank())+
  scale_y_continuous(labels = function(x){x/1000})+
  labs(y="Acreage\n()ha x 1,000)")+
  scale_x_continuous(breaks = seq(1960,2020,10))


p3<-ggplot(data=fig1.dat,aes(x=Year,y=`Production (kg)`))+
  geom_point(aes(color=Soure),size=5)+
  geom_smooth(aes(color=Soure),method = "lm")+
  scale_color_manual(values=c("United_States"="#1c86ee","Euorpe"="#7f7f7f"))+
  theme_bw(base_size = 15)+
  theme(panel.grid = element_blank())+
  scale_y_continuous(labels = function(x){x/1000000000})+
  labs(y="Production\n()Kg x 1,000,000,000)")+
  scale_x_continuous(breaks = seq(1960,2020,10))

p1+p2+p3+
  plot_layout(nrow=1,guides = "collect")&theme(legend.position = "bottom")

image.png

数据分析过程中,cpu不给力,内存溢出,磁盘不足怎么办?缺生物云计算资源,可以选择我们的生物云计算。从2015年开始,青岛同源基因科技有限责任公司开始提供生物云计算服务,作为国内共享生物云解决方案开创者

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2024-04-29,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 小明的数据分析笔记本 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
暂无评论
推荐阅读
编辑精选文章
换一批
跟着PNAS学画图:R语言ggplot2分组添加拟合曲线
这篇论文的数据和代码是公开的,链接是 https://github.com/CPop-SDU/sex-gap-e0-pnas,我们按照他提供的代码和数据试着复原一下论文里的图。今天的推文重复的内容是论文中的Figure1A
用户7010445
2021/09/22
2.5K0
跟着Nature学作图:R语言ggplot2箱线图/散点图完整示例
https://www.nature.com/articles/s41586-022-04808-9#MOESM8
用户7010445
2023/01/06
1K0
跟着Nature学作图:R语言ggplot2箱线图/散点图完整示例
跟着Nature Communications学作图:R语言ggplot2散点图/折线图/误差线展示基因表达量
https://www.nature.com/articles/s41467-022-34206-8
用户7010445
2023/11/21
5820
跟着Nature Communications学作图:R语言ggplot2散点图/折线图/误差线展示基因表达量
跟着Nature Ecology&Evolution学作图:R语言ggplot2世界地图/柱形图/组合图
https://www.nature.com/articles/s41559-023-02235-1
用户7010445
2023/11/30
1.3K0
跟着Nature Ecology&Evolution学作图:R语言ggplot2世界地图/柱形图/组合图
答读者问:如何用R语言ggplot2画抖动散点图加分组拟合线
基本的形式就是抖动散点图再加上分组的拟合曲线,论文中具体用到的是什么数据我没有仔细看,这里我就用之前推文中的gwas数据来做演示
用户7010445
2023/08/23
6590
答读者问:如何用R语言ggplot2画抖动散点图加分组拟合线
R语言ggplot2散点图添加拟合曲线和回归方程的简单小例子
https://stackoverflow.com/questions/7549694/add-regression-line-equation-and-r2-on-graph
用户7010445
2021/07/30
27.5K0
跟着Nature学作图:R语言ggplot2频率分布直方图/堆积柱形图/散点图
https://www.nature.com/articles/s41586-022-04808-9#MOESM8
用户7010445
2023/01/06
1.4K0
跟着Nature学作图:R语言ggplot2频率分布直方图/堆积柱形图/散点图
跟着Global Change Biology学作图:R语言ggplot2点线图(1)
本地pdf Global Change Biology - 2022 - Feng - Changes in plant inputs alter soil carbon and microbial communities in forest.pdf
用户7010445
2023/01/06
6300
跟着Global Change Biology学作图:R语言ggplot2点线图(1)
R语言ggplot2画棒棒糖图展示KEGG富集分析结果
https://www.nature.com/articles/s41588-024-01683-0
用户7010445
2024/04/15
3880
R语言ggplot2画棒棒糖图展示KEGG富集分析结果
跟着Nature学作图:R语言ggplot2分组折线图展示多个基因组的Nx
https://www.nature.com/articles/s41586-022-04808-9
用户7010445
2023/08/23
5860
跟着Nature学作图:R语言ggplot2分组折线图展示多个基因组的Nx
跟着Nature学作图:R语言ggplot2频率分布直方图
https://www.nature.com/articles/s41586-022-04808-9#MOESM8
用户7010445
2023/01/06
1.3K0
跟着Nature学作图:R语言ggplot2频率分布直方图
跟着Nature Microbiology学作图:R语言ggplot2做散点图添加拟合曲线和p值
本地文件 s41564-021-00997-7.pdf 论文 Protective role of the Arabidopsis leaf microbiota against a bacterial pathogen image.png 今天的推文来重复一下论文中的figure3c 散点图添加拟合曲线 image.png 读取数据集 library(readxl) df<-read_excel("41564_2021_997_MOESM10_ESM.xlsx") head(df) colna
用户7010445
2021/12/01
1.3K0
跟着Nature Microbiology学作图:R语言ggplot2做散点图添加拟合曲线和p值
跟着Nature学作图:R语言ggplot2散点图和添加辅助线完整示例
https://www.nature.com/articles/s41586-022-04808-9#MOESM8
用户7010445
2023/01/06
7430
跟着Nature学作图:R语言ggplot2散点图和添加辅助线完整示例
跟着Nature Genetics学作图:R语言ggplot2散点图展示主成分分析(PCA)的结果
https://doi.org/10.1038/s41588-023-01571-z
用户7010445
2023/12/01
5720
跟着Nature Genetics学作图:R语言ggplot2散点图展示主成分分析(PCA)的结果
跟着Cell学作图:R语言ggplot2做散点图并添加拟合曲线和文字标签
https://www.sciencedirect.com/science/article/pii/S0092867421008916#da0010
用户7010445
2021/10/25
2.1K0
跟着Plos Biology学作图:R语言ggplot2分组拟合曲线和95%置信区间
就可以把ABC补充到5个,结尾补充两个0,这个很有用。比如原来的数字是1,2,3,4,5 改成01,02,03,04,05这种形式
用户7010445
2022/04/08
1.1K0
跟着Plos Biology学作图:R语言ggplot2分组拟合曲线和95%置信区间
跟着Nature学作图:R语言ggplot2分组折线图完整实例/多个图例分开放
https://www.nature.com/articles/s41586-022-04808-9#MOESM8
用户7010445
2023/01/06
3.2K0
跟着Nature学作图:R语言ggplot2分组折线图完整实例/多个图例分开放
跟着Nature学作图:R语言ggplot2散点图并给指定的点添加颜色
https://www.nature.com/articles/s41586-023-05710-8
用户7010445
2023/08/23
2.6K0
跟着Nature学作图:R语言ggplot2散点图并给指定的点添加颜色
跟着Nature Metabolism学作图:R语言ggplot2散点图
https://www.nature.com/articles/s42255-022-00629-2#Sec15
用户7010445
2023/01/06
3100
跟着Nature Metabolism学作图:R语言ggplot2散点图
跟着GlobalChangeBiology学作图:R语言ggplot2点线图(2)给分面添加注释
本地pdf Global Change Biology - 2022 - Feng - Changes in plant inputs alter soil carbon and microbial communities in forest.pdf
用户7010445
2023/01/06
6890
跟着GlobalChangeBiology学作图:R语言ggplot2点线图(2)给分面添加注释
推荐阅读
跟着PNAS学画图:R语言ggplot2分组添加拟合曲线
2.5K0
跟着Nature学作图:R语言ggplot2箱线图/散点图完整示例
1K0
跟着Nature Communications学作图:R语言ggplot2散点图/折线图/误差线展示基因表达量
5820
跟着Nature Ecology&Evolution学作图:R语言ggplot2世界地图/柱形图/组合图
1.3K0
答读者问:如何用R语言ggplot2画抖动散点图加分组拟合线
6590
R语言ggplot2散点图添加拟合曲线和回归方程的简单小例子
27.5K0
跟着Nature学作图:R语言ggplot2频率分布直方图/堆积柱形图/散点图
1.4K0
跟着Global Change Biology学作图:R语言ggplot2点线图(1)
6300
R语言ggplot2画棒棒糖图展示KEGG富集分析结果
3880
跟着Nature学作图:R语言ggplot2分组折线图展示多个基因组的Nx
5860
跟着Nature学作图:R语言ggplot2频率分布直方图
1.3K0
跟着Nature Microbiology学作图:R语言ggplot2做散点图添加拟合曲线和p值
1.3K0
跟着Nature学作图:R语言ggplot2散点图和添加辅助线完整示例
7430
跟着Nature Genetics学作图:R语言ggplot2散点图展示主成分分析(PCA)的结果
5720
跟着Cell学作图:R语言ggplot2做散点图并添加拟合曲线和文字标签
2.1K0
跟着Plos Biology学作图:R语言ggplot2分组拟合曲线和95%置信区间
1.1K0
跟着Nature学作图:R语言ggplot2分组折线图完整实例/多个图例分开放
3.2K0
跟着Nature学作图:R语言ggplot2散点图并给指定的点添加颜色
2.6K0
跟着Nature Metabolism学作图:R语言ggplot2散点图
3100
跟着GlobalChangeBiology学作图:R语言ggplot2点线图(2)给分面添加注释
6890
相关推荐
跟着PNAS学画图:R语言ggplot2分组添加拟合曲线
更多 >
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档