library(ggplot2)
dat1 <- data.frame(categories = c(1,2,3),
picachu = c(100,150,120))
dat2 <- data.frame(categories = c(1,2,3),
pocketmonster = c(200,250,220))
ggplot(data = dat2,aes(categories,pocketmonster)) +
geom_point() +
geom_line() +
geom_bar(data = dat1 , aes(categories,picachu),stat = "identity")
Hi，我想你可以试试看用ggplot，因为它是用图层式的概念往上叠加
因此就想成先画出其中一种图在画另外一种图然后叠起来

感谢!!马上来试作，才刚开始学画图，x轴是文字可以吗?

scale_x_discrete(label = c("A","B","C"))