r - 将数据标准化为 100%，但总值小于 1.00

Question

我正在寻求标准化值，同时保留它们的相对频率。例如，一个变量的总计数为 219，由值 56、89、145 组成。为了对这些数据进行标准化，我将每个值除以总数，然后将结果可视化为条形图，如下所示。为什么总值总和不是 1.00？

p.perc <- ggplot(bNTI.perc, aes(fill=variable,x=pond,y=value/total)) +
  geom_bar(stat = "identity")
print (p.perc)

谢谢!我的数据:

> dput(bNTI.perc)
structure(list(pond = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 
4L, 1L, 2L, 3L, 4L), .Label = c("RHM", "TS", "SS", "Lilly"), class = "factor"), 
    total = c(291, 740, 241, 42, 291, 740, 241, 42, 291, 740, 
    241, 42), variable = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 
    2L, 2L, 3L, 3L, 3L, 3L), .Label = c("sum(cor > 2)", "sum(cor < -2)", 
    "sum(cor > 2 | cor < -2)"), class = "factor"), value = c(56L, 
    213L, 49L, 0L, 89L, 156L, 70L, 19L, 145L, 369L, 119L, 19L
    )), row.names = c(NA, -12L), class = "data.frame")

Answer 1

您不需要手动执行此操作。使用position = 'fill':

ggplot(bNTI.perc, aes(pond, value, fill = variable)) + geom_col(position = 'fill')

但您实际问题的答案是您的 total 列是错误的。 Lilly 有三个值(0、19 和 19)，总和为 38，但 Lilly 组的总计为 42，不是 38，因此您的 Lilly 条加起来仅为 38/42 (0.9047619)。同样，您的 SS 值 119 + 70 + 49 加起来为 238，但您的 SS 的总计为241