R/FGI/rmd2/20200608rep.Rmd

   1 ---
   2 title: "解觅检测存储报告"
   3 author:
   4   - 解基因，觅安心
   5 date: \today
   6 documentclass: ctexrep
   7 #classoption: a4paper
   8 output:
   9   rticles::ctex:
  10     fig_caption: yes
  11     number_sections: no
  12     toc: no
  13     keep_tex: no
  14 header-includes:
  15   \usepackage{booktabs}
  16   \usepackage{longtable}
  17   \usepackage{array}
  18   \usepackage{multirow}
  19   \usepackage[table]{xcolor}
  20   \usepackage{wrapfig}
  21   \usepackage{float}
  22   \floatplacement{figure}{H}
  23   \AtBeginDocument{\let\maketitle\relax}
  24 ---
  25
  26 ```{r include = FALSE}
  27 knitr::opts_chunk$set(echo = FALSE)
  28 ###### Color Format     https://stackoverflow.com/a/37122306/159695
  29 colFmt = function(x,color){
  30   outputFormat = knitr::opts_knit$get("rmarkdown.pandoc.to")
  31   if(outputFormat == 'latex')
  32     paste("\\textcolor{",color,"}{",x,"}",sep="")
  33   else if(outputFormat == 'html')
  34     paste("<font color='",color,"'>",x,"</font>",sep="")
  35   else
  36     x
  37 }
  38 ###### CENTER TXT
  39 ctrFmt = function(x){
  40   out_type = knitr::opts_knit$get("rmarkdown.pandoc.to")
  41   if(out_type == 'latex' || out_type == 'beamer')
  42     paste0("\\begin{center}\n", x, "\n\\end{center}")
  43   else if(out_type == 'html')
  44     paste0("<center>\n", x, "\n</center>")
  45   else
  46     x
  47 }
  48 ```
  49
  50 # 感谢信
  51
  52 \noindent 您好！
  53
  54 首先感谢您的选择与信任。我们始终秉持“公正、科学、严谨”的理念，通过一流的科技创新、一流的司法服务、一流的团队管理，对实验负责，对结果负责，从而为您提供专业权威的DNA检测服务。
  55
  56 报告阅读过程如有任何疑问，欢迎来电垂询（400-900-2616）。深圳华大法医科技有限公司（简称华大司法）为华大集团旗下全资子公司，致力于通过自主知识产权的技术、试剂及仪器为全球司法鉴定提供更加严谨，更加高效的DNA检测服务。我们立足深圳，在全国拥有香港、北京、深圳、天津、西安五大鉴定中心，业务辐射全球30多个国家或地区，300,000余份鉴定报告零差错，精准率高达99.999999%，是您的信任之选。
  57
  58 再次感谢您的支持，愿您平安喜乐，顺遂无忧。
  59
  60 \begin{flushright}华大司法\end{flushright}
  61
  62 \newpage
  63
  64 #### 您的基本信息
  65
  66 ```{r tInfo, results='asis'}
  67 inDat=read.csv(file.path('dat','JK_report.csv'), colClasses='character')
  68 SampleID <- inDat[1,7]
  69 SampleLH <- inDat[2,7]
  70 SampleIS <- inDat[3,7]
  71 SampleName <- inDat[4,7]
  72 SampleSex <- inDat[5,7]
  73 SampleBirth <- inDat[6,7]
  74 SampleDate <- inDat[7,7]
  75 SampleTel <- inDat[8,7]
  76 SampleAddr <- inDat[9,7]
  77 cat(paste0('\\noindent 姓名：',SampleName,' \\hfill 性别：',SampleSex,' \\hfill 出生日期：',SampleBirth,' \\newline\n'))
  78 cat(paste0('\\noindent 样本编号：',SampleID,' \\hfill 检测日期：',SampleDate,' \\newline\n'))
  79 cat(paste0('\\noindent 联系电话：',SampleTel,' \\newline\n'))
  80 cat(paste0('\\noindent 联系地址：',SampleAddr,' \\newline\n'))
  81 ```
  82
  83 #### 位点信息
  84
  85 ```{r tResult}
  86 myResult=inDat[,c(1,2,3)]
  87 colnames(myResult)<-c('Gene ID','Genotype', '与我相同的比例')
  88 knitr::kable(myResult, caption='位点信息表', longtable=TRUE, booktabs=TRUE, label='tResult', align=c('l','c','r'))
  89 SampleName <- inDat[1,7]
  90 ```
  91
  92 \noindent 注：本报告所检测位点均为非隐私位点，不涉及任何医学疾病相关信息，无医学参考意义。"Null"表示该位点未测出。
  93
  94 ```{r fpGT, out.width='100%', fig.align='center', fig.cap='个人基因型Circos图'}
  95 imgFile <- file.path('dat',paste0(SampleID,'_report.png'))
  96 knitr::include_graphics(imgFile)
  97 ```
  98
  99 \newpage
 100
 101 #### SNP标记位点分布示意图：
 102
 103 ```{r fSNPdist, out.width='66%', fig.align='center', fig.cap=''}
 104 knitr::include_graphics('inc/Sites.png')
 105 ```
 106
 107 \noindent 注：图片仅为展示效果，不代表真实染色体形态。
 108 检测位点仅涉及1-22号常染色体，不涉及性染色体。
 109
 110 #### 应用场景：
 111
 112 * 新生儿建档
 113 * 个人身份识别
 114 * 儿童老人走失寻回
 115 * 需要永久身份证明的人员
 116
 117 #### FAQ：
 118
 119 #### 01 解觅是什么？
 120
 121 \noindent 答：解觅是是基于二代SNP分型，利用质谱平台测序的高精准度个体识别技术。对样本DNA进行SNP分型检测，识别并存储相关位点信息。
 122 个体识别概率（TDP）高达1-1E(-30)，识别力超过亿亿分之一，可精准识别个人、准确判定亲子关系。
 123
 124 #### 02 怎么看解觅的报告？
 125
 126 \noindent 答：报告的“位点信息”部分展示了受检者样本测序得出的57个高多态性精选SNP位点信息。
 127 这些位点集合信息对每个人来说像指纹一样独一无二，可以说是一个终身不变的“基因身份证”，能做到精准的个人身份识别。
 128 在遇到需要亲子关系比对的特殊场景，此数据还可以做到准确的亲子关系判定。
 129
 130 #### 03 我存储的解觅数据安全吗？会不会隐私泄露？
 131
 132 \noindent 答：首先，解觅的数据存储于深圳国家基因库。
 133 深圳国家基因库已经通过了已通过信息安全等级保护三级评审以及可信云服务数据保护能力评审，具有完备的网络信息安全保护体系，我们的数据存在里面是安全的。
 134 其次，解觅测序存储的57个SNP位点均为中立DNA信息，是用来识别个人身份的个体特征信息，不涉及任何已知的家族遗传疾病基因、缺陷基因、疾病相关基因等信息。
 135
 136 #### 04 解觅的数据要怎么使用？
 137
 138 \noindent 答：当家人发生意外走失、失踪等情况时首先应立即报警。
 139 若需要亲子关系比对，请拨打华大司法客户服务热线4 0 0 - 9 0 0 - 2 6 1 6， 根据语音提示，选择“寻亲求助”，获得专业的寻亲帮助。
 140
 141 `r ctrFmt("如需帮助，可致电华大司法客户服务热线400-900-2616")`