如何计算R中2列之间的比率（使用函数）？

Question

我们正在进行一个实验，以检查品牌对产品价值的影响。 为了计算结果，我们首先需要计算2个答案之间的比率。 我们想通过功能而不是手动来执行此操作。 例如

prod1_nobrand prod1_brand prod2_nobrand prod2_brand
1             2           4             8
2             6           5             20

我们要为每个比率创建一个新列 例如，

prod1_ratio prod2_ratio
2           2
3           4

任何想法如何做？ 谢谢你！

Answer 1

简单的基础方法将如下...

yourdataframe$new_ratio_col <- yourdataframe$prod1 / yourdataframe$prod2

Answer 2

我不是100％确定我正确理解您的问。但是我的感觉是您应该熟悉dplyr功能。您可以使用突变函数以这种方式创建新列：

library(dplyr)

df %>%
mutate(prod1_ratio = prod1_nobrand  / prod2 prod1_brand)

Answer 3

一个选项是将其置于长形式，计算比率，然后使用tidyverse旋转到宽形式。

library(tidyverse)

df %>%
  pivot_longer(everything(), names_to = c("num", ".value"), names_sep = "_") %>%
  mutate(ratio = brand / nobrand) %>% 
  select(-ends_with("brand")) %>% 
  group_by(num) %>% 
  mutate(rowid = row_number()) %>% 
  pivot_wider(names_from = "num", values_from = "ratio", names_glue = "{num}_ratio") %>% 
  select(-rowid)

输出

  prod1_ratio prod2_ratio
        <dbl>       <dbl>
1           2           2
2           3           4

数据

df <- structure(list(prod1_nobrand = 1:2, prod1_brand = c(2L, 6L), 
    prod2_nobrand = 4:5, prod2_brand = c(8L, 20L)), class = "data.frame", row.names = c(NA, 
-2L))

Answer 4

如果在给定的示例c（false，true）和c（true，false）中，可以使用列与列配对。

y <- x[c(FALSE, TRUE)] / x[c(TRUE, FALSE)]
names(y) <- sub("_.*", "_ratio", names(y))
y
#  prod1_ratio prod2_ratio
#1           2           2
#2           3           4

数据：

x <- data.frame(prod1_nobrand = 1:2, prod1_brand = c(2L, 6L),
                prod2_nobrand = 4:5, prod2_brand = c(8L, 20L))