如何在 base R 中创建 ABAB 图？

Question

我正在尝试在 base r 中创建一个图表来显示单个案例设计研究的结果。我需要能够为研究的每个部分打破界限。我知道我可以使用 SCVA，但我想自己绘制图表，这样我就可以更好地控制它。当我添加我的 lines() 时，我无法让它们与这些点对齐。我不确定我错过了什么。我在下面放了一些示例代码。我还包含了代码生成的图形图像。

x <- c(5, 7, 10, 20, 23, 25, 4, 8, 6, 21, 28, 25)
y <- c("A1", "A1", "A1", "B1", "B1", "B1", "A2", "A2", "A2", "B2", "B2", "B2")

plot(x)
lines(x[y=="A1"])
lines(x[y=="B1"])
lines(x[y=="A2"])
lines(x[y=="B2"])

Plot from the code above.

Answer 1

你可以试试这个。希望对您有所帮助。

library(ggplot2)
#Data
x <- c(5, 7, 10, 20, 23, 25, 4, 8, 6, 21, 28, 25)
y <- c("A1", "A1", "A1", "B1", "B1", "B1", "A2", "A2", "A2", "B2", "B2", "B2")
data <- data.frame(x,y,stringsAsFactors = F)
#Plot
ggplot(data,aes(x=x,y=y,color=y))+geom_line()

Answer 2

在 base R 中，您需要指定 x。

plot(x, xaxt="n")
lines(1:3, x[y=="A1"])
lines(4:6, x[y=="B1"])
lines(7:9, x[y=="A2"])
lines(10:12, x[y=="B2"])
axis(side=1, at=c(2,5,8,11), labels=unique(y))

如何在 base R 中创建 ABAB 图？

How do I create an ABAB graph in base R?

plot

r

base