dotplot рядом с boxplots

Question

Я пытаюсь выяснить, как построить ящики и вместе в одном графике.

Начиная со следующим:

data    <- data.frame(matrix(rexp(50), 50)) 
colnames(data)[1] <- c("values") 
data$s1   <- as.factor(c(rep("AA", 30), rep("AC", 18), rep("CC", 2))) 
data$s2   <- as.factor(c(rep("AA", 25), rep("AG", 22), rep("GG", 3))) 

boxplot(as.numeric(values)~s1,data=data, outline=F, range=1.5) 
boxplot(as.numeric(values)~s2,data=data, outline=F, range=1.5) 

Я почти получить то, что я хочу. Но поскольку числа для группы CC и GG малы, мне было рекомендовано отображать только 2 или 3 точки для группы CC и GG соответственно.

Или, может быть, было бы лучше сделать простой картографический план с использованием предыдущих данных? Как это будет сделано?

Answer 1

Это вы что искали?

par(mfrow=c(1, 2)) 
boxplot(as.numeric(values) ~ s1, 
     data=subset(data, data$s1=="AA" | data$s1=="AC")) 
stripchart(as.numeric(values) ~ s1, 
      data=data, add=TRUE, vertical=TRUE, pch=1, lwd=1) 

boxplot(as.numeric(values) ~ s2, 
     data=subset(data, data$s1=="AA" | data$s1=="AG")) 
stripchart(as.numeric(values) ~ s2, 
      data=data, add=TRUE, vertical=TRUE, pch=1, lwd=1) 

Давать что-то вроде этого: