数据点与平均值相差一个标准差的比例是多少

Question

我有一个名为ourData的数据集，其中有一列名为Temperature(F(。

我已经找到了1个std dev中的数据点的计数(多少(。使用这个：

mu <- mean(ourData$`Temperature(F)`)
s <- sd(ourData$`Temperature(F)`)
sum((ourData$`Temperature(F)` > mu - s) & (ourData$`Temperature(F)` < mu + s))

但是，我如何找到比例！！

此外，我如何找到平均值的两(2(个标准偏差的比例？？

我使用

library(readr)
library(dplyr)
library(readr)
library(ggplot2)
library(tidyverse)

Answer 1

正如@MrFlick所说，mean将返回一个比例。为了使代码更可读，您可以编写一个简单的函数：

prop <- function (x, n=1) {
m <- mean(x); s <- n*sd(x)
mean((x > m - s) & (x < m + s))  # eqivalent to sum(...)/length(x)
}

然后在你的数据上使用它：

prop(ourData$`Temperature(F)`)
prop(ourData$`Temperature(F)`,2) # 2 standard devations