使用R语言，读取自带数据集，并展示前六行，并对其第一行前四列进行随机更改之后再次展示前六行，并绘制更改后数据的散点图

以下是使用R语言读取自带数据集iris，并展示前六行的代码：

# 读取数据集
data(iris)

# 展示前六行
head(iris)

输出结果：

  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa
3          4.7         3.2          1.3         0.2  setosa
4          4.6         3.1          1.5         0.2  setosa
5          5.0         3.6          1.4         0.2  setosa
6          5.4         3.9          1.7         0.4  setosa

以下是对第一行前四列进行随机更改之后再次展示前六行的代码：

# 设置种子，保证每次生成的随机数相同
set.seed(123)

# 对第一行前四列进行随机更改
iris[1, 1:4] <- runif(4)

# 再次展示前六行
head(iris)

输出结果：

  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1    0.2875775  0.78830514   0.40897692  0.88301740  setosa
2    4.9000000  3.00000000   1.40000000  0.20000000  setosa
3    4.7000000  3.20000000   1.30000000  0.20000000  setosa
4    4.6000000  3.10000000   1.50000000  0.20000000  setosa
5    5.0000000  3.60000000   1.40000000  0.20000000  setosa
6    5.4000000  3.90000000   1.70000000  0.40000000  setosa

可以看到，第一行前四列的值已经被随机更改了。

以下是绘制更改后数据的散点图的代码：

# 安装ggplot2包（如果未安装的话）
if (!require("ggplot2")) install.packages("ggplot2")

# 绘制散点图
ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
  geom_point(size = 3)

输出结果：


可以看到，更改后的数据的散点图已经成功绘制出来了。值得注意的是，由于第一行前四列的值已经被随机更改，因此此时的散点图与原始数据集的散点图有所不同。