其他
跟着Nature学绘图——绘制一张不一样的点线图！
点击上方
“科研后花园”
关注我们
复现图片如下：
1、设置工作环境并加载所需R包：
rm(list=ls())#clear Global Environmentsetwd('D:/桌面/不一样的点线图')#设置工作路径
#加载R包library(ggplot2) # Create Elegant Data Visualisations Using the Grammar of Graphics2、加载绘图数据（根据原文图片随机编写数据，无实际意义）：
#加载数据df <- read.table("data.txt",header = 1,check.names = F,sep="\t")df$group <- factor(df$group,levels = c("all","WB","PL","IT","IR","AJ","IN","CH","CB","NG"))4、绘图：
ggplot(df,aes(sample,value,color=group,group=group))+ #绘制实线部分的折线 geom_line(data = df[df$sample==1|df$sample==2|df$sample==3| df$sample==4|df$sample==5,],linewidth=0.5)+ #绘制虚线部分的折线 geom_line(data = df[df$sample==5|df$sample==6.5|df$sample==8,], linewidth=0.5,linetype=2)+ #绘制散点 geom_point(data = df[df$sample==6.5|df$sample==8,],size=1.5)+ #调整并更改X轴标签 scale_x_continuous(breaks = c(1,2,3,4,5,6.5,8), labels = c("PCA\n(J=1)","PCA\n(J=5)","PCA\n(J=10)", "PCA\n(J=15)","PCA\n(J=20)","GRM\n(PCA SNPs)","GRM\n(PGS SNPs)"))+ #Y轴范围及标签 scale_y_continuous(breaks = seq(0, 1, len = 5),limits = c(0,1))+ #主题 theme_bw()+ theme(panel.grid = element_blank(), axis.text.x = element_text(color = "black", size = 11), axis.text.y = element_text(color = "black",size = 11), axis.title = element_text(color = "black",size = 15), legend.position = "right", legend.title = element_text(color = "black",size = 14), legend.text = element_text(color = "black",size = 12))+ #标题设置 labs(x="Genetic distance from training data", y="UKBB: -cor("*r[i]^2~","~d[i]*")", color="ancestry")+ #颜色 scale_color_manual(values = c("#000000","#989898","#781a18","#029c6f", "#55b4e4","#d174a8","#e19e09","#dd5b00", "#8562bf","#2d50d9"))PS: 以上内容是小编个人学习代码笔记分享，仅供参考学习，欢迎大家一起交流学习。
完整代码（附带注释）及原始数据获取：
夸克网盘（手机端下载夸克APP进行搜索提取）：
链接：https://pan.quark.cn/s/9d0a01e63990
提取码：4ZKM
温馨提示
如果你喜欢本文，请分享到朋友圈，想要获得更多信息，请关注我。