R基础图形:自定义分组数据中的轴标签

Question

df <- data.frame(g1=c('A', 'A', 'B', 'B'),
                 g2=c('a', 'b', 'a', 'b'),
                 v1=1:4,
                 v2=4:1)

我正在尝试这样做，其中两个“组”变量g1和g2以如下所示的自定义方式进行标记-注意这两个组之间的小间距。我意识到，如果x轴从0到10，那么我们在2、4、7和9(或多或少)处有a、b、a和b，在3和8处有A和B。但是如何在调用axis()或text()时指定这一点？我想在R基地做这件事。

​

Answer 1

一种方法是

df <- data.frame(g1=c('A', 'A', 'B', 'B'),
                 g2=c('a', 'b', 'a', 'b'),
                 v1=1:4,
                 v2=4:1)
plot(df$v1, df$v1, xaxt = 'n', pch = 15)
points(df$v2, df$v1, pch = 13)
axis(1, at = df$v1, labels = df$g2)
axis(1, at = c(1.5, 3.5), labels = unique(df$g1), line = 1, tick = F)

​

​