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

如何 将条形图和直线合并到R中的单个绘图中（来自不同的数据源）

假设我有两个数据源：

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

---

barData也许这有助于作为起点：

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()

par（mar=rep（4,4））
barData也许这有助于作为起点：

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()

par（mar=rep（4,4））
barData也许这有助于作为起点：

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()

par（mar=rep（4,4））
barData也许这有助于作为起点：

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()

par（mar=rep（4,4））
那么，结果应该是什么样的呢？有试过吗？双轴图不是R的优势之一，所以我怀疑结果是否好看。这不是一个优势，可能是因为这样做不是一个好的实践…@lukeA我真的需要这样一个图表。数据可以标准化为相同的比例。因为一个是百分比，另一个是实数。谢谢你的发帖。正如我所说，我不知道它应该是什么样子。像这样<代码>barData@lukeA，我已将我的问题如上所述进行了编辑，您介意看看示例图片吗？X轴是日期，右边的垂直轴是不需要的。那么，结果应该是什么样的呢？有试过吗？双轴图不是R的优势之一，所以我怀疑结果是否好看。这不是一个优势，可能是因为这样做不是一个好的实践…@lukeA我真的需要这样一个图表。数据可以标准化为相同的比例。因为一个是百分比，另一个是实数。谢谢你的发帖。正如我所说，我不知道它应该是什么样子。像这样<代码>barData@lukeA，我已将我的问题如上所述进行了编辑，您介意看看示例图片吗？X轴是日期，右边的垂直轴是不需要的。那么，结果应该是什么样的呢？有试过吗？双轴图不是R的优势之一，所以我怀疑结果是否好看。这不是一个优势，可能是因为这样做不是一个好的实践…@lukeA我真的需要这样一个图表。数据可以标准化为相同的比例。因为一个是百分比，另一个是实数。谢谢你的发帖。正如我所说，我不知道它应该是什么样子。像这样<代码>barData@lukeA，我已将我的问题如上所述进行了编辑，您介意看看示例图片吗？X轴是日期，右边的垂直轴是不需要的。那么，结果应该是什么样的呢？有试过吗？双轴图不是R的优势之一，所以我怀疑结果是否好看。这不是一个优势，可能是因为这样做不是一个好的实践…@lukeA我真的需要这样一个图表。数据可以标准化为相同的比例。因为一个是百分比，另一个是实数。谢谢你的发帖。正如我所说，我不知道它应该是什么样子。像这样<代码>barData@lukeA，我已将我的问题如上所述进行了编辑，您介意看看示例图片吗？X轴为日期，不需要右侧的垂直轴。