R/FGI/rmd1/20200608rep.Rmd

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