R中带规则的分栏

以下是如何为许多专栏(年)做这件事

您的数据

df <- data.frame(Y2000=5, Y2001=10, Y2003=15, S2000=1, S2001=5, S2003=15)

定义新列名

newcols <- sapply(c(2000,2001,2003), function(i) paste0("NEW",i))
[1] "NEW2000" "NEW2001" "NEW2003"

使用 dplyr

library(dplyr)
df1 <- df %>%
          rowwise() %>%
          mutate_(.dots = setNames(paste0(gsub("NEW","Y",newcols),"/",gsub("NEW","S",newcols)), newcols))

  Y2000 Y2001 Y2003 S2000 S2001 S2003 NEW2000 NEW2001 NEW2003
1     5    10    15     1     5    15       5       2       1

下面是如何计算所需输出中的三列。

library(dplyr)
your_data %>%
  mutate(
    NEW2000 = Y2000 / S2000,
    NEW2001 = Y2001 / S2001,
    NEW2003 = Y2003 / S2003
  )

如果您有数百个这样的列,有一些方法可以避免键入每个列的名称。