初始化数据可视化项目

experiment_2/task4.r

@@ -0,0 +1,20 @@
+# 创建广告投入和销售额的数据向量
+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' ,# 中文库
+     )