用R语言和文件绘制折线图，不用ggplot2

要使用R语言绘制折线图，并且不使用`ggplot2`包，可以利用基础绘图函数来实现。假设我们已经读取了数据并存储在一个数据框中，下面是如何绘制折线图的步骤：

### 步骤 1: 读取数据
首先，我们需要将数据读入R中。假设数据保存在名为`PestManagement.txt`的文件中，我们可以使用`read.table`或`read.csv`函数来读取数据。

# 读取数据
data <- read.table("PestManagement.txt", header = TRUE, stringsAsFactors = FALSE)

### 步骤 2: 绘制折线图
接下来，我们将使用基础绘图函数`plot`和`lines`来绘制折线图。

# 提取数据
x_values <- c(1, 2)  # 假设两个区域分别为1和2
y_values <- data$Incidence_Rate / 100  # 将百分比转换为小数

# 创建图形窗口
plot(x_values, y_values, type = "o", pch = 19, col = "blue",
     xlab = "Region", ylab = "Pest Incidence Rate",
     main = "Pest Incidence Rate by Region")

# 添加标签
text(x_values[1], y_values[1] + 0.05, labels = "With Green Pest Control")
text(x_values[2], y_values[2] - 0.05, labels = "Without Green Pest Control")

### 解释
- `type = "o"`：表示同时绘制点和线。
- `pch = 19`：设置点的形状为实心圆。
- `col = "blue"`：设置线条和点的颜色为蓝色。
- `xlab` 和 `ylab`：分别设置x轴和y轴的标签。
- `main`：设置图表的标题。
- `text`：用于在图上添加文本标签，以便区分两个区域的数据。

### 完整代码

# 读取数据
data <- read.table("PestManagement.txt", header = TRUE, stringsAsFactors = FALSE)

# 提取数据
x_values <- c(1, 2)  # 假设两个区域分别为1和2
y_values <- data$Incidence_Rate / 100  # 将百分比转换为小数

# 创建图形窗口
plot(x_values, y_values, type = "o", pch = 19, col = "blue",
     xlab = "Region", ylab = "Pest Incidence Rate",
     main = "Pest Incidence Rate by Region")

# 添加标签
text(x_values[1], y_values[1] + 0.05, labels = "With Green Pest Control")
text(x_values[2], y_values[2] - 0.05, labels = "Without Green Pest Control")

这样，你就可以得到一个简单的折线图，展示不同区域的害虫发生率。希望这对你有帮助！