Question

我如何计算最大值和最小值之间的差数, 按行计算, 当有充裕的 NA 时, 每一列的差数?

假设这就是我的数据

   a   b   c  d   e



A  1   NA  3  NA  NA



B  0   NA  6  NA  2



C  3   2   1  NA  3



C  NA  NA  3  NA  0

对于每一列,我想找到值最高的行与值最低的行之间的差异 -- -- 结果应该是这样的:

3 0 5 NA 3

我有数百个栏目需要分析, 所以我需要一个容易处理的代码(例如:我不需要手动输入栏名) 。

任何帮助都会感激不尽!

Answer 1

使用 apply 的方法。检查所有 < NA 值, 使用 ifelse 防止 - Inf 的出现, 来源是 < min / / < max


sapply(df, (x) ifelse(all(is.na(x)), NA, max(x, na.rm=T) - min(x, na.rm=T)))
 a  b  c  d  e 
 3  0  5 NA  3 

Data
df <- structure(list(a = c(1L, 0L, 3L, NA), b = c(NA, NA, 2L, NA), 
    c = c(3L, 6L, 1L, 3L), d = c(NA, NA, NA, NA), e = c(NA, 2L, 
    3L, 0L)), class = "data.frame", row.names = c("A", "B", "C", "D"))

Answer 2

a <- matrix(c(1,   NA,  3,  NA,  NA, 0,   NA,  6,  NA , 2, 3 ,  2 ,  1 , NA,  3, NA , NA,  3  ,NA,  0), nrow=4, ncol=5, byrow=T)
apply(a, 1, function(x) max(x, na.rm=T)-min(x, na.rm=T)) # difference by row
apply(a, 2, function(x) max(x, na.rm=T)-min(x, na.rm=T)) # difference by column

您可以看到 - 参见 - in case where where a difference 无法计算差异。要改变此行为, 请使用以下代码 :

apply(a, 1, function(x) ifelse(max(x, na.rm=T)-min(x, na.rm=T) == -Inf, NA, max(x, na.rm=T)-min(x, na.rm=T))) # difference by row
apply(a, 2, function(x) ifelse(max(x, na.rm=T)-min(x, na.rm=T) == -Inf, NA, max(x, na.rm=T)-min(x, na.rm=T))) # difference by column

Data

友情链接