20 lines
885 B
R
Executable File
20 lines
885 B
R
Executable File
# 创建广告投入和销售额的数据向量
|
|
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' ,# 中文库
|
|
) |