将一个折线图和条形图放在 R 中的一个图中（不是 ggplot）？

Question

怎么做在 R 中将条形图和线条组合成单个绘图（来自不同的数据源）？

假设我有两个数据源：

barData<-c(0.1,0.2,0.3,0.4) #In percentage
lineData<-c(100,22,534,52,900)

请注意，它们可能不在同一比例尺中。

我可以在一个图中同时绘制 barData 和 LineData 并让它们看起来好看吗？

我不能在这种情况下使用 ggplot，所以这不是一个重复的问题..

类似下面的内容:

Answer 1

也许这有助于作为一个起点：

par(mar = rep(4, 4))
barData<-c(0.1,0.2,0.3,0.4) * 100
y <- lineData<-c(100,22,534,900);
x <- barplot(barData, 
             axes = FALSE,
             col = "blue", 
             xlab = "",
             ylab = "",
             ylim = c(0, 100) )[, 1]
axis(1, at = x, labels = c("Julia", "Pat", "Max", "Norman"))
ats <- c(seq(0, 100, 15), 100); axis(4, at = ats, labels = paste0(ats, "%"), las = 2)
axis(3, at = x, labels = NA) 
par(new = TRUE)
plot(x = x, y = y, type = "b", col = "red", axes = FALSE, xlab = "", ylab = "")
axis(2, at = c(pretty(lineData), max(lineData)), las = 2) 
mtext(text="Lines of code by Programmer", side = 3, line = 1)
box()

将一个折线图和条形图放在 R 中的一个图中（不是 ggplot）？

Put one line chart and bar chart in one plot in R (Not ggplot)?

plot

r

bar-chart

ggplot2

dataframe