加载常用的包 library(tidyverse) library(readxl) library(openxlsx) library(lubridate) 1 R基础相关 1.1 基础命令 1.1.1 set_names命令 set_names()命令可以很方便的创建带名称的向量，set_names(x, nm = x, ...)其中x表示需要赋名的变量，nm表示向量的名称，示例： set_names(1:4, letters[1:4]) # a b c d # 1 2 3 4 1.1.2 交集并集 interesect()求交集，union()并集,setdiff()补，结果如图1.1： 图1.1: R集合运算命令 1.2 数学公式测试 行内公式\(x^2+y^2=z^2\) 行间公式:\[f(x)=ax+b\] 1.3 逻辑运算符号 R中基础逻辑运算符号有（=;!=;>;<;>=;<=），返回的值是true和false，也可分别作为为数字1和0进行数学运算： x <- c(1, 2, 3, 4, 5, 6) x > 3 # [1] FALSE FALSE FALSE TRUE TRUE TRUE sum(x > 3) # [1] 3 1....

在繁忙的工作中，断断续续、跌跌撞撞地自学R语言，翻资料，查英文。这一段历程对于一个大叔来说，作实有点辛苦，值得记录。还记得第一次正式接触和使用R还是2015年在上海工作期间。那时候也没有深入的了解和学习，只是基础的学习了平实在工作中可能会使用的基础功能。真正认真开始学习是2019年新冠疫情暴发之初，因为要处理大量数据、分析、绘图、建模，所以认真花费了一段时间来学习。在学习过程中参考了不少大牛的教材，书籍和参考资料等。尤其要感谢一辉。从rmarkdown、bookdown、blogdown、knit，为了那个文学编程，害我还学习了lantex、html、css、pandoc等，可谓是一把辛酸泪啊😭。关于这段历程，后面还是计划开个新章好好记录。这篇文章主要记录下，自己使用blogdown+ hugo + netlify, 踩坑心得 建站历程。 关于blogdown blogdown的具体功能这里不赘述了，希望了解的请参考一辉大神的blogdown，我这里只是记录自己的心得坑： 踩坑记录 自定义“代码高亮”无效（待解决） 根据hugopaper的教程设置发现下面代码有效，设置后代码无highlight。 params: assets: disableHLJS: true 下面这段代码无效，设置后无法显示，上传到netfily同样无效。 markup: highlight: # anchorLineNos: true codeFences: true guessSyntax: true lineNos: true # noClasses: false style: monokai 在highlightjs 网站下载相关的css样式后，将喜欢的样式名称改为an-old-hope.min后放在网站根目录/assets/css可以更改高亮样式，但是建议选择黑暗模式的样式。现在还未找到在网站白天/黑夜模式切换下。css下载地址 更改样式后，白色字体貌似是hugo-paper主题重新定义了的，无法根据样式更改。待解决 baseURL 如果根据教程提示将baseURL改为在netfily上提供的域名，在用自己的域名解析后，次级链接仍然会链接到原netfily域名上 解决方案: 在config.yaml设置如下 baseURL: /

介绍 受邀参与重庆市公共卫生执业医师规范化培训工作，主要负责了寄生虫病概况和疟疾防控两个内容的讲解和培训。为此特编写了教材《重庆市公共卫生医师规范化培训-寄生虫病》。这本教材主要包括： 第 1 章主要介绍了寄生虫的生物学知识。 第 2 章主要介绍了寄生虫病的防治。 第 3章主要介绍全国主要寄生虫病流行概况。 第 4章主要介绍重庆市主要寄生虫病流行概况。 第 5章主要介绍疟疾的流行与防控概况。 第 6章主要介绍疟疾的基础知识。 第 7章主要介绍重庆市疟疾防控策略和措施。 点击图片阅读

1 蒙特卡洛法（Monte Carlo method）计算\(\pi\)的值 用随机函数runif()随机生成N个在1个单位正方形内的散点，根据三角公式筛选出在圆内的点,数据如下: ## 生成基础数据 set.seed(2021) N <- 5000 df01 <- tibble( x = runif(N, -0.5, 0.5), y = runif(N, -0.5, 0.5) ) %>% mutate( z = if_else( x^2 + y ^2 < 0.25, 1, 0), p = runif(N,0,2 * pi), x2 = cos(p) * 0.5, y2 = sin(p) * 0.5 ) knitr::kable(head(df01), caption = "随机数据", col.names = c("散点X", "散点Y", "是否在圆内", "随机生成0-180度", "圆X", "圆Y"), digits = 3, align = "c" ) 表1....

2022年元旦 The first morning of year 2022 第一缕阳光透过薄纱铺洒床头。 The sun shines sprinkled upper on my bed through the tulle. 微冷的空气中弥漫来阵阵花香。 The scent of flowers permeated in the cold air. 我张开怀抱, I opened my arms, 迎接新年的来到。 Hugged the new year. 你好！ Hello ! 世界！ world! 2022！