确定双列 r 的中位数

Question

我有以下数据集

> temp6
# A tibble: 120 x 1
      Arithmetic Mean
            <dbl>
 1           0.96
 2           2.09
 3           0.57
 4           0.66
 5           0.92
 6           0.60
 7           0.40
 8           0.42
 9           0.27
10           0.47
# ... with 110 more rows

我非常需要这个数据列的中位数，但是当我尝试时很明显

median(temp6, na.rm=TRUE)

我收到此错误消息：

Error in median.default(temp6, na.rm = TRUE) : need numeric data

如果我尝试将此数据转换为“数字”，那也不起作用

as.numeric(temp6, na.rm=TRUE)

或

as.numeric(as.character(temp6)

给予：

Error: (list) object cannot be coerced to type 'double'

和

Warning message:
NAs introduced by coercion 

分别。我已经做了足够的研究，知道这些过程都不起作用，但我无法找到任何解决方法来找到这些数据点的中位数。有什么办法可以做到这一点？

Answer 1

根据?median

中位数(x, na.rm = FALSE, ...)

在哪里

x 已定义方法的对象，或数值向量 包含要计算其中位数的值。

如果是data.frame，则可以使用temp6[,1] 转换为vector。因为它是tibble，所以我们需要[[。假设，我们使用[进行提取

temp6[,1]
# A tibble: 10 x 1
#   `Arithmetic Mean`
#               <dbl>
# 1              0.96
# 2              2.09
# 3              0.57
# 4              0.66
# 5              0.92
# 6              0.60
# 7              0.40
# 8              0.42
# 9              0.27
#10              0.47

它仍然是tibble，其中使用[[

temp6[[1]]
#[1] 0.96 2.09 0.57 0.66 0.92 0.60 0.40 0.42 0.27 0.47

它被转换为vector

is.vector(temp6[[1]])
#[1] TRUE

现在，我们可以得到median

median(temp6[[1]], na.rm = TRUE)
#[1] 0.585

或使用$

median(temp6$`Arithmetic Mean`, na.rm = TRUE)
#[1] 0.585

数据

temp6 <- structure(list(`Arithmetic Mean` = c(0.96, 2.09, 0.57, 0.66, 
 0.92, 0.6, 0.4, 0.42, 0.27, 0.47)), .Names = "Arithmetic Mean", row.names = c("1", 
 "2", "3", "4", "5", "6", "7", "8", "9", "10"), class = c("tbl_df", 
"tbl", "data.frame"))

Answer 2

dplyr::summarise 是另一种选择。

library(dplyr)
temp6 %>% 
  summarise(Median = median(`Arithmetic Mean`, na.rm = TRUE))