我正在尝试将点列表添加到我的箱线图中,但是,这些点仅显示在一个箱线图中,而不显示在另一个箱线图中。我想知道是否有人可以帮助我找出问题所在。这是我正在使用的代码。
#graphics.off()
rm(list=ls())
# Inputs
CapeHenlopen <- c(1,4,3,15,2,3,4,1,10,7,3,1,1,1,4,44,4,2,2,5,1)
Brandywine<- c(1,75,20,15,2,104,3,14,1)
# Outputs
dev.new() # Open a new window for my boxplot
boxplot(CapeHenlopen,Brandywine, horizontal = FALSE,
xlab = c('Location'),
ylab= 'Number of Individuals',
col=c('red','blue'),
names=c('Cape Henlopen', 'Brandywine'))
stripchart(CapeHenlopen, Brandywine, vertical = TRUE, method = "stack", pch = 19, add = TRUE)
dev.copy(png,'myplot.png')
解决此问题的最简单方法是将向量转换为数据框,其中一列表示位置,一列表示值。这将使电镀分析变得更加容易。
CapeHenlopen <- c(1,4,3,15,2,3,4,1,10,7,3,1,1,1,4,44,4,2,2,5,1)
Brandywine<- c(1,75,20,15,2,104,3,14,1)
# Outputs
Brandydf<- data.frame(name="Brandywine", values=Brandywine)
Capedf<- data.frame(name="CapeHenlopen", values=CapeHenlopen)
data<- rbind(Brandydf, Capedf)
boxplot(values~ name, data=data, horizontal = FALSE,
xlab = c('Location'),
ylab= 'Number of Individuals',
col=c('red','blue'))
points(x=as.factor(data$name), y=data$values, pch = 19, col="green")