将图层添加到 R 中的绘图

Question

获取一些通用数据

A <- c(1997,2000,2000,1998,2000,1997,1997,1997)
B <- c(0,0,1,0,0,1,0,0)
df <- data.frame(A,B)

counts <- t(table(A,B))
frac <- counts[1,]/(counts[2,]+counts[1,])


C <- c(1998,2001,2000,1995,2000,1996,1998,1999)
D <- c(1,0,1,0,0,1,0,1)
df2 <- data.frame(C,D)

counts2 <- t(table(C,D))
frac2 <- counts2[1,]/(counts2[2,]+counts2[1,])

如果我们想在一个尺度上为两个数据集创建一个散点图

我们可以：

plot(frac, pch=22)
points(frac2, pch=19)

但是我们发现我们有两个问题

首先我们要将年份值（显示为 df$A 和 df$C）沿 x 轴
我们希望x轴在添加第二个数据时自动调整比例

需要使用 ggplot2 或基础 R 的解决方案

Answer 1

ggplot 将为您进行缩放。您可以将 frac 转换为 data.frame 并与 ggplot

一起使用

library(ggplot2)
ggplot(data.frame(y=frac, x=names(frac)), aes(x, y)) +
  geom_point(col="salmon") +
  geom_point(data=data.frame(y=frac2, x=names(frac2)), aes(x, y), col="steelblue") +
  theme_bw()

将图层添加到 R 中的绘图

adding layer to a plot in R

r

scatter-plot

ggplot2