R 中每列更改一次，增加 0.1

Question

使用这个数据框，我想为 var1 的每次变化将 var2 增加 0.1

df <- data.frame(var1=c("a", "a", "1", "0", "b", "b", "b", "c", "1", "1"))

在这种情况下，结果应该是：

var1 var2
   a    1
   a    1
   1    1.1
   0    1.2
   b    1.3
   b    1.3
   b    1.3
   c    1.4
   1    1.5
   1    1.5

我能够使用以下代码为 var1 的每次更改将 var2 增加 1，但我无法操纵它以增加 0.1。

df$var2 <- c(0,cumsum(as.numeric(with(df,var1[1:(length(var1)-1)] != var1[2:length(var1)]))))

Answer 1

您可以将此任务拆分为较小的任务，并按顺序完成。

1. 创建一行“滞后”的列
2. 比较两列
3. 计算累计和，放入数据框中

所以在代码中：

helper = c(df$var1[1],df$var1[1:(nrow(df)-1)])

isDifferent = as.integer(df$var1)!=helper 请注意由于 R 将字符串创建为因子而转换为 int

df$var2=1+cumsum(isDifferent *0.1)

Answer 2

我们可以试试

df$var1 <- as.character(df$var1)
df$var2 <- seq(0, 1, by = 0.1)[with(df, cumsum(c(TRUE, var1[-1]!= var1[-length(var1)])))] + 1