程序代写代做代考 cache html {r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE, cache = TRUE) library(tidyverse) #若用到其中的函数,需要加载 beautify <- function(x) format(x, digits = 2, big.mark = ',')

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE, cache = TRUE) library(tidyverse) #若用到其中的函数,需要加载 beautify <- function(x) format(x, digits = 2, big.mark = ',') Markdown格式 1.字体格式化 _斜体_ _斜体_ 加粗 加粗 _粗斜体_ _粗斜体_ _粗斜体_ ~~删除~~ 上标^([2]) 下标₃ 2.目录分级与显示列表 第一级 第二级 第三级 第四级 第五级 第六级 注:最高到六级 有序列表 2. 有序列表 3. 有序列表 4. 有序列表 5. 有序列表 6. 有序列表 有序列表取决于第一个编号,后面自增,不间断 如何实现间断 ------------------------------------------------------------------------ 1. 有序列表 2. 有序列表 3. 有序列表 4. 有序列表 5. 有序列表 分段落间隔 1. 有序列表 2. 有序列表 3. 有序列表 4. 有序列表 5. 有序列表 ------------------------------------------------------------------------ 1. 有序列表 2. 有序列表 3. 有序列表 4. 有序列表 5. 有序列表 目录间隔 1. 有序列表 2. 有序列表 3. 有序列表 4. 有序列表 5. 有序列表 ------------------------------------------------------------------------ 1. 有序列表 2. 有序列表 3. 有序列表 4. 有序列表 5. 有序列表 - 无序列表间隔 1. 有序列表 2. 有序列表 3. 有序列表 4. 有序列表 5. 有序列表 ------------------------------------------------------------------------ 无序列表 - 无序列表 - 无序列表 - 无序列表 - 无序列表 - 无序列表 - 无序列表 - 无序列表 - 无序列表 - 无序列表 ------------------------------------------------------------------------ 列表组合使用 1. 第一 - 2-1(要超过上级标题内容第一个字,按两个Tab键即可) - 2-2 2. 第二 - 2-1 - 2-2 3.换行与分段 - 行后两个空格换行 第一行 第二行(在一个段落内) - 句末不敲空格间隔一行 第一行(与前面不在一个段落内) 第二行 4. 分割线 3个以上的-或* ------------------------------------------------------------------------ ------------------------------------------------------------------------ 5. 引用 大学《礼记》 大学之道,在明明德,在亲民,在止于至善。 大学之道,在明明德,在亲民,在止于至善。 大学之道,在明明德,在亲民,在止于至善。 大学之道,在明明德,在亲民,在止于至善。 6. 插入超链接或图片 - http://www.neu.edu.cn - http://www.neu.edu.cn - 请通过百度进行内容搜索。 [梦境] - markdown兼容html格式 梦幻之色 梦幻之色 7. Latex公式的使用 - 正态分布 $$f(x,\mu,\sigma^2) = \frac{1}{\sigma\sqrt{2\pi}} e^{-\frac{1}{2}\left(\frac{x -\mu}{\sigma}\right)^2}\tag{1}$$ 式中,μ为均值,σ²为样本方差。 - 更复杂的怎么写?https://math.edrawsoft.cn/ $${\begin{array}{*{20}{l}} {{\begin{array}{*{20}{l}} {\frac{{1}}{{1-x}}=\mathop{ \sum }\limits_{{n=0}}^{{ \infty }}\mathop{{x}}\nolimits^{{n}}}&{ \left( {-1 < x < 1} \right) }\\ {e=\mathop{ \sum }\limits_{{n=0}}^{{ \infty }}\frac{{1}}{{n!}}\mathop{{x}}\nolimits^{{n}}}&{ \left( {- \infty < x < \infty } \right) }\\ { \text{sin} x=\mathop{ \sum }\limits_{{k=0}}^{{ \infty }}\frac{{\mathop{{ \left( {-1} \right) }}\nolimits^{{k}}}}{{ \left( {2k+1} \left) !\right. \right. }}\mathop{{x}}\nolimits^{{2k+1}}}&{ \left( {- \infty < x < \infty } \right) }\\ { \text{cos} x=\mathop{ \sum }\limits_{{k=0}}^{{ \infty }}\frac{{\mathop{{ \left( {-1} \right) }}\nolimits^{{k}}}}{{ \left( {2k} \left) !\right. \right. }}\mathop{{x}}\nolimits^{{2k}}}&{ \left( {- \infty < x < \infty } \right) }\\ {\frac{{1}}{{1+x}}=\mathop{ \sum }\limits_{{n=0}}^{{ \infty }}{\mathop{{ \left( {-1} \right) }}\nolimits^{{n}}}\mathop{{x}}\nolimits^{{n}}}&{ \left( {-1 < x < 1} \right) }\\ { \text{ln} { \left( {1+x} \right) }=\mathop{ \sum }\limits_{{n=0}}^{{ \infty }}\frac{{\mathop{{ \left( {-1} \right) }}\nolimits^{{n}}}}{{n+1}}\mathop{{x}}\nolimits^{{n+1}}}&{ \left( {-1 < x \le 1} \right) }\\ {\mathop{{a}}\nolimits^{{x}}=\mathop{ \sum }\limits_{{n=0}}^{{ \infty }}\frac{{\mathop{{ \left( { \text{ln} a} \right) }}\nolimits^{{n}}}}{{n!}}\mathop{{x}}\nolimits^{{n}}}&{ \left( {- \infty < x < \infty } \right) }\\ {\frac{{1}}{{1+\mathop{{x}}\nolimits^{{2}}}}=\mathop{ \sum }\limits_{{n=0}}^{{ \infty }}{\mathop{{ \left( {-1} \right) }}\nolimits^{{n}}}\mathop{{x}}\nolimits^{{2n}}}&{ \left( {-1 < x < 1} \right) } \end{array}}}\\ {{\mathop{{e}}\nolimits^{{ix}}\begin{array}{*{20}{l}} {=1+ix+\frac{{1}}{{2!}}{\mathop{{ \left( {ix} \right) }}\nolimits^{{2}}}+\frac{{1}}{{3!}}{\mathop{{ \left( {ix} \right) }}\nolimits^{{3}}}+ \cdots +\frac{{1}}{{n!}}{\mathop{{ \left( {ix} \right) }}\nolimits^{{n}}}+ \cdots }\\ {=1+ix-\frac{{1}}{{2!}}{\mathop{{x}}\nolimits^{{2}}}-\frac{{1}}{{3!}}{\mathop{{ix}}\nolimits^{{3}}}+\frac{{1}}{{4!}}{\mathop{{x}}\nolimits^{{4}}}+\frac{{1}}{{5!}}{\mathop{{ix}}\nolimits^{{5}}}- \cdots }\\ {={ \left( {1-\frac{{1}}{{2!}}{\mathop{{x}}\nolimits^{{2}}}+\frac{{1}}{{4!}}{\mathop{{x}}\nolimits^{{4}}}- \cdots } \left) +i{ \left( {x-\frac{{1}}{{3!}}\mathop{{x}}\nolimits^{{3}}+\frac{{1}}{{5!}}\mathop{{x}}\nolimits^{{5}}-} \cdots \right) }\right. \right. }}\\ {= \text{cos} x+ \text{sin} x} \end{array}}} \end{array}}$$ 8. 在段内插入R代码 - 经过计算,1到100的平均值为r mean(1:10) #这是注释,html中不会显示。 - r 1/3的小数位太多怎么办?用format函数,r format(1/3, digits = 2),或者在全局设置setup中定义一个通用的美化函数beautify,使用一下,发生十个随机小数r beautify(runif(10)),发生一个较大的随机整数r beautify(sample(1000000:10000000,1)) 9. 显示表格 以diamonds数据集为例 - 正常输出 diamonds %>%
slice_head(n = 50)

– kable方式

diamonds %>%
slice_head(n = 50) %>%
knitr::kable(caption = ‘钻石采样’)

– DT::datatable方式

diamonds %>%
slice_head(n = 50) %>%
DT::datatable(caption = ‘钻石数据集’)

10. 不执行的代码块行内代码

diamonds %>%
slice_head(n = 50) %>%
DT::datatable(caption = ‘钻石数据集’)

– 经过计算,1到100的平均值为mean(1:10) #这是注释,会显示。

11. 修改格式

– 编辑css文件
借助“查看器”功能

– 嵌入方式

– 外联方式

1. 将加入到文档里的任意位置

2. 脱离Rstudio,直接改Html,将放到
前(注意让Rmarkdown中的相同语句先不运行)