如何编写此R计数查询？

对于下面的数据集，我需要给定列下的高、高、正常计数

我想要这样的输出

试试这个：

首先创建一个与您的相似的虚拟数据集：

library(dplyr)
dat <- tibble::tribble(
          ~AL.01,         ~AL.02,         ~AL.03,
  "Above Normal", "Above Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",         "High",
        "Normal",       "Normal",         "High",
        "Normal",       "Normal", "Above Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
  "Above Normal",         "High", "Above Normal",
  "Above Normal",       "Normal", "Above Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "High",       "Normal",       "Normal"
  )

试试这个：

首先创建一个与您的相似的虚拟数据集：

library(dplyr)
dat <- tibble::tribble(
          ~AL.01,         ~AL.02,         ~AL.03,
  "Above Normal", "Above Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",         "High",
        "Normal",       "Normal",         "High",
        "Normal",       "Normal", "Above Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
  "Above Normal",         "High", "Above Normal",
  "Above Normal",       "Normal", "Above Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "Normal",       "Normal",       "Normal",
        "High",       "Normal",       "Normal"
  )

---

使用base R，您可以执行以下代码：

#mock up data
my_df <- data.frame(AL_01 = c("Above No", "Normal", "Normal", "High", "Above No", "Normal", "Normal", "High"),
                    AL_02 = c("Above No", "Normal", "Normal", "Normal", "Above No", "Normal", "Normal", "High"),
                    AL_03 =  c("Normal", "Normal", "Normal", "High","Above No", "Normal", "Normal", "High" ))

apply(my_df, 2, table)

table

命令统计向量中不同条目的数量。这在

apply

函数中调用。这样，对每一列执行

table

命令（因为第二个参数==2）并返回。

---

在命令提示下键入

？table

和

？apply

，以获取更多信息。

使用base R，可以执行以下代码：

#mock up data
my_df <- data.frame(AL_01 = c("Above No", "Normal", "Normal", "High", "Above No", "Normal", "Normal", "High"),
                    AL_02 = c("Above No", "Normal", "Normal", "Normal", "Above No", "Normal", "Normal", "High"),
                    AL_03 =  c("Normal", "Normal", "Normal", "High","Above No", "Normal", "Normal", "High" ))

apply(my_df, 2, table)

table

命令统计向量中不同条目的数量。这在

apply

函数中调用。这样，对每一列执行

table

命令（因为第二个参数==2）并返回。

---

在命令提示符下键入

？table

和

？apply

，以获取更多信息。

这是一个比我发布的答案更简单、更优雅的答案。谢谢。@RachitKinger您的解决方案对OP也有帮助，这是最重要的。这是一个比我发布的答案更简单、更优雅的答案。谢谢。@RachitKinger您的解决方案对OP也有帮助，这是最重要的。

         AL_01 AL_02 AL_03
Above No     2     2     1
High         2     1     2
Normal       4     5     5