第1章 引言

第1.1章

1.1.1

#导入数据
dta <- read.csv(file = "D:/R/class/homework/dta(1).csv")

#计算每个人Before(0-9)、After(10-19)的平均贡献
before_cols<-paste0("answers.",0:9,"..contribution")
after_cols<-paste0("answers.",10:19,"..contribution")

dta$before_mean<-rowMeans(dta[,before_cols])
dta$after_mean<-rowMeans(dta[,after_cols])

#画图
par(mfrow=c(1,2))
#CDF累积分布图
plot(ecdf(dta$before_mean), col="orange",
     verticals=TRUE,
     do.points=FALSE,
     lwd=2,pch=NA,
     xlab="Contributions",
     ylab="Cumulative Probability",
     main="CDF of Contributions")
lines(ecdf(dta$after_mean), col="gray", lwd=1,pch=NA,
      verticals=TRUE,
      do.points=FALSE)
legend("bottomright", legend=c("Before","After"),
       col=c("orange","gray"),lty=1,lwd=2)

#箱形图Boxplot
boxplot(dta$before_mean, dta$after_mean,
        names=c("Before","After"),
        col=c("orange","gray"),
        pch=NA,
        ylab="Contributions",
        xlab="Before & After Watching the Video",
        main="BoxPlot of Contributions")

*在1-6行设置自动标题编号，自己问ai

hello nihao 你好

意大利斜体

加粗

nihao上角标

你好

link

暨南大学

另一个写法http://www.jnu.edu.cn

block 结论1：我很开心

knitr::include_graphics("D:/R/class/markdowmclass1/d87a4c17a84866a2bafd3d134c396e22.png")
图片说明

图片说明

  • 课程
    • 数学
    • 语文
  • 研究假设
    • H1
    • H2

第2章 文献综述

这是我的证件照
这是我的证件照

第3章 实验设计

在文字之中穿插代码方法：

薯条print("hello")骑士

第4章 数据分析

print("薯条骑士")
## [1] "薯条骑士"

第5章 结论建议

print("把一大段代码写在一个框的内部")
## [1] "把一大段代码写在一个框的内部"
print("不报错不警告")
## [1] "不报错不警告"

自我介绍

大家好，我是shooting，我现在是研究生一年级。

我最喜欢的课程有如下几个：

我最近在学习怎么使用R Markdowm来向读者展示我的数据分析结果

以下是我的证件照：

library(grid)
require(gridExtra)
library(jpeg)
library(png)
fig1<-rasterGrob(readPNG("D:/R/class/markdowmclass1/d87a4c17a84866a2bafd3d134c396e22.png"))
fig2<-rasterGrob(readPNG("D:/R/class/markdowmclass1/d87a4c17a84866a2bafd3d134c396e22.png"))
grid.arrange(fig1,fig2,ncol=2)