R统计学3 - 数据分析入门问题41-60

往期R统计学文章：

R统计学1 - 基础操作入门问题1-20

R统计学2 - 数据分析入门问题21-40

41. R 语言如何做双坐标图？

# 创建模拟数据
year <- 2014:2024
gdp <- data.frame(year, GDP = sort(rnorm(11, 1000, 100)))
ur <- data.frame(year, UR = rnorm(11, 5, 1))
par(mar = c(5, 4, 4, 6) + 0.1)
# 绘制折线图
plot(gdp ,axes=FALSE, type='l')
# 加横轴和纵轴
axis(1, at = year, label = year);axis(2)
par(new = T, mar = c(10, 4, 10 ,6) + 0.1)
# 绘制折线图2
plot(ur, axes=FALSE, xlab="", ylab="", col="red", type="b")
# 右侧加上纵轴
mtext("UR(%)", 4, 3)
axis(4)

42. R 语言如何用不同的颜色来代表数据？

对于类似于barplot()高级绘图函数，可使用col参数设置。

x <- 1:10
names(x) <- letters[1:10]
barplot(x, col=rev(heat.colors(10)))

43. R 语言绘制连接若干点的平滑曲线？

使用立方曲线差值函数spline(x ,y , n)。

x <- seq(1,5,