散点图复习
运动时长与卡路里消耗关系
某健身房统计会员运动时长与消耗卡路里数据：
运动时长 (分钟)：20, 25, 30, 35, 40, 45, 50
消耗卡路里：100, 130, 160, 190, 220, 250, 280
1.绘制纯点散点图（type="p"）
2.标题：「运动时长与卡路里消耗关系」
3.x 轴标签：运动时长（分钟），y 轴标签：消耗卡路里
4.设置 x 轴范围：15~55，y 轴范围：80~300
5.点形状：实心正方形（pch=15）
参考代码
r
# 1. 数据定义
minute <- c(20, 25, 30, 35, 40, 45, 50)
calorie <- c(100, 130, 160, 190, 220, 250, 280)
# 2. 绘制散点图
plot(minute, calorie,
type = "p", # 只显示点
main = "运动时长与卡路里消耗关系",
xlab = "运动时长（分钟）",
ylab = "消耗卡路里",
xlim = c(15, 55), # x轴范围
ylim = c(80, 300), # y轴范围
pch = 15) # 实心正方形上半年订单量变化趋势
某网店月份与订单量数据：
月份：1, 2, 3, 4, 5, 6
订单量：50, 65, 80, 75, 90, 105
1.绘制点线图（点和线同时显示，type="o"）
2.标题：「上半年订单量变化趋势」
3.x 轴标签：月份，y 轴标签：订单量
4.点形状：实心圆（pch=16）
5.线条样式：虚线（lty=2）
r
# 1. 数据定义
month <- c(1, 2, 3, 4, 5, 6)
order_num <- c(50, 65, 80, 75, 90, 105)
# 2. 绘制点线图
plot(month, order_num,
type = "o", # 点+线
main = "上半年订单量变化趋势",
xlab = "月份",
ylab = "订单量",
pch = 16, # 实心圆
lty = 2) # 虚线植物生长周数与高度关系
植物生长高度随周数变化数据：
周数：1, 2, 3, 4, 5, 6, 7, 8
高度 (cm)：5, 8, 12, 16, 21, 25, 29, 32
1.绘制纯点散点图
2.标题：「植物生长周数与高度关系」
3.x 轴范围：0~10，y 轴范围：0~35
4.点形状：空心圆（pch=1）
5.自定义坐标轴标签
r
# 1. 数据定义
week <- c(1, 2, 3, 4, 5, 6, 7, 8)
height <- c(5, 8, 12, 16, 21, 25, 29, 32)
# 2. 绘图
plot(week, height,
type = "p",
main = "植物生长周数与高度关系",
xlab = "生长周数",
ylab = "植株高度（cm）",
xlim = c(0, 10),
ylim = c(0, 35),
pch = 1) # 空心圆