R 如何抑制最左边的列（天），因为它一直以整数形式出现在我的输出中

我有一些数据正在尝试运行。问题是第一列是day，被描述为整数。因此，当我申请金额时，天数也被计算在内。如何抑制这个问题

medhist <- read.table(header=TRUE, text='
 Day  CVS Respi DM  Epilepsy
    1   2    3     4    0
    2   3    2     2    2
    3   3    3     4    2 
    4   4    3     2    1
    5   1    3     1    3
    6   2    2     NA   3
    7   3    2     1    0
    8   2    3     2    0
    9   2    3     2    1
    10  2    4     5    1
 ')

apply(medhist, 2, sum, na.rm=T)

我试过了

medhist$Day<- as.character(medhist$Day)

---

您可能希望将天数的

length（）

（即计数）与不带

Day

列的预期摘要连接起来。假设天数是唯一的，您可以这样做：

c(Day=length(medhist$Day), apply(medhist[-1], 2, sum, na.rm=TRUE))
# Day      CVS    Respi       DM Epilepsy 
#  10       24       28       23       13 

---

您可能希望将天数的

length（）

（即计数）与不带

Day

列的预期摘要连接起来。假设天数是唯一的，您可以这样做：

c(Day=length(medhist$Day), apply(medhist[-1], 2, sum, na.rm=TRUE))
# Day      CVS    Respi       DM Epilepsy 
#  10       24       28       23       13 

---

一个选项是对所选列使用

summary_at

，然后附加其他感兴趣的列值

library(dplyr)
medhist %>%
  summarise_at(-1, sum, na.rm = TRUE) %>%
  bind_cols(Day = last(medhist$Day), .)

---

一个选项是对所选列使用

summary_at

，然后附加其他感兴趣的列值

library(dplyr)
medhist %>%
  summarise_at(-1, sum, na.rm = TRUE) %>%
  bind_cols(Day = last(medhist$Day), .)

---

通过调用apply，可以将每个列压缩为一个值。您想如何压缩“day”列？通过调用apply，您可以将每个列压缩为一个值。您希望如何压缩“日”列？

library(dplyr)
medhist %>%
  summarise_at(-1, sum, na.rm = TRUE) %>%
  bind_cols(Day = last(medhist$Day), .)