这个事情比较简单,就是单纯记录一下过程,因为我好久没写R代码了,很多东西都忘了。
1. 先看一下数据, 就4列。:
> head(arbuthnot)
year boys girls total
1 1629 5218 4683 9901
2 1630 4858 4457 9315
3 1631 4422 4102 8524
4 1632 4994 4590 9584
5 1633 5158 4839 9997
6 1634 5035 4820 9855
2. 代码:
#读取文件。
# R语言中索引是从1开始的
# 从网页下载并加载R脚本
# source 命令在R语言中用于执行一个字符串或文件中的R代码。
# 它不仅可以读取网络上的文件,也可以读取本地文件。
source("http://www.openintro.org/stat/data/arbuthnot.R")
head(arbuthnot) # 1629
tail(arbuthnot) # 1705
class(arbuthnot)
arbuthnot$total = arbuthnot$girls + arbuthnot$boys
arbuthnot
plot(x = arbuthnot$year, y = arbuthnot$total, type="n",
xlim = c(1629, 1710), ylim = c(1, 17000),
xlab ="Year", ylab="count",
main="Plot boys, girls and total on the same figure.")
lines(x = arbuthnot$year, y = arbuthnot$boys,
type = "l", col = "red")
lines(x = arbuthnot$year, y = arbuthnot$girls,
type = "l", col = "blue")
lines(x = arbuthnot$year, y = arbuthnot$total,
type = "l", col = "green")
# lty line type
# lty = 1 表示实线(solid line),这是默认的线型。
legend("topleft",
legend = c("boys", "girls", "total"),
col = c("red", "blue", "green"), lty = 1)
3. 绘图效果:
4. 其他:
R语言代码,一般比较简短,而且大多数都是单文件,直接复制到 ai 搜索框,然后每一行自动添加注释,便于理解。