R中使用DescTools的模式

Question

我正在使用R，我已经学会了使用CodeAcademy的课程计算模式。基本上，CodeAcademy建议使用DescTools (这是我在计算机上安装的R包)。模式应该返回数字向量中最常见的值。但是，当我运行这个简单的代码块时，我在R中的控制台没有返回任何内容。它只是重印我执行过的代码行。

我的IDE有问题吗?还是我在编写这段代码时犯了错误？我读过那么多线程并使用了?模式帮助函数，但从我所能看出的情况来看，我似乎已经正确地编写了代码。我只是在执行代码时没有任何结果显示在我的控制台中。

install.packages("DescTools")
require(DescTools)
?Mode
my_data <- c(15,8,9,15,12,13,2,15,13,8,13,6,7)
Mode2 <- Mode(my_data)
print(Mode2)
Mode2
view(Mode2)

正如您在上面的代码块中所看到的，我尝试使用print()来查看数据，我尝试输入Mode2将其呈现给工作簿，并且尝试使用view()，但是这些行都没有在我的控制台中产生任何输出。

Answer 1

如果我们想获得Mode，另一个选项是使用base R选项创建一个

Mode <- function(x) {
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}

-testing

> Mode(my_data)
[1] 15