в вашем случае вы можете просто использовать mtext
на стороне 1:
mydata <- data.frame(a=c(1:5),b=c(6:10),c=c(11:15),d=c(16:20))
plot <- stripchart(mydata, method="jitter", vertical=T,main='plot',pch=19)
mtext(c('a+b','c+d'),side=1,line=3,at=c(1.5,3.5))
АргументЪ line
- установить вертикальное положение и at
положение по оси x.
Редактировать: Чтобы добавить расстояние между этими двумя группами, вы можете сделать, как это (может быть чище способ сделать это, но это только один я могу думать с верхней части моей головы):
mydata <- data.frame(a=c(1:5),b=c(6:10),c=c(11:15),d=c(16:20))
plot <- stripchart(mydata, method="jitter", vertical=T, main='plot',pch=19,
at=c(1,2,4,5),xlim=c(0,6))
mtext(c('a+b','c+d'),1,line=3,at=c(1.5,4.5))
Довод at
из stripchart
является один возиться с, но затем вы должны изменить пределы сюжета (xlim
) и х-значение, при котором вы пишете метку оси (в mtext
).
Что вы подразумеваете под «подмножество оси x»? как вы хотите, чтобы результат выглядел? Вы хотите объединить a и b, чтобы показать общий ярлык между a и b или в дополнение к уже существующим меткам a и b для добавления метки «a + b» ниже? – plannapus
Посмотрите на функцию 'axis'. – Thomas
@plannapus "или в дополнение к уже существующим меткам a и b добавить метку '+ b' ниже?" -> точно! –