如何使用 For 循环将常量值添加到 data.frame 中的所有行[重复]

Question

我正在尝试创建一个简单的 data.frame，它使用 FOR LOOP 将“1”的值添加到当前 data.frame 中所有行内的每个值。

我当前的循环只是返回相同的值。这只是我的一个愚蠢的错误吗？

b<-as.data.frame(Base, nrow(length(Base)), ncol(5))
for(i in seq(names(Base))){
  j<-names(Base)[i]
  i + 1
}
b

例如，这些是来自 data.frame Sales 的原始列：

Year  A  B  C  D
2010  50 60 70 80
2011  10 44 28 20
2012  65 75 65 89
...

而我的目标是：

Year  A  B  C  D
2011  51 61 71 81
2012  11 45 29 21
2013  66 76 66 90
...

提前致谢。

Answer 1

这应该适合你。它在tidyverse 中使用dplyr 中的mutate_if 函数，而不是for 循环，但逻辑是相同的。

library(tidyverse)

df <- tibble(
  a = c(1:10),
  b = c(11:20),
  c = c(21:30)
)

df1 <- df %>%
  mutate_if(is.numeric, function(x) x+1)

第一个参数将选择数据中的所有数字列，然后第二个参数指定函数，在本例中只是加 1。

编辑：

我的初始函数也会将 1 添加到您的 year 列，因此您可能想要这样做

library(tidyverse)

df <- tibble(
  a = c(1:10),
  b = c(11:20),
  c = c(21:30)
)

df1 <- df %>%
  mutate_at(vars(-matches("a")), function(x) x+1)

除非您想将代码中最后一行的 "a" 替换为 "year"。