##自己练习

# 创建数据
x <- c(1, 2, 3, 4, 5)
y <- c(2, 4, 6, 8, 10)
# 绘制散点图
plot(x, y)

# 创建数据
x <- seq(0, 10, 0.5)
y <- sin(x)
# 绘制折线图
plot(x, y, type = "l", xlab = "x", ylab = "sin(x)", col = "blue")

# 创建数据框
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value = c(10, 20, 15, 25)
)
# 绘制条形图
barplot(data$value, names.arg = data$category, xlab = "Category", ylab = "Value", col = "green")

# 创建数据
slices <- c(10, 20, 30, 40)
labels <- c("Slice 1", "Slice 2", "Slice 3", "Slice 4")
# 绘制饼图
pie(slices, labels = labels, col = rainbow(length(labels)))

# 创建数据
data <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)
group <- c("A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "C", "C", "C", "C", "C")
# 将数据合并为数据框
df <- data.frame(data, group)
# 绘制箱线图
boxplot(data ~ group, data = df, xlab = "Group", ylab = "Data", col = "orange")

# 创建数据
data <- rnorm(1000)  # 生成 1000 个服从正态分布的随机数
# 绘制直方图
hist(data, breaks = 30, col = "purple", xlab = "Value", ylab = "Frequency")