在R中使用diff函数

Question

我的R代码如下：

data <- read.csv(file.choose(), header=TRUE)

# Plot yrs vs total cases as time series
plot(data, xlab="Years", ylab="Total cases", type="o", col="blue", font.lab=2)

# Difference data to make data stationary on mean (remove trend)
plot(diff(as.numeric(data[1,])), ylab="First Difference", col="red", font.lab=2, type="o")

运行第5行代码只能在图表上显示1个点。

为什么会这样？

以下是我的数据：

Answer 1

首先，使用自定义sep和dec（或read.csv2表示;分隔符和,表示小数点）来加载数据：< / p>

data <- read.csv(file.choose(), header=TRUE, sep=";", dec=",")
# OR
data <- read.csv2(file.choose(), header=TRUE)

您可以使用列的名称，而不是索引。然后第二个图可以显示为：

plot(diff(as.numeric(data$Total.cases)), ylab="First Difference", col="red", font.lab=2, type="o")