将一个折线图和条形图放在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()