# 创建广告投入和销售额的数据向量
x <- c(2,5,1,3,4,1,5,3,4,2)  # 广告投入（万元）
y <- c(50,57,41,51,54,38,63,48,59,46)  # 销售额（百万元）

# 设置图形参数以提高图形元素的可见性和清晰度
par(cex.axis = 2,  # 设置轴刻度标签的放大倍数为2倍
    cex.lab = 2,   # 设置轴标签文字的放大倍数为2倍
    cex.main = 2   # 设置主标题文字的放大倍数为2倍
    )

# 绘制广告投入与销售额的散点图，设置点的大小和颜色
plot(x, y, 
     xlab="广告投入(万元)",  # x轴标签
     ylab="销售额(百万元)",  # y轴标签
     main="广告投入与销售额的关系",  # 图表标题
     pch=19,  # 设置点的形状为实心圆点
     cex=6,  # 设置点的大小为默认大小的两倍
     col="orange",  # 设置点的颜色为橙色
     family='STXihei' ,# 中文库
     )