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

Question

我需要自动化一个过程。

我有一个短语列表，表明所需的对应级别。 像这样的.txt

1.1 猫是红色的 1.2 蓝色就是蓝色 1.3 CGGD 1.4 DSE 2.1 布拉布拉 2.2 黄色就是黄色 2.3 缩写 2.4 布拉布拉

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

例如，该作品在第一部分值得 4 个，在第二部分值得 2 个。

我想写"1.4"、"2.2"并获得文本输出，由

"哎呀。黄色就是黄色">

我该怎么办？

谢谢四位您的建议！

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