要按基因组坐标对R数据框进行分组，并绘制每个碱基的平均覆盖度，可以按照以下步骤进行操作：

1. 读取数据：首先，将包含碱基坐标和覆盖度的数据文件导入到R中。可以使用read.table()或read.csv()函数来读取文件。假设数据文件的格式为两列，第一列为碱基坐标，第二列为覆盖度。

data <- read.table("data.txt", header = TRUE)

2. 分组数据：使用group_by()函数将数据按照基因组坐标进行分组。

library(dplyr)
grouped_data <- data %>% group_by(Genome_coordinate)

3. 计算每个碱基的平均覆盖度：使用summarize()函数计算每个分组中覆盖度的平均值。

average_coverage <- grouped_data %>% summarize(Average_coverage = mean(Coverage))

4. 绘制结果：使用绘图函数（例如plot()或ggplot2包中的函数）将每个碱基的平均覆盖度绘制成图。

plot(average_coverage$Genome_coordinate, average_coverage$Average_coverage, type = "l", xlab = "Genome Coordinate", ylab = "Average Coverage")

完整的代码示例如下：

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

# 2. 分组数据
library(dplyr)
grouped_data <- data %>% group_by(Genome_coordinate)

# 3. 计算每个碱基的平均覆盖度
average_coverage <- grouped_data %>% summarize(Average_coverage = mean(Coverage))

# 4. 绘制结果
plot(average_coverage$Genome_coordinate, average_coverage$Average_coverage, type = "l", xlab = "Genome Coordinate", ylab = "Average Coverage")

请根据实际情况修改代码中的数据文件路径和列名。此外，你还可以根据需求选择合适的绘图函数和自定义绘图参数。