如何使用不按顺序排列的 x 轴值制作 R 图

Question

我有以下示例数据框，想要绘制列 b（x 轴）和 d（y 轴），但基于列 a。这意味着我希望 b 和 d 中与 a 列中的值 1 对应的行绘制在旁边彼此（作为点或垂直线），然后类似地用于列 a 中的值 2 等（都在一个图中）。

我无法执行此操作，因为这意味着 x 轴上的值会增加和减少/波动。

a <- c(1,1,1,1,1,1,1, 2,2,2,2,2,2,2, 3,3,3,3,3,3,3)
b <- c(1,4,5,7,8,10,13, 5,7,10,11,14,17,23, 3,7,11,16,19,26,29)
d <- c(.4,.15,.76,.07,.18,.11,.12, .23,.45,.25,.11,.16,.2,.5, .48,.9,.13,.75,.4,.98,.3)

df <- data.frame("a" = a, "b" = b, "d" = d)

plot(df$b, df$d)

我已经尝试了如上所示的基本绘图（不是我想要的结果）并尝试了其他方法来重新标记 x 轴上的值，但这也是不正确的。

最后，我无法使用任何 R 库，因为我无法将它们下载到我正在使用的计算机上。

提前感谢您的帮助！

Answer 1

不确定我是否正确理解了这个问题，但也许绘制“a”和“b”的交互会起作用？

a <- c(1,1,1,1,1,1,1, 2,2,2,2,2,2,2, 3,3,3,3,3,3,3)
b <- c(1,4,5,7,8,10,13, 5,7,10,11,14,17,23, 3,7,11,16,19,26,29)
d <- c(.4,.15,.76,.07,.18,.11,.12, .23,.45,.25,.11,.16,.2,.5, .48,.9,.13,.75,.4,.98,.3)

df <- data.frame("a" = a, "b" = interaction(b, a), "d" = d)
df$b <- factor(df$b, levels = df$b)

png("test.png", width = 900, height = 400, units = "px")
plot(df$b, df$d)
dev.off()

编辑

或者也许删除 x 轴标签并“手动”添加它们？

a <- c(1,1,1,1,1,1,1, 2,2,2,2,2,2,2, 3,3,3,3,3,3,3)
b <- c(1,4,5,7,8,10,13, 5,7,10,11,14,17,23, 3,7,11,16,19,26,29)
d <- c(.4,.15,.76,.07,.18,.11,.12, .23,.45,.25,.11,.16,.2,.5, .48,.9,.13,.75,.4,.98,.3)

df <- data.frame("a" = a, "b" = b, "d" = d)

png("test.png", width = 900, height = 400, units = "px")
plot(seq_along(df$b), df$d, xaxt = "none")
axis(1, at = seq_along(df$b), labels = df$b)
dev.off()

编辑 2

另一种可能更好地“保留 x 轴间距”的方法是拆分数据框并分别绘制每个组：

a <- c(1,1,1,1,1,1,1, 2,2,2,2,2,2,2, 3,3,3,3,3,3,3)
b <- c(1,4,5,7,8,10,13, 5,7,10,11,14,17,23, 3,7,11,16,19,26,29)
d <- c(.4,.15,.76,.07,.18,.11,.12, .23,.45,.25,.11,.16,.2,.5, .48,.9,.13,.75,.4,.98,.3)

df <- data.frame("a" = a, "b" = b, "d" = d)

split_df <- split(df, df$a)

par(mfrow = c(1, 3), mar = c(2, 2, 1, 1))
plot(split_df$`1`$b, split_df$`1`$d, ylim = c(0, 1))
plot(split_df$`2`$b, split_df$`2`$d, ylim = c(0, 1))
plot(split_df$`3`$b, split_df$`3`$d, ylim = c(0, 1))

^{由reprex package (v2.0.1) 于 2021 年 10 月 15 日创建}