箱形圖旁邊的一個點圖

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組的數字很小，因此我建議分別僅繪製CC和GG組的2或3個點。

或者使用以前的數據做一個簡單的圖表會更好嗎？這將如何完成？

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) 

給予這樣的事情：