创建计算r中其他变量中某个字符串的新变量

Question

我想创建一个名为Chatid的新变量，每次Chat ID: ^^^^^^出现在Lead变量中时，该变量都会得到+1。

这就是.csv现在的样子

Lead,Event,Role,Data
Chat ID: ^^^^^^,,,
No Value,x,Lead,No Value
No Value,x,End-user,No Value
Man,Lead x,Lead,No Value
Man,x,Lead,No Value
Man,x,Lead,Hello
Man,x,Lead,No Value
No Value,x,End-user,Hello to you too
Man,x,Lead,how are you?
Chat ID: ^^^^^^,,,
No Value,x,Lead,No Value
No Value,x,End-user,No Value
Man,x,Lead,No Value
Man,x,Lead,Hello, how are you?
Man,x,Lead,No Value
Man,x,Lead,No Value
Man,x,Lead,Can i help you?
No Value,x,End-user,Goodmorning! 

在write.csv之后，它应该是什么样子

Chatid, Lead,Event,Role,Data
1,Chat ID: ^^^^^^,,,
1,No Value,x,Lead,No Value
1,No Value,x,End-user,No Value
1,Man,Lead x,Lead,No Value
1,Man,x,Lead,No Value
1,Man,x,Lead,Hello
1,Man,x,Lead,No Value
1,No Value,x,End-user,Hello to you too
1,Man,x,Lead,how are you?
2,Chat ID: ^^^^^^,,,
2,No Value,x,Lead,No Value
2,No Value,x,End-user,No Value
2,Man,x,Lead,No Value
2,Man,x,Lead,Hello, how are you?
2,Man,x,Lead,No Value
2,Man,x,Lead,No Value
2,Man,x,Lead,Can i help you?
2,No Value,x,End-user,Goodmorning! 

通过这种方式，我希望能够分析每个单独的聊天(如果这是分离不同聊天的最佳方式)。

Answer 1

您可以使用grepl查找感兴趣的字符串的匹配项，然后对输出进行累加。对于名为df的data.frame

df <- cbind(
        Chatid = cumsum(grepl("Chat ID", df$lead)), 
        df
      )