r - 需要一个代码来创建与 R 中的特定索引相关的文本

Question

我需要自动化一个过程。

我有一个短语列表，表明与必要条件的对应程度。像这样的.txt

1.1 猫是红色 1.2 蓝色是蓝色 1.3 cggd 1.4 dses 2.1 blabla 2.2 黄色是黄色 2.3 abcded 2.4 blablabla

我想要的是通过输入特定数字来获得自动评估。

例如，该作品的第一部分应获得 4 个，第二部分应获得 2 个。

我想写“1.4”、“2.2”并获得一个文本输出，由

“dses。黄色就是黄色”

我该怎么办？

谢谢四位的建议！

Answer 1

尝试在数组中构建文本

yourtextarray<-matrix(c("cat is red","blue is blue","cggd","dses","blabla","yellow is yellow","abcded","blablabla"),ncol=4,nrow=2,byrow = T)

然后在创建字符串表达式的行和列上运行循环

for(i in 1:nrow(yourtextarray)){
 for(j in 1:ncol(yourtextarray)){
  cat(paste0(i,".",j," ",yourtextarray[i,j],"\n"))}}

Answer 2

如果要将数据拆分为数字和字符串，可以使用stringr和rebus包进行字符串操作：

df <- data.frame(Text = "1.1 cat is red 1.2 blue is blue 1.3 cggd 1.4 dses 2.1 blabla 2.2 yellow is yellow 2.3 abcded 2.4 blablabla")

df <- str_match_all(df$Text, 
                    pattern = capture(DGT %R% DOT %R% DGT) %R% 
                      SPC %R%
                      capture(one_or_more(or(SPC, ALPHA)))) %>% 
  as.data.frame()

这将为您提供以下输出：

#                     X1  X2                X3
# 1       1.1 cat is red  1.1       cat is red 
# 2     1.2 blue is blue  1.2     blue is blue 
# 3             1.3 cggd  1.3             cggd 
# 4             1.4 dses  1.4             dses 
# 5           2.1 blabla  2.1           blabla 
# 6 2.2 yellow is yellow  2.2 yellow is yellow 
# 7           2.3 abcded  2.3           abcded 
# 8         2.4 blablabla 2.4         blablabla