在箱线图旁边显示一个点的当前位置

Question

假设有一个list列表：

list1<-list(a=20,b=30,c=12,d=15,e=20,f=2,g=8,h=0,l=3,z=22)
list2<-list(c=80,d=20,l=2,m=4,n=3,p=12,q=10,r=15,s=15,z=2)
list3<-list(a=9,b=8,d=4,e=3,f=4,g=5,s=8,t=23,u=20)
list4<-list(b=12,c=91,d=4,e=4,f=5,g=23,h=12,r=2,u=12)

我想显示一个包含 4 个箱线图的图，每个箱线图都引用这 4 个列表中的一个，例如用名称 "list1"、"list2"、"list3" 标记每个箱线图, "list4"。

添加时，如果我想在 4 个分布的箱线图中突出显示名为 "c" 的点的持续位置，前提是 "c" 可能存在或不存在每个？

Answer 1

如果您有这样的列表：

# list of lists
listlist <- list(list1=list1, list2=list2, list3=list3, list4=list4)

您可以使用以下代码：

par(mfrow=c(1,4)) # setup figure
lapply(names(listlist), function(i) {
  boxplot(unlist(listlist[i]), ylim = c(0, 100), main = i) # boxplots
  points(unlist(listlist[[i]]["c"]), col = "red", cex = 5) # "c" observations
  })

请注意，如果每个列表有多个观察 "c"，则需要稍微更改代码：

par(mfrow=c(1,4)) # setup figure
lapply(names(listlist), function(i) {
  boxplot(unlist(listlist[i]), ylim = c(0, 100), main = i)
  points(y = unlist(listlist[[i]])[names(unlist(listlist[[i]])) == "c"], 
         x = rep(1, sum(names(unlist(listlist[[i]])) == "c")),  
         col = "red", cex = 5) 
  })

在箱线图旁边显示一个点的当前位置

Display ongoing position of a point along put beside boxplots

r

boxplot