4、运用plot函数，以利用rnorm函数生成多个数据集为基础，针对每列数据，画出折线图、散点图、箱线图、柱状图和茎叶图（请按照数据的特点，进行相应的数据处理后进行画图）。

4、运用plot函数，以利用rnorm函数生成多个数据集为基础，针对每列数据，画出折线图、散点图、箱线图、柱状图和茎叶图（请按照数据的特点，进行相应的数据处理后进行画图）。

# 生成数据集
set.seed(123)
data <- data.frame(
  A = rnorm(100, mean = 0, sd = 1),
  B = rnorm(100, mean = 2, sd = 1),
  C = rnorm(100, mean = -2, sd = 1)
)

# 折线图
plot(data$A, type = "l", xlab = "Index", ylab = "Value", main = "Line Plot")

# 散点图
plot(data$B, data$A, xlab = "B", ylab = "A", main = "Scatter Plot")

# 箱线图
boxplot(data, main = "Boxplot")

# 柱状图
barplot(colMeans(data), main = "Bar Plot")

# 茎叶图
stem(data$C)

5、利用iris数据集进行K-means聚类，并画出聚类图。

# 载入iris数据集
data(iris)

# 提取用于聚类的特征
features <- iris[, 1:4]

# 进行K-means聚类（假设聚类数为3）
k <- 3
kmeans_result <- kmeans(features, centers