将列值与R studio中的平均值进行比较并关联2个列名

以下是数据集的两个初始列。左侧的列（带数字）由R插入

下面是数据集中的另一列。 我们已经计算了此列中所有值的平均值

我们希望将最后一列中的每个值与平均值进行比较。（是否高于、等于或低于平均值？）

为此，我们使用了以下代码：

which(databel$coverage>0.1632407, useNames=TRUE)
which(databel$coverage<0.1632407, useNames=TRUE)
which(databel$coverage==0.1632407, useNames=TRUE)

which（databel$coverage>0.163407，useNames=TRUE）
which（databel$coverage因为
which
返回索引，我们可以使用返回值对
databel$Thema
向量进行子集化以获得名称

databel=data.frame(Thema=c("Aalst", "Aalter", "Aarschot", "Aartselaar", "Affligem", "Alken", "Alveringem", "Anderlecht"),
           coverage=c(.14,.17,.15,.13,.15,.18,.14,.16), stringsAsFactors = FALSE)

databel$Thema[which(databel$coverage>mean(databel$coverage))]
"Aalter"     "Alken"      "Anderlecht"

databel$Thema[which(databel$coverage<mean(databel$coverage))]
"Aalst"      "Aarschot"   "Aartselaar" "Affligem"   "Alveringem"

databel$Thema[which(databel$coverage==mean(databel$coverage))]
character(0)

databel=data.frame（Thema=c（“Aalst”、“Aalter”、“Aarschot”、“Aartselaar”、“Affligem”、“Alken”、“Alveringem”、“andrelecht”），
覆盖率=c（.14、.17、.15、.13、.15、.18、.14、.16），stringsAsFactors=FALSE）
databel$Thema[其中（databel$coverage>mean（databel$coverage））]
Aalter“Alken”andrelecht
databel$Thema[其中（databel$Coverage）我们无法从图像中复制数据。请以易于复制的可复制格式添加数据。请阅读。