源代码：x=c(1013.3,315,103,463.7,379.3,518.4,302.6,371,339.9,508.5,438.6,620.1,149.8,346.7,488.4,82.9)
y=c(6304,911,934,1297,1085,1616,1021,1375,827,1530,1589,2403,866,1223,1361,536)
plot(x,y,xlab = "人口数",ylab="医疗机构数")
abline(lm(y~x))
cor(x,y)

lm=lm(y~s)
lm.summary=summary(lm)
lm.summary

图形